كيفية دمج شريط التتبع في Visual Basic: 3 خطوات

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:42

حسنًا ، يبدو هذا سهلاً ولكن المبتدئين لديهم فكرة مطلقة عن كيفية القيام بذلك. يمكن أن تكون أشرطة التتبع أدوات مفيدة. من تحديد الميزانية إلى اختيار عدد الألعاب النارية التي سيتم تفجيرها ، يكون استخدام أشرطة التتبع أمرًا سهلاً للغاية.

ملاحظة: هل يعرف أي شخص كيفية زيادة عدد الأماكن على شريط التتبع؟ يمكنني الحصول على 11 …

الخطوة 1: جهز النموذج الخاص بك

هذا سهل جدا. اصنع عندما تريد أن يبدو برنامجك. أنا لا أصنع أي شيء على وجه الخصوص. سأقوم بعمل شيء يغير لون مربع نص. == لا تنس إضافة شريط تعقب !!! == ^{_{نعم ، ينسى الكثير من الناس ذلك}}

الخطوة الثانية: الكود

لقد انتهيت من واجهة المستخدم الخاصة بك ، ماذا الآن؟ رمز بالطبع !! انقر نقرًا مزدوجًا فوق شريط التتبع. يجب أن يظهر سطرين من التعليمات البرمجية. شيء مثل:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object، ByVal e As System. EventArgs) يتعامل مع TrackBar1. Scroll End Subالآن نتعلم عن القيم. على شريط التتبع هذا ، يمكننا فقط الحصول على 11 قيمة ، 0-10. القيمة 0 هي أقصى اليسار بينما القيمة 10 هي أقصى اليمين. تلقيت ذلك؟ هيا لنذهب.

لجعل الحياة أسهل ، سيكون كل النص في هذه الخطوة من الآن فصاعدًا بنمط الكود

بين سطري الكود ، اكتب: If TrackBar1. Value = placceavaluenumberhere ThenEnd If الاستبدال placeavaluenumberhere مع رقم القيمة للمكان الذي تريده. الآن بين هذه الأسطر الأربعة من التعليمات البرمجية اكتب ما تريد القيام به. في هذه الحالة: TextBox1. BackColor = Color. Black بمجرد أن تنتهي من تكرار ذلك لكل مكان. عندما انتهيت من ذلك ، بدا الأمر كما يلي: Private Sub TrackBar1_Scroll (ByVal sender As System. Object ، ByVal e As System. EventArgs) القيمة = 1 ثم TextBox1. BackColor = Color. White End إذا إذا كان TrackBar1. Value = 2 ثم TextBox1. BackColor = Color. Red End If TrackBar1. Value = 3 ثم TextBox1. BackColor = Color. Blue End If TrackBar1. Value = 4 ثم TextBox1. BackColor = Color. Yellow End If إذا كان TrackBar1. Value = 5 ثم TextBox1. BackColor = Color. Purple End If TrackBar1. Value = 6 ثم TextBox1. BackColor = Color. Green End إذا كان TrackBar1. Value = 7 ثم TextBox1. BackColor = Color. Orange End If إذا كان TrackBar1. Value = 8 ثم TextBox1. BackColor = Color. Brown End If إذا كان TrackBar1. Value = 9 ثم TextBox1. BackColor = Color. White End إذا إذا كان TrackBar1. Value = 10 ثم TextBox1. BackColor = Color. White End إذا انتهى Sub

الخطوة 3: تم

حسنًا ، كنت على أي حال. إذا لم تكن قد انتهيت من البرنامج ، فاستمر. أوه ، ونتمنى لك التوفيق ولكن بالنسبة لأولئك الذين انتهوا ، حسنًا ، لم يكن ذلك صعبًا للغاية؟ وإذا كنت تتساءل ، فإن رمز إعادة التعيين والإغلاق هو:

Private Sub Button2_Click (ByVal sender As System. Object، ByVal e As System. EventArgs) مقابض Button2. انقر فوق End End Sub Private Sub Button1_Click (ByVal sender As System. Object، ByVal e As System. EventArgs) مقابض زر 1. انقر فوق TrackBar1. Value = 0 End Sub