Trackbarni Visual Basic -ga qanday ulash mumkin: 3 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

OK, shuning uchun bu oson ko'rinadi, lekin yangi boshlanuvchilar buni qanday qilish haqida hech qanday tasavvurga ega emaslar. Trackbars foydali vositalar bo'lishi mumkin. Byudjetni tanlashdan tortib, qancha fişekni portlatish kerakligini tanlashgacha, tayanch panellarini ishlatish juda oson.

DIQQAT: Yo'l chizig'idagi joylar sonini ko'paytirishni kim biladimi? Men faqat 11 olaman …

1 -qadam: Formangizni tayyorlang

Bu juda oson. Dasturingiz xohlagan vaqtda qiling. Men alohida hech narsa qilmayapman. Men matn qutisi rangini o'zgartiradigan biror narsa qilaman. == Yo'l paneli qo'shishni unutmang !!! == ^{_{Ha, ko'p odamlar buni unutishadi}}

2 -qadam: kod

Shunday qilib, siz foydalanuvchi interfeysini qildingiz, endi nima? Albatta kod !! Yo'l panelini ikki marta bosing. 2 qatorli kod paydo bo'lishi kerak. Shunga o'xshash narsa:

Shaxsiy Sub TrackBar1_Scroll (ByVal jo'natuvchi sifatida System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll End SubEndi biz qadriyatlar haqida bilib olamiz. Ushbu trekka biz faqat 11 qiymatni olamiz, 0-10. 0 qiymati - chapda, 10 qiymati - o'ngda. Tushundingizmi? Davom etaylik.

Hayotni engillashtirish uchun bundan buyon bu bosqichdagi barcha matnlar kod uslubida bo'ladi

Ikki qatorli kodlar qatoriga kiriting: If TrackBar1. Value = placceavaluenumberhere ThenEnd If place if placeavaluenumberhere you want the value number of the joy. Endi kodning 4 qatori orasida nima qilmoqchi bo'lsangiz, yozing. Bunday holda: TextBox1. BackColor = Color. BlackOnce siz va aposre har bir joy uchun takrorlanadi. Ish tugagach, u quyidagicha ko'rinardi: Private Sub TrackBar1_Scroll (ByVal yuboruvchi System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll If TrackBar1. Value = 0 Keyin TextBox1. BackColor = Color. Black End bo'lsa TrackBar1. Qiymat = 1 So'ng TextBox1. BackColor = Color. Wave White If If If TrackBar1. Value = 2 If TextBox1. BackColor = Color. Red End If TrackBar1. Value = 3 If TextBox1. BackColor = Color. Blue End If TrackBar1. Value = 4 So'ngra TextBox1. BackColor = Color. Yangi oxiri TrackBar1. Value = 5 bo'lsa, TextBox1. BackColor = Color. Purple End bo'lsa TrackBar1. Value = 6 bo'lsa TextBox1. BackColor = Color. Green End agar TrackBar1. Value = 7 bo'lsa TextBox1. BackColor = Color. Orange End agar TrackBar1. Value = 8 bo'lsa, TextBox1. BackColor = Color. Brown End bo'lsa TrackBar1. Value = 9 bo'lsa TextBox1. BackColor = Color. White End agar TrackBar1. Value = 10 bo'lsa TextBox1. BackColor = Color. With White End If End End

3 -qadam: Bajarildi

Xo'sh, men baribir edim. Agar siz dasturni tugatmagan bo'lsangiz, davom eting. Oh, va omad tilaymiz! Lekin bu ishni tugatganlar uchun juda qiyin emasmidi? Va agar siz hayron bo'lsangiz, qayta tiklash va yopish kodi:

Shaxsiy Sub Button2_Click (ByVal jo'natuvchi System. Object sifatida, ByVal e As System. EventArgs) Buttonni boshqaradi 2. Shaxsiy tugmani tugatish Maxsus sub Sub Button1_Click (ByVal jo'natuvchi sifatida System. Object, ByVal e As System. EventArgs) Button1 ni bosing. TrackBar1. Value tugmasini bosing. = 0 Sub Sub