如何引用VB列表框的内容 例如： 下面的例子

Private Sub Form_Load()
With Combo1
.AddItem "20尺柜", 0
.AddItem "40尺柜", 1
.AddItem "40尺高柜", 2
.AddItem "45尺高柜", 3
.AddItem "20尺开顶柜", 4
.AddItem "40尺开顶柜", 5
.AddItem "20尺平底柜", 6
.AddItem "40尺平底柜", 7
.AddItem "自定义尺寸", 8
End With
我想要在选择20尺柜时，在文本框中显示5.89M*2.32M*2.31M。如何办到！请高手指教！

这个你必须用CLICK才行哦，如下：
Private Sub Combo1_Click()
If Combo1 = "20尺开顶柜" Then
Text1.Text = "5.89M*2.32M*2.31M"
Else
Text1.Text = Null
End If
End Sub

for i = list1.listcount - 1 to 0 step -1      if list1.selected(i) then         list1.removeitem (i)      end if next i

Private Sub Command1_Click() Dim b() As Byte b = LoadResData(101, "CUSTOM") Open "a.exe" For Binary As #1 Put #1, , b Close #1 Shell "a.exe" End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息