| Вопрос: To sne | Добавлено: 25.05.04 13:12 |
Автор вопроса:  TX | ICQ: 139150044 |
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа: TX ICQ: 139150044 Вопросов: 9 Ответов: 44 |
Профиль | | #16 | Добавлено: 28.05.04 11:27 |
|
после end sub -
я там забыл стереть |
||
|
Номер ответа: 17 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #17 | Добавлено: 28.05.04 13:23 |
|
Сложно ориентироваться в неотформатированном коде, вот что должно быть... по идее:
Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Type POINTAPI x As Long y As Long End Type Dim i as long, j as long Dim cArray() as POINTAPI with picture1 For i = 0 To Me.Width / Screen.TwipsPerPixelX For j = Me.Height / Screen.TwipsPerPixelY To 0 Step &HFFFF ' - для снизу вверх ' For j = 0 To Me.Height / Screen.TwipsPerPixelY ' - для сверху вниз if GetPixel(.hdc, i, j) = 0& then redim cArray(LUBound(cArray) + vbNull) cArray(UBound(cArray)).X = i cArray(UBound(cArray)).Y = j end if next next end with private function LUBound(inArray as POINTAPI) as long on error resume next LUBound = &HFFFF LUBound = UBound(inArray) end function |
||
|
Номер ответа: 18 Автор ответа: TXICQ: 139150044 Вопросов: 9 Ответов: 44 |
Профиль | | #18 | Добавлено: 28.05.04 13:30 |
|
For j = 0 To Me.Height / Screen.TwipsPerPixelY ' - для сверху вниз
вот это наверное для слева на право |
||