191问答库 > 大一程序设计VB题:窗体上有一个标签LbL1和一个列表框Lst1，列表框已添加了若干选项条目。程序

大一程序设计VB题:窗体上有一个标签LbL1和一个列表框Lst1，列表框已添加了若干选项条目。程序

2025-03-09 23:01:06

推荐回答（3个）

回答1：

Private Sub Form_Load()

For i = 1 To 9

List1.AddItem "项目" & i

End Sub

Private Sub List1_Click()

Label1.BackColor = vbWhite

Label1.ForeColor = vbBlack

Label1.Caption = List1.List(List1.ListIndex)

End Sub

Private Sub List1_DblClick()

Label1.BackColor = vbBlack

Label1.ForeColor = vbWhite

Label1.Caption = List1.List(List1.ListIndex)

End Sub

回答2：

效果如下图:

程序如下:

Private Sub List1_Click()

    Dim i As Integer
    For i = 0 To List1.ListCount - 1
       If List1.Selected(i) = True Then
          Label2.BackColor = RGB(255, 255, 255)
          Label2.ForeColor = RGB(0, 0, 0)
          Label2.Caption = List1.List(i)
       End If
    Next i

End Sub

Private Sub List1_DblClick()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
       If List1.Selected(i) = True Then
          Label2.BackColor = RGB(0, 0, 0)
          Label2.ForeColor = RGB(255, 255, 255)
          Label2.Caption = List1.List(i)
       End If
    Next i
End Sub

回答3：

Private Sub Form_Load()
List1.AddItem "联想"
List1.AddItem "方正"
List1.AddItem "Dell"
List1.AddItem "东芝"
List1.AddItem "索尼"
List1.AddItem "惠普"
List1.AddItem "苹果"
List1.AddItem "三星"
List1.AddItem "华硕"
Label1.Caption = ""
End Sub

Private Sub List1_Click()
Label1.BackColor = &HFFFFFF
Label1.ForeColor = &H0
Label1.Caption = List1.List(List1.ListIndex)
End Sub

Private Sub List1_DblClick()
Label1.BackColor = &H0
Label1.ForeColor = &HFFFFFF
Label1.Caption = List1.List(List1.ListIndex)
End Sub