Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Графика!!!Срочняк!!!! Добавлено: 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 |

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



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