投稿日 | : 2003/07/17(Thu) 13:12 |
投稿者 | : ワニ丸 |
URL | : |
タイトル | : Re^4: 解決しました。 |
> 描画後 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
上記のように実行したところ、解決いたしました。
ありがとうございました。