求助用vb.net2005 画图问题

sanghao505 发布于 2007-10-28 11:35， 421 次点击

老师让我们做一个画图工具。。我不知道如何在textbox上添加画布。。。还有怎么在菜单上关联出铅笔的功能。。。
求各位大侠帮助

1 回复

yanligangylg2007-10-28 16:10

前面需要定义
Dim flag1 As Boolean

Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag1 = True
End Sub

Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If flag1 = True
对象.DrawWidth = 线条宽度
对象.PSet (X, Y), 颜色
End If
End Sub