Trackbarди Visual Basicке кантип интеграциялоо керек: 3 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Макул, бул оңой угулат, бирок башталгычтарда муну кантип жасоо боюнча таптакыр noidea бар. Trackbars пайдалуу куралдар болушу мүмкүн. Бюджетти чечүүдөн баштап, канча фейерверкти жардырууга чейин, тректи колдонуу абдан оңой.

ЭСКЕРТҮҮ: Издөө тилкесиндеги жерлердин санын кантип көбөйтүү керек экенин ким билет? Мен 11 гана алам …

1 -кадам: Формаңызды даярдаңыз

Бул абдан оңой. Программаңызга окшош болушун каалаган убакта жасаңыз. Мен өзгөчө эч нерсе жасаган жокмун. Мен текст кутусунун түсүн өзгөрткөн нерсени жасайм. == Издөө тилкесин кошууну унутпаңыз !!! == ^{_{Ооба, көп адамдар муну унутушат}}

2 -кадам: Код

Ошентип, сиз колдонуучу интерфейсиңизди жасадыңыз, эми эмне? Албетте код !! Трек тилкесин эки жолу чыкылдатыңыз. Коддун 2 сабы калкып чыгышы керек. Бир нерсе:

Жеке 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 placepening placeavaluenumberhere that you want the place of the place that you want. Эми ошол 4 сап коддун ортосунда эмне кылгыңыз келсе, ошону териңиз. Бул учурда: TextBox1. BackColor = Color. BlackOnce сиз & aposre ар бир жер үчүн кайталанган. Мен бүтүргөндө, ал мындай көрүндү: Жеке Sub TrackBar1_Scroll (ByVal жөнөтүүчү System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll If TrackBar1. Value = 0 анда TextBox1. BackColor = Color. Black End If TrackBar1. Маани = 1 Андан кийин TextBox1. BackColor = Color. White End эгер TrackBar1. Value = 2 болсо TextBox1. BackColor = Color. Red End эгер TrackBar1. Value = 3 анда TextBox1. BackColor = Color. Blue End болсо TrackBar1. Value = 4 Андан кийин TextBox1. BackColor = Color. Yellow End эгер 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 If TrackBar1. Value = 9 анда TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 анда TextBox1. BackColor = Color. White End эгер End Sub

3 -кадам: Бүттү

Ооба, мен баары бир болчумун. Эгерде сиз программаңызды бүтүрө элек болсоңуз, анда улантыңыз. Оо, ийгилик! Бирок бүткөндөр үчүн бул өтө кыйын болгон жокпу? Эгерде сиз ойлонуп жатсаңыз, баштапкы абалга келтирүү жана жабуу коду:

Private Sub Button2_Click (ByVal sender as System. Object, ByVal e as System. EventArgs) Handles Button2. Click End End Sub Private Sub Button1_Click (ByVal sender as System. Object, ByVal e as System. EventArgs) Button1. Click TrackBar1. Value = 0 End Sub