投稿日 | : 2005/01/28(Fri) 17:26 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 特定の線だけを消す方式を教えてください |
こういう事でいいのでしょうか?
Command1 を実行後 Command2 Command3 と順次クリックして見てください。
Private Sub Form_Load()
With Picture1
.AutoRedraw = True
.ScaleMode = vbPixels
.DrawMode = vbXorPen
.DrawStyle = vbSolid
.DrawWidth = 10
.ForeColor = BackColor
End With
End Sub
Private Sub Command1_Click()
Picture1.Line (10, 10)-(200, 100), QBColor(11)
Picture1.Line (100, 20)-(190, 140), QBColor(14)
Picture1.Line (30, 100)-(220, 100), QBColor(13)
End Sub
Private Sub Command2_Click()
Picture1.Line (30, 100)-(220, 100), QBColor(13)
End Sub
Private Sub Command3_Click()
Picture1.Line (100, 20)-(190, 140), QBColor(14)
End Sub
# .NET で同様の事がやりたかったのだが、vbXorPen に変るものが見つからず・・・・・