listbox与WMI进程的综合应用

首先添加引用:点击"工程"-"部件"-

再添加下面控件

再在代码里输入下面代码:

Dim i As Integer

Private Sub Check1_Click()
If Check1.Value = 1 Then
For j = 0 To List1.ListCount - 1
List1.Selected(j) = True
Next j
Else
MsgBox "没有了"
End If
End Sub

  

Private Sub Form_Load()

List1.Clear

Enum1

End Sub

Private Function Enum1() As String
Dim WMI
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
For Each obj In objs
Enum1 = obj.Description
List1.AddItem Enum1
Next
End Function

Private Sub List1_Click()
Call add
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Button = 2 And List1.ListIndex <> -1) Then

MsgBox List1.Text

End If

End Sub
Private Sub add()
Dim aa As String

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then

Text1.Text = List1.List(i)
End If

Next i
End Sub