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

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

U redu, zvuči lako, ali početnici nemaju pojma kako to učiniti. Trake za praćenje mogu biti koristan alat. Od odlučivanja o budžetu do odabira koliko će vatrometa eksplodirati, korištenje traka za praćenje je vrlo jednostavno.

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

Korak 1: Pripremite obrazac

Ovo je prilično lako. Napravite kada ž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}}

Korak 2: Kodirajte

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

Privatni dodatni TrackBar1_Scroll (ByVal pošiljalac Kao System. Object, ByVal e Kao 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. Jasno? Idemo dalje.

Da bi vam 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 then 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 ono što želite učiniti. U ovom slučaju: TextBox1. BackColor = Color. BlackNakon što ste to učinili ponovite za svako mjesto. Kada sam završio, to je izgledalo ovako: Privatni pod -TrackBar1_Scroll (ByVal pošiljalac Kao System. Object, ByVal e Kao System. EventArgs) Rukuje TrackBar1. Scroll If TrackBar1. Value = 0 Zatim TextBox1. BackColor = Color. Black Kraj Ako je TrackBar1. Vrijednost = 1 Zatim TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Zatim TextBox1. BackColor = Color. Blue End Ako je TrackBar1. Value = 4 Zatim TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Zatim TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Zatim TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Zatim TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Zatim TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Zatim TextBox1. BackColor = Color. White End If End Sub

Korak 3: Gotovo

Pa, ipak sam bio. Ako niste završili program, nastavite. Oh, i sretno! Ali za one koji su završili, pa, nije to bilo previše teško, zar ne? A ako ste se pitali, kôd za resetiranje 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 kao System. EventArgs) Rukuje gumbom 1. Kliknite TrackBar1. Value = 0 End Sub