vbAddItem语法错误

更新时间2018-09-30 07:40:58

Private Sub Timer1_Timer()

 

Dim i As Long, lPid As Long

Dim Proc As PROCESSENTRY32

Dim hSnapShot As Long

 List1.Clear

 hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)

 Proc.dwSize = Len(Proc)

 lPid = ProcessFirst(hSnapShot, Proc)

 i = 0

 Do While lPid <> 0

 List1.AddItem( "a" & i,[Hex(Proc.th32ProcessID)]

 List1.AddItem("a" & i).SubItems(1) = Proc.szExeFile

 i = i + 1

 lPid = ProcessNext(hSnapShot, Proc)

 Loop

 CloseHandle hSnapShot

End Sub

 

End Sub

 List1.AddItem( "a" & i,[Hex(Proc.th32ProcessID)]

正确的为

 List1.AddItem( "a" & i),[Hex(Proc.th32ProcessID)]

还是有些错误的