Declare Function MoveToEx Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal pLastPoint As Long) As Long
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を指定可能。 |
戻り値は、関数の実行に成功したか否かを表す真偽値である。
'宣言の一部 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