Бақылау тақтасын Visual Basic -ке қалай қосу керек: 3 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:28

Жақсы, сондықтан бұл оңай естіледі, бірақ жаңадан бастаушыларда мұны қалай жасау керектігі мүлде жоқ. Бақылау тақталары пайдалы құрал бола алады. Бюджетті анықтаудан бастап, қанша отшашуды жаруға болатынын таңдауға дейін трек тақталарын қолдану өте оңай.

ЕСКЕРТПЕ: Біреу трек тақтасындағы орын санын көбейтуді біледі ме? Мен тек 11 аламын …

1 -қадам: Пішінді дайындаңыз

Бұл өте оңай. Бағдарламаңызға ұқсағысы келетін кезде жасаңыз. Мен арнайы ештеңе жасамаймын. Мен мәтіндік жәшіктің түсін өзгертетін нәрсе жасаймын. == Бақылау жолағын қосуды ұмытпаңыз !!! == ^{_{Иә, көп адамдар мұны ұмытады}}

2 -қадам: код

Сонымен, сіз пайдаланушы интерфейсін жасадыңыз, енді ше? Әрине код !! Жолақ жолағын екі рет басыңыз. 2 жолдың терезесі пайда болуы керек. Мынадай нәрсе:

Жеке қосалқы TrackBar1_Scroll (ByVal жіберуші ретінде System. Object, ByVal e ретінде System. EventArgs) TrackBar1 өңдейді. Енді біз құндылықтар туралы білеміз. Бұл жолақта біз тек 11 мәнді ала аламыз, 0-10. 0 мәні - сол жақта, 10 мәні - оң жақта. Түсіндіңіз бе? Әрі қарай жалғастырайық.

Өмірді жеңілдету үшін осы қадамдағы барлық мәтіндер код стилінде болады

Кодтың екі жолының арасына мынаны енгізіңіз: Егер TrackBar1. Value = placceavaluenumberhere ThenEnd If place if placeavaluenumberhere you want the value of the place that you want to the place. Енді кодтың 4 жолының арасында не істегіңіз келетінін теріңіз. Бұл жағдайда: TextBox1. BackColor = Color. BlackOnce әр орында қайталанатын әрекетті орындаңыз. Мен жасағаннан кейін ол келесідей көрінді: Жеке қосалқы TrackBar1_Scroll (ByVal жіберуші ретінде System. Object, ByVal e ретінде System. EventArgs) TrackBar1 өңдейді, егер TrackBar1. Value = 0 болса, онда TextBox1. BackColor = Color. Black End болса TrackBar1. Мән = 1 Содан кейін TextBox1. BackColor = Color. Wite ақ болса TrackBar1. Value = 2 болса, TextBox1. BackColor = Color. Red End болса TrackBar1. Value = 3 болса TextBox1. BackColor = Color. Blue End болса TrackBar1. Value = 4 Содан кейін TextBox1. BackColor = Түс. Сары соңы TrackBar1. Value = 5 болса, онда TextBox1. BackColor = Color. Purple End егер TrackBar1. Value = 6 болса TextBox1. BackColor = Color. Green End болса TrackBar1. Value = 7 болса TextBox1. BackColor = Color. Orange End егер TrackBar1. Value = 8 болса, TextBox1. BackColor = Color. Brown End болса TrackBar1. Value = 9 болса TextBox1. BackColor = Color. Wite ақ болса TrackBar1. Value = 10 болса TextBox1. BackColor = Color. With White End If Sub End

3 -қадам: Орындалды

Мен бәрібір болдым. Егер сіз бағдарламаны аяқтамаған болсаңыз, жалғастырыңыз. О, сәттілік! Бірақ бұл істі аяқтағандар үшін бұл қиын емес пе? Егер сіз қызық болсаңыз, қалпына келтіру және жабу коды:

Жеке қосалқы түйме2_Click (ByVal жіберуші System. Object ретінде, ByVal e ретінде System. EventArgs) Түймешікті өңдейді2. Аяқтау ішкі құпия қосалқы түймені аяқтау1_Click (ByVal жіберуші ретінде System. Object, ByVal e ретінде System. EventArgs) түймешіктерді өңдейді1. TrackBar1. Value басыңыз = 0 Соңы қосалқы