投稿日 | : 2003/07/17(Thu) 12:39 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: 線を描画について |
描画後 Picture1.Refresh を実行して下さい。
Option Explicit
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
With Picture1
.AutoRedraw = True
.ScaleMode = vbPixels
End With
LineTo Picture1.hdc, 100, 100
Picture1.Refresh
End Sub