作者chrisjon (旅游/移动)
看板Visual_Basic
标题[VB6 ] 下拉式清单
时间Sat Apr 7 10:06:23 2012
因为太久没写程式，最近临时兴起想写一点简单的程式
然後…上马就遇到问题了XD
下拉1 name:form1
下拉2 name:number
我现在想做的是
下拉1 listindex=0时下拉2出现a组
下拉1 listindex=1时下拉2出现b组
只是我不管怎麽写，下拉2都不会变动
Private Sub Form_Load()
Dim a(1) As String
Dim b1(2) As String
Dim b2(1) As String
Dim ia As Byte
'规格
a(0) = "40'"
a(1) = "20'"
For ia = 0 To 1
form1.AddItem a(ia)
Next
form1.ListIndex = 0
'编号1
b1(0) = "01"
b1(1) = "02"
b1(2) = "03"
'编号2
b2(0) = "21"
b2(1) = "22"
End Sub
**
Private Sub form1_change()
Dim i, j As Byte
Select Case form1.ListIndex
Case Is = 0
For i = 0 To 4
number.RemoveItem b2(i)
Next
For i = 0 To 8
number.AddItem b1(i)
Next
Case Is = 1
For i = 0 To 8
number.RemoveItem b1(i)
Next
For i = 0 To 4
number.AddItem b2(i)
Next
End Select
End Sub
**
照理来讲，当下拉1改变时，应该就会触发第二组sub
然後根据form1.ListIndex的数值不同，改变下拉2里面的选项
可是不管我怎麽变动下拉1，下拉2就是不会动
是我哪里想错了吗?
感谢指正
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.40.122.190