實(shí)驗(yàn)要求

掌握使用Picture1_MouseDown語句/Picture1_MouseUp，Picture1_MouseMove語句和Command Dialog的實(shí)現(xiàn)方法。

實(shí)現(xiàn)鼠標(biāo)畫圖程序。

編寫實(shí)驗(yàn)報(bào)告。

效果

清除畫布的代碼（本實(shí)驗(yàn)沒添加這個(gè)功能，留著備用）

Privte Sub Command2_Click()Picture1.Cls End Sub

代碼

Dim x1 As Integer Dim x2 As Integer Dim y1 As Integer Dim y2 As Integer Dim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = TrueCommonDialog1.DialogTitle = "顏色"CommonDialog1.ShowColorIf Err <> 32755 ThenPicture1.ForeColor = CommonDialog1.ColorEnd If End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = False End SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1 End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2 End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 3 End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 50 End SubPrivate Sub Picture1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)flag = Truex1 = xy1 = yPicture1.Line (x1, y1)-(x1 + 1, y1 + 1) End SubPrivate Sub Picture1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = xy2 = yPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd Sub Private Sub Picture1_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)flag = False End Sub

總結(jié)

以上是生活随笔為你收集整理的vb鼠标涂鸦板的制作的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。