问 junwhj 怎样用API中的LineTo等函数来画线条？能给个例子吗？

Question

怎样用API中的LineTo等函数来画线条？能给个例子吗？[email protected]

Answer 1

用VB中提供的LINE函数就可以了,用API干什么!

Answer 2

用API是为了获得最好的运行速度。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 TypePrivate Sub Command1_Click()
    Dim pt As POINTAPI
        
    '画边框
    MoveToEx Me.hdc, 100, 100, pt
    LineTo Me.hdc, 200, 100
    LineTo Me.hdc, 200, 200
    LineTo Me.hdc, 100, 200
    LineTo Me.hdc, 100, 100
    
    '画对角线
    LineTo Me.hdc, 200, 200
    MoveToEx Me.hdc, 100, 200, pt
    LineTo Me.hdc, 200, 100
    
    Me.Refresh
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3
End Sub

Answer 3

junwhj(www.grid2000.com/cn) ：在打印机或者在打印对象里（printer）里可以调用LineTo或者MoveToEx实现真实打印线吗？

Answer 4

printer本来就可以打印line啊

Answer 5

可以。Printer.ScaleMode = 3
MoveToEx Printer.hdc, 100, 200, pt
LineTo Printer.hdc, 200, 100