توضح هذه المقالة مثالاً للرسم بالماوس في VB. يدرك هذا المثال أنه يمكن تخصيص لون الخط وعرض الخط عند الضغط على زر الماوس، يبدأ الرسم ويتم تسجيل نقطة البداية الأولية إذا لم تكن في حالة الرسم ، سيتم الخروج من العملية، في حالة الرسم، يتم رسم خط مستقيم من نقطة البداية إلى نقطة الماوس الحالية، ثم يتم استخدام نقطة الماوس الحالية كنقطة بداية جديدة. وينتهي الرسم عند تحرير زر الماوس .
رموز الوظائف المحددة هي كما يلي:
VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"Begin VB.Form Form1 Caption = "Mouse draw" ClientHeight = 6420 ClientLeft = 60 ClientTop = 345 ClientWidth = 7710 LinkTopic = "Form1" ScaleHeight = 6420 ScaleWidth = 7710 StartUpPosition = 3 'النافذة الافتراضية Begin VB.CommandButton Command2 Caption = "Clear" Height = 495 Left = 5640 TabIndex = 7 Top = 1440 Width = 1335 End Begin VB.Frame Frame1 Caption = "عرض الخط" الارتفاع = 2655 يسار = 5520 TabIndex = 2 أعلى = 2880 عرض = 1935 بداية VB.OptionButton Option4 تسمية توضيحية = "8" ارتفاع = 495 يسار = 240 TabIndex = 6 أعلى = 1800 عرض = 1215 نهاية بداية VB.OptionButton Option3 تسمية توضيحية = "4" ارتفاع = 375 اليسار = 240 TabIndex = 5 الأعلى = 1320 العرض = 1335 بداية النهاية VB.OptionButton Option2 التسمية التوضيحية = "2" الارتفاع = 375 اليسار = 240 TabIndex = 4 الأعلى = 840 العرض = 1095 بداية النهاية VB.OptionButton Option1 التسمية التوضيحية = "1" الارتفاع = 255 اليسار = 240 TabIndex = 3 الأعلى = 480 قيمة = -1 'العرض الحقيقي = 1335 بداية نهاية النهاية VB.CommandButton Command1 Caption = "تعيين اللون" الارتفاع = 495 يسار = 5640 TabIndex = 1 أعلى = 600 عرض = 1215 نهاية بداية MSComDlg.CommonDialog CommonDialog1 يسار = 4200 أعلى = 3840 _ExtentX = 847 _ExtentY = 847 _Version = 393216 نهاية البداية VB.PictureBox Picture1 الارتفاع = 5535 اليسار = 480 ScaleHeight = 5475 ScaleWidth = 4515 TabIndex = 0 الأعلى = 480 Width = 4575 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAt تحية VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Expose = FalseDim x1 كعدد صحيح 'نقطة البداية X إحداثي Dim y1 كعدد صحيح' نقطة البداية Y إحداثي Dim x2 كعدد صحيح 'نقطة النهاية X إحداثي Dim y2 كعدد صحيح' نقطة النهاية Y تنسيق علامة خافت كرسم منطقي إعداد العلم خط colorPrivate Sub Command1_Click() عند خطأ في استئناف التالي CommonDialog1.CancelError = صحيح CommonDialog1.DialogTitle = "اللون" CommonDialog1.ShowColor إذا كان الخطأ <> 32755 ثم Picture1.ForeColor = CommonDialog1.Color End IfEnd Sub'مسح الرسومات في Picture1 Private Sub Command2_Click() Picture1.ClsEnd Sub'تعيين الخط العرض خيار فرعي خاص1_Click() Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click() Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click() Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click() Picture1.DrawWidth = 8End SubPrivate Sub Form_Load() Picture1.Scale (0, 0)-(400, 400) ) العلم = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)'عند الضغط على زر الماوس، يبدأ الرسم ويسجل علامة نقطة البداية الأولية = True x1 = X y1 = YEnd SubPrivate Sub Picture1_MouseMove(Button كعدد صحيح، Shift كعدد صحيح، _X كمفرد، Y كـ فردي)'إذا لم تكن في حالة الرسم، فاخرج من العملية'إذا كنت في حالة الرسم، ارسم خطًا مستقيمًا من نقطة البداية إلى نقطة الماوس الحالية'ثم استخدم نقطة الماوس الحالية كنقطة بداية جديدةإذا كانت العلامة = خطأ ثم اخرج من النهاية الفرعية إذا كانت العلامة = صحيح ثم x2 = عدد صحيح، Shift As Integer، _X As Single، Y As Single)' ينتهي الرسم عند تحرير زر الماوس العلم = FalseEnd Subهناك تعليقات مفصلة نسبيًا في البرنامج، وأعتقد أنه سيكون من السهل على القراء فهمها.