| Вопрос: Графика!!!Срочняк!!!! | Добавлено: 27.08.02 11:50 |
Автор вопроса:  Dok | Web-сайт: www.dulevo.ru | ICQ: 261977520 |
|
Сделайте доброе дело!!! как нарисовать линию на экране с указанием координат начала и конца, цвета линии, толщины линии. как можно подробнее можно с примером буду очень благодарен!!!!! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  SAVok ICQ: 155153916 Вопросов: 2 Ответов: 126 |
Профиль | | #1 | Добавлено: 27.08.02 16:18 |
|
На экране или в контроле? И вообще понятия на экране в винде нет... оконный интерфейс, понимаешь ли... вобщем все рисунки ток-мо в окнах... хотя нет можно и наэкране - через прямой доступ к памяти видеоадаптера, но к тож тебя туда в Винде пустит... будет нарушение прав доступа к памяти. |
||
|
Номер ответа: 2 Автор ответа:  Раф Вопросов: 0 Ответов: 8 |
Профиль | | #2 | Добавлено: 28.08.02 07:01 |
|
Чето ты ерунду сказал... Челу похоже на десктопе нарисовать надо... Поверх всех окон. Вот пример с (VBStreets кажется...) ---------------- это в модуль ------------------------- Type POINTAPI x As Long y As Long End Type Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Public Sub DrawLine(StartX As Long, StartY As Long, EndX As Long, EndY As Long, LineStyle As Long, LineWidth As Long, LineColor As Long) Dim Pnt As POINTAPI, y As Boolean, PenHND As Long, z As Long DeskTopDc = GetWindowDC(GetDesktopWindow) PenHND = CreatePen(LineStyle, LineWidth, LineColor) z = SelectObject(DeskTopDc, PenHND) y = MoveToEx(DeskTopDc, StartX, StartY, Pnt) y = LineTo(DeskTopDc, EndX, EndY) End Sub ------------------- это куда хошь DrawLine 100, 100, 300, 300, vbSolid, 1, vbRed |
||
|
Номер ответа: 3 Автор ответа: Гибыч Вопросов: 1 Ответов: 58 |
Профиль | | #3 | Добавлено: 28.08.02 16:24 |
|
Так то РАф если не в кипяток: Десктоп - это тоже окно |
||
))|
Номер ответа: 4 Автор ответа:  РафВопросов: 0 Ответов: 8 |
Профиль | | #4 | Добавлено: 28.08.02 18:58 |
|
Дык по сути-то да! Но чтобы нарисовать на нем линию не нужно качать геморой с видеопамятью! |
||
Страница: 1 |