柬埔寨一日游:在VB中,如何导入画板的做的位图,

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 21:56:46
如何将位图中的数据读入到缓冲中..
如果想要在VB中自己做一个小画板,VB 中是否有相应的控件

可以用鼠标的属性方法来做的。比如在form上画图的一段代码我们可以这样写:

'首先在窗体层定义如下变量:
dim paintNow As Boolean
'编写如下事件过程
Private Sub Form_DblClick()
Cls '双击清除
End Sub

Private Sub Form_Load()
DrawWidth = 2'使用加宽的刷子(当然,可以根据需要用其它大小,也可以用控件更改它)
ForeColor = RGB(0, 0, 255) '设置颜色(同样可以更改)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintNow = True '允许画图
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PaintNow Then
PSet (X, Y) '画一个点
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintNow = False '禁止画图
End Sub

读取位图可以用loadpicture("路径")语句搞定