Artikel ini menjelaskan contoh menggambar mouse di VB. Contoh ini menyadari bahwa warna garis dan lebar garis dapat disesuaikan. Saat tombol mouse ditekan, gambar dimulai dan titik awal dicatat , proses akan keluar. Dalam keadaan menggambar, garis lurus ditarik dari titik awal ke titik mouse saat ini, dan kemudian titik mouse saat ini digunakan sebagai titik awal yang baru. Gambar berakhir ketika tombol mouse dilepaskan .
Kode fungsi spesifiknya adalah sebagai berikut:
VERSI 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Mulai VB.Form Form1 Caption = "Gambar mouse" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 'Jendela default Mulai VB.CommandButton Command2 Caption = "Hapus" Tinggi = 495 Kiri = 5640 TabIndex = 7 Atas = 1440 Lebar = 1335 Akhir Mulai VB.Frame Frame1 Caption = "Lebar garis" Tinggi = 2655 Kiri = 5520 TabIndex = 2 Atas = 2880 Lebar = 1935 Mulai VB.OptionButton Option4 Caption = "8" Tinggi = 495 Kiri = 240 TabIndex = 6 Atas = 1800 Lebar = 1215 Akhir Mulai VB.OptionButton Option3 Caption = "4" Tinggi = 375 Kiri = 240 TabIndex = 5 Atas = 1320 Lebar = 1335 Akhir Mulai VB.OptionButton Option2 Caption = "2" Tinggi = 375 Kiri = 240 TabIndex = 4 Atas = 840 Lebar = 1095 Akhir Mulai VB.OptionButton Option1 Caption = "1" Tinggi = 255 Kiri = 240 TabIndex = 3 Teratas = 480 Nilai = -1 'True Lebar = 1335 Akhir Akhir Mulai VB.CommandButton Command1 Caption = "Atur Warna" Tinggi = 495 Kiri = 5640 TabIndex = 1 Atas = 600 Lebar = 1215 Akhir Mulai MSComDlg.CommonDialog CommonDialog1 Kiri = 4200 Atas = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 Akhir Mulai VB.PictureBox Picture1 Tinggi = 5535 Kiri = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 Atas = 480 Lebar = 4575 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Expose = FalseDim x1 Sebagai Integer 'Titik awal koordinat X Redupkan y1 Sebagai Integer 'Titik awal koordinat Y Redupkan x2 Sebagai Integer 'Titik akhir koordinat X Redupkan y2 Sebagai Integer 'Titik akhir koordinat Y Redupkan bendera Sebagai Boolean 'Gambar flag' setting Line colorPrivate Sub Command1_Click() Pada Error Resume Next CommonDialog1.CancelError = Benar CommonDialog1.DialogTitle = "Warna" CommonDialog1.ShowColor If Err <> 32755 Kemudian Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'Hapus grafik di Picture1 Private Sub Command2_Click() Picture1.ClsEnd Sub'Set baris lebar Sub Pribadi Option1_Click() Gambar1.DrawWidth = 1Akhir Opsi Sub SubPrivate2_Click() Gambar1.DrawWidth = 2Akhir Opsi Sub SubPrivate3_Click() Gambar1.DrawWidth = 4Akhiri Sub Opsi SubPrivate4_Click() Gambar1.DrawWidth = 8Akhir SubPrivate Sub Form_Load() Gambar1.Scale (0, 0)-(400, 400 ) bendera = FalseEnd SubPrivate Sub Picture1_MouseDown(Tombol Sebagai Integer, Shift As Integer, _X As Single, Y As Single)'Saat tombol mouse ditekan, gambar dimulai dan mencatat titik awal awal flag = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button Sebagai Integer, Shift Sebagai Integer, _X Sebagai Tunggal, Y Sebagai Single)'Jika Anda tidak dalam keadaan menggambar, keluar dari proses'Jika Anda dalam keadaan menggambar, tarik garis lurus dari titik awal ke titik mouse saat ini'Kemudian gunakan titik mouse saat ini sebagai titik awal yang baruJika bendera = False Lalu Keluar dari Sub End Jika If flag = Benar Maka x2 = Integer, Shift As Integer, _X As Single, Y As Single)' Penggambaran berakhir saat tombol mouse dilepaskan flag = FalseEnd SubTerdapat komentar yang relatif detail dalam program ini, saya yakin pembaca akan mudah memahaminya. Pembaca dapat memodifikasi program sesuai dengan preferensinya agar lebih sempurna!