MoveToEx 現在位置の更新

現在位置を受け取るバッファをアドレス値で指定する場合のVBの宣言：

Declare Function MoveToEx Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal pLastPoint As Long) As Long

現在位置を受け取るバッファを参照で指定する場合のVBの宣言：

Declare Function MoveToEx Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByRef LastPoint As POINT) As Long

説明：

引数の意味は以下の通り。

hDC	(IN)	設定先のデバイスコンテキストのハンドル。
X	(IN)	新規に設定する現在位置の水平座標。
Y	(IN)	新規に設定する現在位置の垂直座標。
LastPoint	(OUT)	設定前の現在位置。NULLを指定可能。

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

VBのサンプル：

'宣言の一部
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()
    Dim I As Long
    
    For I = 1 To 10000
        MoveToEx Picture1.hDC, Rnd * 200, Rnd * 200, 0
        LineTo Picture1.hDC, Rnd * 200, Rnd * 200
    Next
End Sub