リストに項目を追加する

Question

ユーザーが入力した文字列をリストに転送しようとしています。追加ボタンをクリックすると、リストが消去されます。ここにコードがあります。ここにあなたの助けfoは

Const ModelPrompt As String = "Input Car Model" 
Const ModelTitle As String = "Car Model" 

Const PricePrompt As String = "Input Car MSRP" 
Const PriceTitle As String = "Car MSRP" 


carModel = InputBox(ModelPrompt, ModelTitle) 
carPrice = InputBox(PricePrompt, PriceTitle) 

Do While carModel <> String.Empty _ 
AndAlso carPrice <> String.Empty 

    carListBox.Items.Add(carModel) 
    msrpListBox.Items.Add(carPrice) 

Loop 

Answer 1

をありがとう、私はあなたがあなたの全体のコードを投稿する必要があると思うコード私の友人

Const ModelPrompt As String = "Input Car Model" 
    Const ModelTitle As String = "Car Model" 

    Const PricePrompt As String = "Input Car MSRP" 
    Const PriceTitle As String = "Car MSRP" 

    Dim carModel As Object = InputBox(ModelPrompt, ModelTitle) 
    Dim carPrice As Object = InputBox(PricePrompt, PriceTitle) 

    If String.IsNullOrEmpty(carModel) = False And String.IsNullOrEmpty(carPrice) = False Then 
     ListBox1.Items.Add(carModel) 
     ListBox2.Items.Add(carPrice) 
    End If