Для начала я решил скопировать этот listbox, но получил лишь единицы
- Код: Выделить всё
Dim c As Long
Dim LWnd As Long
LWnd = List1.hwnd
Const LB_GETCOUNT = &H18B
Const LB_GETTEXT = &H189
Const LB_ADDSTRING = &H180
Dim numitems As Long
Dim sItemText As String * 255
numitems = SendMessageLong(2621620, LB_GETCOUNT, 0&, 0&)
If numitems > 0 Then
For c = 0 To numitems - 1
Call SendMessageStr(2621620, LB_GETTEXT, c, ByVal sItemText)
Call SendMessageStr(LWnd, LB_ADDSTRING, 0&, ByVal sItemText)
[Viper] :: Таки пользуемся тэгом CODE!