1,488
社区成员
发帖
与我相关
我的任务
分享Option Explicit
Private Sub Combo1_Click()
Label1.Caption = Combo1.List(Combo1.ListIndex)
End Sub
Private Sub Form_Load()
Combo1.AddItem "123"
Combo1.AddItem "456"
Combo1.AddItem "789"
Label1.Caption = Combo1.List(0)
End Sub