На голову не залазет... Ж)
Есть поле 2 столбца * 3 ячейки в столбце
Загоняю площадь в массив, получается
redim MyArray(5) as PointAPI
массив от 0 до 5
при вызове MyArray(i)
мне нужно в зависимости от i (0-5) задать массиву координаты ячеек по x и y.
Голову сломал.(с математикой не дружу(а жаль...))
пробовал так
x=i\6
y=i\2
(Фигня получаеся(блин))
Вопрос2:
Не получается найти позиции (по x,y) иконок на рабочем столе
Пишу вот такой код:
- Код: Выделить всё
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam _
As Any) As Long
Const LVM_FIRST = &H1000
Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)
Const LVM_SETITEMPOSITION& = (LVM_FIRST + 15)
Const LVM_GETITEMPOSITION = (LVM_FIRST + 16)
Const LVM_GETITEMTEXT = (LVM_FIRST + 45)
dim IconPosition() as POINTAPI
Public sub FindIcon()
dim hdesk&,icount%,XY as POINTAPI,i%
hdesk = FindWindow("progman", vbNullString)
hdesk = FindWindowEx(hdesk, 0, "shelldll_defview", vbNullString)
hdesk = FindWindowEx(hdesk, 0, "syslistview32", vbNullString)
icount = SendMessage(hdesk, LVM_GETTITEMCOUNT, 0, 0&)
ReDim IconPosition(icount) As POINTAPI
for i = 0 to icount-1
Call SendMessage(hdesk, LVM_GETITEMPOSITION, i,IconPosition(i))
debug.print IconPosition(i).X,IconPosition(i).Y
next i
end sub
Кол-во иконок находит, а вот при нахождении их позиции винда (XP)выводит ошибку:
AppName: explorer.exe AppVer: 6.0.2800.1106 ModName: comctl32.dll
ModVer: 6.0.2800.1106 Offset: 0004f8e6
не могу понять в чём дело???
Вопрос 3
Не посчитайте меня полным дебилом:)
Где люди находят константы кроме как в текстовом файле с айпишками
в стандартном наборе.
допустим такую искал не нашел...
Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)
(в чём фишка.Может гдето можно скачать расширинные листы констант,айпишек,типов??? если да? Подскажите буду признателен!!!)
Всем кто хоть немного поможет ОГРОМНОЕ СПАСИБО!!!!
