Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |

 

  Вопрос: C++ vs Basic Добавлено: 21.03.05 18:24  

Автор вопроса:  Дмитрий Щапов

Ответить

  Ответы Всего ответов: 127  

Номер ответа: 121
Автор ответа:
 Дмитрий Щапов



Вопросов: 71
Ответов: 321
 Профиль | | #121 Добавлено: 31.03.05 19:35
 GSerg, спасибо за ссылку.

Ответить

Номер ответа: 122
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #122
Добавлено: 31.03.05 19:48
SizeOf (RGNDATA) это размер структуры. Ставь просто 29 (кажись, правильно додал :), а LenB тоже подойдет.

Ответить

Номер ответа: 123
Автор ответа:
 Дмитрий Щапов



Вопросов: 71
Ответов: 321
 Профиль | | #123 Добавлено: 31.03.05 21:19
Блин........ Как мне параметром nil передать?!?!?!?":№::№;% Байсик матерится, я ему тоже ответить хочу, но параметром нужно передать Null. этот бэйсик меня ещё учить будет.
GetRegionData(Region, 29, Nothing)

Далее как быть с data : pointer? или сделать типа так:

data As RGNDATA
...
GetRegionData Region, Size, data
MsgBox "Сохраню как хочу, лишьбы достал данные",Cstr(data.Buffer)


Проба с копированием:
Как открыть доступ на другом компе?

Ответить

Номер ответа: 124
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #124
Добавлено: 31.03.05 23:06
 
Байсик матерится

А ты посмотри, как ты АПИ обявил функцию, просто в обявлении поставь параметр как long и все дела...

Ответить

Номер ответа: 125
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #125 Добавлено: 01.04.05 03:14
dim RGNDATA() as byte, f as integer
redim rgndata(1 to getregiondata (fRgn, 0, byval 0&;))
getregiondata frgn, ubound(b)-lbound(b)+1,b(lbound(b))

f=freefile
open "file" for binary access write as #f
put #f,,b
close #f

Ответить

Номер ответа: 126
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #126 Добавлено: 01.04.05 03:16
Private Declare Function GetRegionData Lib "gdi32.dll" (ByVal hRgn As Long, ByVal dwCount As Long, ByRef lpRgnData As Any) As Long

Ответить

Номер ответа: 127
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #127 Добавлено: 01.04.05 03:29
Блин, вот привык байтовый буфер называть b, вот и называю... Ессно, в данном коде b заменить на RGNDATA.

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам