根據列表框選擇更改標籤標題

Question

根據用戶在列表框中選擇的內容更改標籤名稱的最佳方式是什麼？ 到目前爲止，我有這樣的：

Private Sub Label6_Click() 
    Dim lItem As Long 
    For lItem = 0 To ListBox1.ListIndex <> -1 
     If ListBox1.Selected(lItem) = "AAA" Or "BBB" Then 
      Me.Label6.Caption = "Select Graphite" 
     Else 
      Me.Label6.Caption = "Select Oil System" 
     End If 
    Next lItem 
End Sub 

遺憾的是它不工作，我缺少什麼？ 謝謝！

Answer 1

除非你的列表框是多選，你不通過它需要循環：

Private Sub Label6_Click() 
    Dim lItem As Long 
    lItem = ListBox1.ListIndex 
    If lItem <> -1 then 
     Select Case ListBox1.List(lItem) 
      Case "AAA", "BBB" 
       Me.Label6.Caption = "Select Graphite" 
      Case Else 
       Me.Label6.Caption = "Select Oil System" 
     End Select 
    End If 
End Sub