Нарисовать линию

[d3drm]

какой самый быстрый способ нарисовать линию в VB не используя DX или OpenGL? И будет ли он так же быстр, как DX?

[GSerg]

А чёрт его знает, какой самый быстрый. Попробуй метод Line. Попробуй API LineTo. Учти, что при толщине пера больше 1 пикселя рисование происходит медленнее.

[d3drm]

LineTo - рисует линию от той точки, где было закончено предыдущее рисование. Просто Line объекта-очень уж тормазнутый метод.

и где тот черт, у которого я могу найти ответ

[GSerg]

Так есть ещё movetoex, чтобы текущую точку передвинуть.

[Шурик]

Это еще медленней чем LineTo...

[ALX_2002]

2 all: Я думаю никто не будет против, если я тут пример кода дам ?

2 d3drm: Вот готовый пример. Копируй в пустую форму и запускай.

P.S Надеюсь это тебе подойдёт

Код: Выделить всё

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim DRAW As Boolean
Dim PT As POINTAPI
Private Sub Form_Load()
Me.ScaleMode = vbPixels
Me.ForeColor = vbRed
Me.DrawWidth = 3
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DRAW = True
Call MoveToEx(Me.hdc, X, Y, PT)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DRAW Then Call LineTo(Me.hdc, X, Y)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DRAW = False
End Sub