Question

用vb制作一个简单画板，要求很简单

小弟分不多...希望懂vb的人帮帮我~~~就是制作一个画板程序========================功能包括:1.鼠标按住左键,可以画出轨迹2.轨迹粗细或大小可以选择3.可以清除轨迹4.带橡皮擦功能5.点击保存能够把画出的图片保存下来==========================请大家帮帮忙 ~~~~这里写不下,可以发到我的邮箱~谢谢~~860485645@qq.com
还要可以改变画板的前景色。

Answer 1

Dim yanse
Dim xiankuan
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
SavePicture Picture1.Image, App.Path & "\aa.bmp"
End Sub
Private Sub Form_Load()
xiankuan = 50
End Sub
Private Sub Command1_Click(Index As Integer)
yanse = Command1(Index).BackColor
End Sub
Private Sub Option1_Click(Index As Integer)
xiankuan = 50
Select Case Index
Case 0
k = 1
Case 1
k = 3
Case 2
k = 5
Case 3
k = 8
Case 4
k = 10
Case 5
k = 15
End Select
xiankuan = xiankuan * k
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
a = X
b = Y
Picture1.Line (a, b)-(X + xiankuan, Y + xiankuan), yanse, BF
a = X
b = Y
End If
End Sub