LineTo 直線の描画

VBの宣言:

Declare Function LineTo Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal XEnd As Long, _
    ByVal YEnd As Long) As Long

説明:

hDCで指定したデバイスコンテキストの現在位置から、(XEnd, YEnd)で指定される座標まで、直線を描画する。

描画後、現在位置は更新される。

引数の意味は以下の通り。
hDC 描画先のデバイスコンテキストのハンドル
XEnd 直線の終点の水平座標
YEnd 直線の終点の垂直座標

戻り値は、関数の実行に成功したか否かを表す真偽値である。

VBのサンプル:

LineToを利用して星型マークをピクチャボックスに描画する。
'宣言の一部
Declare Function MoveToEx Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal pLastPoint As Long) As Long

'星型マークの描画
Private Sub Command1_Click()
    Const PI As Single = 3.14159
    Const PointNum As Long = 5
    
    Dim X As Long
    Dim Y As Long
    
    Dim I As Long
    
    For I = 0 To PointNum
    
        X = Cos(2 * PI * I * 2 / PointNum) * 100 + 100
        Y = Sin(2 * PI * I * 2 / PointNum) * 100 + 100
        
        If I = 0 Then
            MoveToEx Picture1.hDC, X, Y, 0
        Else
            LineTo Picture1.hDC, X, Y
        End If
    
    Next
End Sub

(original text:1999/02/23 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。