Declare Function LineTo Lib "gdi32" ( _ ByVal hDC As Long, _ ByVal XEnd As Long, _ ByVal YEnd As Long) As Long
描画後、現在位置は更新される。
引数の意味は以下の通り。
hDC | 描画先のデバイスコンテキストのハンドル |
XEnd | 直線の終点の水平座標 |
YEnd | 直線の終点の垂直座標 |
戻り値は、関数の実行に成功したか否かを表す真偽値である。
'宣言の一部 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