Yahoo Messenger AD. Hider (For v.11.5)

Yahoo! Messenger廣告隱藏程式（即時通版本11.5適用）

按我下載

預覽圖

VB取得ListBox選取項目的值、勾取項目的值

選取項目：

VB2008：

If ListBox1.SelectedIndex = -1 Then
    Exit Sub
End If
MsgBox (ListBox1.Items(ListBox1.SelectedIndex))

VB6：

If List1.ListIndex = -1 Then
    Exit Sub
End If
MsgBox List1.List(List1.ListIndex)

勾取項目：

VB2008：

If CheckedListBox1.CheckedItems.Count = 0 Then
    Exit Sub
End If
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
    MsgBox(CheckedListBox1.CheckedItems.Item(i))
Next