Option ExplicitPrivate Sub Combo1_Click() Label1.Caption = Combo1.ItemData(Combo1.ListIndex) End SubPrivate Sub Form_Load() Dim i As Integer For i = 97 To 103 Combo1.AddItem Chr(i) Combo1.ItemData(i - 97) = i - 96 Next
Option ExplicitDim myDataPrivate Sub Combo1_Click() Label1.Caption = myData(Combo1.ListIndex) End SubPrivate Sub Form_Load() Dim i As Long myData = Array("a", "b", "c", "d", "f") For i = 0 To UBound(myData) Combo1.AddItem myData(i) Next Combo1.Text = Combo1.List(0) Label1.Caption = myData(0) End Sub
Option ExplicitDim myData, myCaptionPrivate Sub Combo1_Click() Label1.Caption = myCaption(Combo1.ListIndex) End SubPrivate Sub Form_Load() Dim i As Long myData = Array("a", "b", "c", "d", "f") myCaption = Array("001", "002", "003", "004", "005")
For i = 0 To UBound(myData) Combo1.AddItem myData(i) Next Combo1.Text = Combo1.List(0) Label1.Caption = myCaption(0) End Sub
直接在click事件中,debug.print combo1.listindex+1
或者利用一下itemdata,方法很多.
先把前面的帖子结了再说吧......
Option ExplicitPrivate Sub Combo1_Click()
Label1.Caption = Combo1.ItemData(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 97 To 103
Combo1.AddItem Chr(i)
Combo1.ItemData(i - 97) = i - 96
Next
End Sub
combo1选项:国寿 ,海富通 , 增强 , 晚晴 , 稳健 , 计划 等选项
label1的对应显示:国寿 显示WQC001,海富通 显示WQS001,增强 显示WQX001 ,晚晴 显示WQ0001 ,稳健 显示JHDHA1 ,计划 显示020001 等等
还有好几个就不列了
这个循环能做么?还是只能用人肉模式?
Option ExplicitDim myDataPrivate Sub Combo1_Click()
Label1.Caption = myData(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Long
myData = Array("a", "b", "c", "d", "f")
For i = 0 To UBound(myData)
Combo1.AddItem myData(i)
Next
Combo1.Text = Combo1.List(0)
Label1.Caption = myData(0)
End Sub
Label1.Caption = myCaption(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
Dim i As Long
myData = Array("a", "b", "c", "d", "f")
myCaption = Array("001", "002", "003", "004", "005")
For i = 0 To UBound(myData)
Combo1.AddItem myData(i)
Next
Combo1.Text = Combo1.List(0)
Label1.Caption = myCaption(0)
End Sub