发布网友 发布时间:2022-04-23 08:59
共2个回答
热心网友 时间:2023-10-08 23:43
Private Sub Combo1_Click()
'选择Combo中的一项后List中添加该项
List1.AddItem Combo1.Text
End Sub
Private Sub Form_Load()
'在Combo里添加一些数据做测试
For i = 1 To 10
Combo1.AddItem CStr(i)
Next
End Sub
Private Sub List1_DblClick()
'双击List中的一项删除该项
List1.RemoveItem (List1.ListIndex)
End Sub
热心网友 时间:2023-10-08 23:44
设置为1追问Private Sub Combo1_DblClick()
Print "双击"
End Sub
我设置完属性后,我双击组合框,怎么没有写出“双击”呢?
追答combo1的双击事件是指双击列表框的列表项,你把combo1纵向拉长点,然后运行时双击列表项就可以了
Private Sub Combo1_DblClick()
Print "双击"
End Sub
Private Sub Form_Load()
Combo1.List(0) = "剪切"
Combo1.List(1) = "复制"
End Sub