用vb制作简单的画板

大佬教程收集整理的这篇文章主要介绍了用vb制作简单的画板，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Private Sub Form_Load()
Picture1.DrawWidth = HScroll1.Value
End Sub

Private Sub HScroll1_Change()
Picture1.DrawWidth = HScroll1.Value
End Sub

Private Sub Label0_Click(Index As Integer)
If Index = 4 Then
Form2.Show
Else
Picture1.ForeColor = Label0(IndeX).BACkColor
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As SinglE)
If Button = 1 Then Picture1.PSet (X,Y)
End Sub

Private Sub Command1_Click()
Form2.Hide
Form1.Picture1.ForeColor = Shape1.FillColor

End Sub

Private Sub Form_Load()

End Sub

Private Sub HScroll1_Change(Index As Integer)
Dim r As Integer,b As Integer,g As Integer
r = HScroll1(0).Value
g = HScroll1(1).Value
b = HScroll1(2).Value
Shape1.FillColor = RGB(r,g,b)

End Sub

Private Sub HScroll1_Scroll(Index As Integer)Call HScroll1_Change(IndeX)End Sub

大佬总结

以上是大佬教程为你收集整理的用vb制作简单的画板全部内容，希望文章能够帮你解决用vb制作简单的画板所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。