Kako integrirati traku za praćenje u Visual Basic: 3 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:38

U redu, pa ovo zvuči jednostavno, ali početnici nemaju apsolutno nikakvih ideja kako to učiniti. Trake za praćenje mogu biti koristan alat. Od odlučivanja o proračunu do odabira koliko će vatrometa eksplodirati, korištenje traka za praćenje vrlo je jednostavno.

NAPOMENA: Zna li netko kako povećati broj mjesta na traci za praćenje? Mogu dobiti samo 11…

Korak 1: Pripremite obrazac

Ovo je prilično jednostavno. Napravite kad želite da vaš program izgleda. Ne radim ništa posebno. Napravit ću nešto što mijenja boju okvira za tekst. == Ne zaboravite dodati traku za praćenje !!! == ^{_{Da, mnogi ljudi to zaboravljaju}}

2. korak: Kodirajte

Dakle, učinili ste svoje korisničko sučelje, što sad? Kôd, naravno! Dvaput kliknite na traku za praćenje. Trebala bi se pojaviti 2 retka koda. Nešto kao:

Privatni pomoćni TrackBar1_Scroll (ByVal pošiljatelj kao System. Object, ByVal e As System. EventArgs) Rukuje TrackBar1. Scroll End SubSada učimo o vrijednostima. Na ovoj traci za praćenje možemo dobiti samo 11 vrijednosti, 0-10. Vrijednost 0 je vrlo lijevo, dok je vrijednost 10 vrlo desno. Razumiješ? Idemo dalje.

Kako bi olakšao život, sav tekst u ovom koraku od sada će biti u stilu koda

Između dva retka koda upišite sljedeće: Ako je TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacement placeavaluenumber here with the value number of the place where you want to be. Sada između ta 4 retka koda upišite što želite učiniti. U ovom slučaju: TextBox1. BackColor = Color. BlackNakon što ste to učinili ponovite za svako mjesto. Kad sam završio, to je izgledalo ovako: Privatni Sub TrackBar1_Scroll (ByVal pošiljatelj kao System. Object, ByVal e Kao System. EventArgs) Rukuje TrackBar1. Scroll If TrackBar1. Value = 0 Zatim TextBox1. BackColor = Color. Black End If If TrackBar1. Vrijednost = 1 Zatim TextBox1. BackColor = Boja. Bjeli kraj Ako je TrackBar1. Value = 2 Zatim TextBox1. BackColor = Boja. Crveni kraj Ako je TrackBar1. Value = 3 Tada TextBox1. BackColor = Boja. Plavi kraj Ako je TrackBar1. Value = 4 Zatim TextBox1. BackColor = Boja. Žuti kraj Ako je TrackBar1. Value = 5 Zatim TextBox1. BackColor = Boja. Ljubičasti kraj Ako je TrackBar1. Value = 6 Zatim TextBox1. BackColor = Boja. Zeleni kraj Ako je TrackBar1. Value = 7 Zatim TextBox1. BackColor = Boja. Narančasti kraj If If TrackBar1. Value = 8 Zatim TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Tada TextBox1. BackColor = Boja. Bjeli kraj Ako je TrackBar1. Value = 10 Zatim TextBox1. BackColor = Boja. Bijeli kraj ako kraj Sub

Korak 3: Gotovo

Pa, ipak sam bio. Ako niste dovršili program, nastavite. Oh, i sretno! Ali onima koji su završili, pa, nije to bilo previše teško, zar ne? A ako ste se pitali, kôd za poništavanje i zatvaranje je:

Private Sub Button2_Click (ByVal pošiljatelj kao System. Object, ByVal e As System. EventArgs) Rukuje gumbom 2. Kliknite End End Sub Private Sub Button1_Click (ByVal pošiljatelj kao System. Object, ByVal e As System. EventArgs) Rukuje gumbom 1. Kliknite TrackBar1. Value = 0 Kraj podv