vb这一题关于列表框的题目怎么写?

2025-04-03 00:01:21
推荐回答(1个)
回答(1):

Private Sub Command1_Click()
Text1.Text = List1.ListCount
Text2.Text = List1.List(List1.ListIndex)
Text3.Text = List1.ListIndex
End Sub

Private Sub Form_Load()
With List1
.AddItem ("A")
.AddItem ("BB")
.AddItem ("CCC")
.AddItem ("DDDD")
.AddItem ("EEEEE")
.AddItem ("FFFFFF")
.AddItem ("GGGGGGG")
End With
End Sub