из некого буфера (buferS) набиваются данные в ListView
- Код: Выделить всё
Dim CountModules As Integer
Dim AAa As Integer
Dim ItmM As ListItem
Dim XXX As Integer
Dim HID As String
Dim MoDnAmE As String
Dim ModStart As String
Dim ModLen As String
Dim ModCyl As String
Dim ModGroup As String
CountModules = (BuferS(&H16) * 16)
For AAa = 1 To CountModules Step 16
Set ItmM = lw1.ListItems.Add(, , "", , 1)
ItmM.Checked = True
HID = Str(BuferS(AAa + &H21))
If Val(HID) < 16 Then HID = "0" + Hex(HID) Else HID = Hex(HID)
ItmM.SubItems(1) = HID
MoDnAmE = Chr$(BuferS(AAa + &H22)) + _
Chr$(BuferS(AAa + &H23)) + Chr$(BuferS(AAa + &H24)) + _
Chr$(BuferS(AAa + &H25)) + Chr$(BuferS(AAa + &H26)) + _
Chr$(BuferS(AAa + &H27)) + Chr$(BuferS(AAa + &H28)) + _
Chr$(BuferS(AAa + &H29))
ItmM.SubItems(2) = MoDnAmE
--->>>> вот в этом месте мне нужно сделать обьявление массива
с именем MoDnAmE, чтоб у меня в памяти выросла кучка массивов с вполне определенными (MoDnAmE) именами
т.е. что то типа Dim (MoDnAmE) (на 20 элементов) As Byte
- Код: Выделить всё
ModStart = Hex(BuferS(AAa + &H2A)) + Hex(BuferS(AAa + &H2B))
If Len(ModStart) < 3 Then ModStart = "0" + ModStart
ItmM.SubItems(3) = ModStart
ModLen = Hex(BuferS(AAa + &H2C)) + Hex(BuferS(AAa + &H2D))
If Len(ModLen) < 3 Then ModLen = "0" + ModLen
ItmM.SubItems(4) = ModLen
ModCyl = Hex(BuferS(AAa + &H2E))
If Len(ModCyl) = 1 Then ModCyl = "0" + ModCyl
ItmM.SubItems(5) = ModCyl
ModGroup = Hex(BuferS(AAa + &H2F))
If Len(ModGroup) = 1 Then ModGroup = "0" + ModGroup
ItmM.SubItems(6) = ModGroup
ItmM.SubItems(7) = ""
Next AAa
и чего то не могу сообразить как.
подскажите люди добрые