这个怎么整

Question

Combo1是控件组，0和1为什么写到Combo1下就不好使，不论我点击Combo1(0)或Combo1(1)都想让他运行
Private Sub Combo1_Change(Index As Integer)
         Label4.Caption = Abs(Right(Combo1(0).Text, 3) - Right(Combo1(1).Text, 3)) 
End Sub写到按键下就好使，该如何改
Private Sub Command1_Click()
      Label4.Caption = Abs(Right(Combo1(0).Text, 3) - Right(Combo1(1).Text, 3))
End Sub

Answer 1

Private Sub Combo1_Click()
Label4.Caption = Abs(Right(Combo1(0).Text, 3) - Right(Combo1(1).Text, 3)) 
End Subcombo的click事件实际是combo的Item_Click事件,也就是当你选择列表中的一项时触发代码.
combo不可编辑以上代码可用.combo是可编辑的,那么以上代码会带来问题.

Answer 2

Private Sub Combo1_Change(Index As Integer)
Combo1_Click (0)End SubPrivate Sub Combo1_Click(Index As Integer)
Label4.Caption = Abs(Val(Right(Combo1(0).Text, 3)) - Val(Right(Combo1(1).Text, 3)))
 End SubPrivate Sub Form_Load()
For I = 0 To 1
For J = 0 To 20
Combo1(I).AddItem J + 123456
Next
Next
End Sub