Trackbarin integroiminen Visual Basiciin: 3 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

OK, joten tämä kuulostaa helpolta, mutta aloittelijoilla ei ole mitään käsitystä siitä, miten tämä tehdään. Ohjaustangot voivat olla hyödyllisiä työkaluja. Kun valitset budjetin ja valitset kuinka monta ilotulitusta räjäytetään, ohjauspalkkien käyttö on erittäin helppoa.

HUOMAUTUS: Tietääkö kukaan kuinka lisätä paikkoja trackbarissa? Saan vain 11 …

Vaihe 1: Valmista lomake

Tämä on melko helppoa. Tee silloin, kun haluat ohjelman näyttävän. En tee mitään erityistä. Teen jotain, joka muuttaa tekstiruudun väriä. == Älä unohda lisätä ohjauspalkkia !!! == ^{_{Kyllä, monet ihmiset unohtavat sen}}

Vaihe 2: Koodi

Joten olet tehnyt käyttöliittymän, mitä nyt? Koodi tietysti! Kaksoisnapsauta ohjauspalkkia. 2 riviä koodia pitäisi avautua. Vähän niin kuin:

Yksityinen osa TrackBar1_Scroll (ByVal -lähettäjä System. Object, ByVal e As System. EventArgs) Käsittää TrackBar1. Scroll End SubNyt opimme arvoista. Tästä ohjauspalkista saadaan vain 11 arvoa, 0-10. Arvo 0 on aivan vasemmalla, kun taas arvo 10 on aivan oikea. Saitko sen? Siirrytään eteenpäin.

Elämän helpottamiseksi kaikki tekstit tässä vaiheessa tulevat olemaan koodityylisiä

Kirjoita kahden koodirivin väliin: If TrackBar1. Value = placceavaluenumberhere thenEnd If, jos vaihdat placeavaluenumber tänne haluamasi paikan arvonumerolla. Kirjoita nyt näiden neljän koodirivin väliin, mitä haluat tehdä. Tässä tapauksessa: TextBox1. BackColor = Color. Black Kun olet valmis, toista tämä uudelleen jokaiselle paikalle. Kun olin valmis, se näytti tältä: Yksityinen Sub TrackBar1_Scroll (ByVal -lähettäjä As System. Object, ByVal e As System. EventArgs) Käsittelee TrackBar1. Scroll If TrackBar1. Value = 0 Sitten TextBox1. BackColor = Väri. Musta loppu Jos Jos TrackBar1. Arvo = 1 Sitten TextBox1. BackColor = Väri. Valkoinen loppu, jos TrackBar1. Value = 2 Sitten TextBox1. BackColor = Väri. Punainen loppu Jos Jos TrackBar1. Value = 3 Sitten TextBox1. BackColor = Väri. Sininen loppu Jos Jos TrackBar1. Value = 4 Sitten TextBox1. BackColor = Väri. Keltainen loppu Jos Jos TrackBar1. Value = 5 Sitten TextBox1. BackColor = Väri. Purple End Jos Jos TrackBar1. Value = 6 Sitten TextBox1. BackColor = Väri. Vihreä loppu Jos Jos TrackBar1. Value = 7 Sitten TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Sitten TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Sitten TextBox1. BackColor = Color. White End Jos If TrackBar1. Value = 10 Sitten TextBox1. BackColor = Väri Valkoinen loppu Jos loppu Al

Vaihe 3: Valmis

No, olin joka tapauksessa. Jos et ole lopettanut ohjelmaa, jatka. Voi, ja onnea, mutta niille, jotka ovat valmiita, se ei ollut liian vaikeaa? Ja jos mietit, nollaus- ja sulkukoodi on:

Yksityinen alipainike2_Click (ByVal -lähettäjä kuin System. Object, ByVal e As System. EventArgs) Käsittelee painiketta 2. Click End End Sub Private Sub Button1_Click (ByVal -lähettäjä System. Object, ByVal e As System. EventArgs) Käsittelee Button1. Click TrackBar1. Value = 0 End Sub