Kā integrēt joslu Visual Basic: 3 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:59

Labi, tāpēc tas izklausās viegli, bet iesācējiem nav nekādu ideju, kā to izdarīt. Sliedes var būt noderīgi rīki. No budžeta lēmuma pieņemšanas līdz detonācijas uguņošanas ierīču izvēlei ir ļoti viegli izmantot sliedes.

PIEZĪME: Vai kāds zina, kā palielināt vietu skaitu joslā? Es varu dabūt tikai 11 …

1. darbība: sagatavojiet veidlapu

Tas ir diezgan viegli. Izveidojiet, kad vēlaties, lai jūsu programma izskatās. Es neko īpaši netaisu. Es gatavošu kaut ko tādu, kas maina teksta lodziņa krāsu. == Neaizmirstiet pievienot joslu !!! == ^{_{Jā, daudzi cilvēki to aizmirst}}

2. solis: kods

Tātad, jūs esat izveidojis savu lietotāja saskarni, un ko tagad? Kods, protams! Veiciet dubultklikšķi uz joslas. Jāparādās 2 koda rindiņām. Kaut kas kā:

Privāta apakš TrackBar1_Scroll (ByVal sūtītājs kā System. Object, ByVal e kā System. EventArgs) Rokturis TrackBar1. Ritināšanas beigu apakšdaļaTagad mēs uzzinām par vērtībām. Šajā joslā mēs varam iegūt tikai 11 vērtības, 0-10. Vērtība 0 ir kreisā puse, savukārt vērtība 10 ir labajā pusē. Sapratu? Ejam tālāk.

Lai atvieglotu dzīvi, viss teksts šajā solī no šī brīža būs koda stils

Starp divām koda rindām ierakstiet: If TrackBar1. Value = placceavaluenumberhere thenEnd If, nomainot placeavaluenumber šeit ar tās vietas vērtības numuru, kurā vēlaties. Tagad starp šīm 4 koda rindām ierakstiet, ko vēlaties darīt. Šajā gadījumā: TextBox1. BackColor = Color. Black Kad esat pabeidzis, atkārtojiet katru vietu. Kad es to izdarīju, tas izskatījās šādi: Privāta apakš TrackBar1_Scroll (ByVal sūtītājs kā System. Object, ByVal e kā System. EventArgs) Rokturi TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Vērtība = 1 Tad TextBox1. BackColor = Krāsa. Balts beigas Ja Ja TrackBar1. Value = 2 Tad TextBox1. BackColor = Krāsa. Sarkana beigas Ja Ja TrackBar1. Value = 3 Tad TextBox1. BackColor = Krāsa. Zila beigas Ja Ja TrackBar1. Value = 4 Tad TextBox1. BackColor = Krāsa. Dzeltens beigas Ja Ja TrackBar1. Value = 5 Tad TextBox1. BackColor = Krāsa. Purpura beigas Ja Ja TrackBar1. Value = 6 Tad TextBox1. BackColor = Krāsa. Green beigas Ja Ja TrackBar1. Value = 7 Tad TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Tad TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Tad TextBox1. BackColor = Color. White End, Ja TrackBar1. Value = 10 Tad TextBox1. BackColor = Krāsa. Baltas beigas, ja beigas Sub

3. solis: Gatavs

Nu, es tomēr biju. Ja neesat pabeidzis savu programmu, turpiniet. Ak, un veiksmi! Bet tiem, kas ir paveikuši, tas nebija pārāk grūti? Un, ja jums rodas jautājums, atiestatīšanas un aizvēršanas kods ir šāds:

Privāta apakšpoga2_Click (ByVal sūtītājs kā System. Object, ByVal e kā System. EventArgs) Rokturis Button2. Click End End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click TrackBar1. Value = 0 Beigu apakš