Ինչպես ինտեգրել Trackbar- ը Visual Basic- ում `3 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:52

Լավ, այնպես որ սա հեշտ է հնչում, բայց սկսնակները բացարձակապես չգիտեն, թե ինչպես դա անել: Հետագծերը կարող են օգտակար գործիքներ լինել: Բյուջեի որոշում կայացնելուց մինչև հրավառության պայթյունի ընտրությունը, հետագծերի օգտագործումը շատ հեշտ է:

ՈEՇԱԴՐՈԹՅՈՆ. Արդյո՞ք որևէ մեկը գիտի, թե ինչպես ավելացնել trackbar- ում տեղերի քանակը: Ես կարող եմ ստանալ ընդամենը 11…

Քայլ 1: Պատրաստեք ձեր ձևը

Սա բավականին հեշտ է: Ստեղծեք այն ժամանակ, երբ ցանկանում եք, որ ձեր ծրագիրը նման լինի: Ես առանձնապես ոչինչ չեմ պատրաստում: Ես պատրաստելու եմ մի բան, որը փոխում է տեքստային տուփի գույնը: == Չմոռանաք ավելացնել trackbar !!! == ^{_{Այո, շատերը դա մոռանում են}}

Քայլ 2: Կոդ

Այսպիսով, դուք կատարե՞լ եք ձեր ինտերֆեյսը: Հիմա ի՞նչ: Իհարկե, կոդ !! Կրկնակի կտտացրեք շղթան: Կոդի 2 տող պետք է հայտնվի: Նման մի բան:

Private Sub TrackBar1_Scroll (ByVal ուղարկողը ՝ որպես System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Srolroll End SubԱյժմ մենք սովորում ենք արժեքների մասին: Այս տողում մենք կարող ենք ստանալ միայն 11 արժեք ՝ 0-10: 0 արժեքը ձախից է, իսկ 10 -ը ՝ աջից: Հասկացա՞ր: Եկեք առաջ շարժվենք:

Այս քայլով այսուհետ կյանքը հեշտացնելու համար այսուհետ բոլոր տեքստերը կլինեն կոդի ոճով

Կոդի երկու տողերի միջև մուտքագրեք ՝ Այժմ այդ 4 տողերի միջև մուտքագրեք այն, ինչ ցանկանում եք անել: Այս դեպքում ՝ TextBox1. BackColor = Color. BlackOnce դուք & aposre արել, որ կրկնում յուրաքանչյուր վայրում. Երբ ավարտեցի, այն այսպիսի տեսք ուներ. Անձնական ենթահող TrackBar1_Scroll (ByVal ուղարկող ՝ որպես համակարգ. Օբյեկտ, ByVal e As System. EventArgs) Handles TrackBar1. Scroll If TrackBar1. Value = 0 Այնուհետեւ TextBox1. BackColor = Color. Black End If TrackBar1: Արժեք = 1 Այնուհետև TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Այնուհետեւ TextBox1. BackColor = Color. Red End Եթե If TrackBar1. Value = 3 Այնուհետեւ TextBox1. BackColor = Color. Blue End Եթե TrackBar1. Value = 4 Այնուհետեւ TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Այնուհետեւ TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Այնուհետեւ TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Այնուհետեւ TextBox1. BackColor = Color. Orange ավարտը, եթե TrackBar1. Value = 8 Այնուհետեւ TextBox1. BackColor = Color. Brown End If TrackBar1. Value = 9 Այնուհետեւ TextBox1. BackColor = Color. White End Եթե If TrackBar1. Value = 10 Այնուհետեւ TextBox1: BackColor = Color. White End If End ենթ

Քայլ 3: Կատարված է:

Դե, ամեն դեպքում ես էի: Եթե դեռ չեք ավարտել ձեր ծրագիրը, ապա շարունակեք: Օ,, և հաջողություն: Բայց ավարտվածների համար, դե, դա այդքան էլ դժվար չէ՞ր: Եվ եթե ձեզ հետաքրքրում էր, ապա վերականգնման և փակման կոդը հետևյալն է.

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Սեղմեք End End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button 1. Սեղմեք TrackBar1. Value = 0 Վերջ ենթ