1,453
社区成员




Dim listItem As listItem
Dim buff(0 To 4) As Integer
Dim DATASIZE As Integer
Dim temp() As String
Dim temp16() As String
Dim bytelen As Integer
Private Sub Command1_Click()
Dim i As Integer
buff(0) = 12
buff(1) = 13
buff(2) = 14
buff(3) = 15
buff(4) = 16
For i = 0 To 4
Set listItem = ListView1.ListItems.Add(, , "0X" + Hex(i))
listItem.SubItems(i) = Hex(buff(i))
Next i
End Sub