Come integrare una trackbar in Visual Basic: 3 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:06

OK, sembra facile, ma i principianti non hanno assolutamente idea di come farlo. Le trackbar possono essere strumenti utili. Dalla scelta del budget alla scelta del numero di fuochi d'artificio da far esplodere, l'utilizzo dei trackbar è molto semplice.

NOTA: qualcuno sa come aumentare il numero di posti su una trackbar? riesco a prenderne solo 11…

Passaggio 1: prepara il modulo

Questo è abbastanza facile. Crea quando vuoi che assomigli al tuo programma. Non sto facendo niente in particolare. Farò qualcosa che cambierà il colore di una casella di testo.==Non dimenticare di aggiungere una trackbar!!!== ^{_{Sì, molte persone lo dimenticano}}

Passaggio 2: codice

Quindi tu, hai fatto la tua interfaccia utente, e adesso? Codice ovviamente!! Fare doppio clic sulla trackbar. Dovrebbero apparire 2 righe di codice. Qualcosa di simile a:

Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Gestisce TrackBar1. Scroll End SubOra impariamo a conoscere i valori. Su questa trackbar possiamo ottenere solo 11 valori, 0-10. Il valore 0 è all'estrema sinistra mentre il valore 10 è all'estrema destra. Capito? Andiamo avanti.

Per semplificarti la vita, tutto il testo in questo passaggio d'ora in poi sarà in stile codice

Tra le due righe di codice digitare: If TrackBar1. Value = placeavaluenumberqui ThenEnd Ifsostituendo placeavaluenumberqui con il numero del valore del luogo in cui si desidera che sia. Ora tra quelle 4 righe di codice digita quello che vuoi fare. In questo caso:TextBox1. BackColor = Color. BlackUna volta eseguita la ripetizione per ogni posizione. Quando ho finito sembrava così: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Then TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Then TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Passaggio 3: fatto

Beh, lo ero comunque. Se non hai finito il tuo programma, continua. Oh, e buona fortuna! Ma per quelli che hanno finito, beh, non è stato troppo difficile, vero? E se te lo stavi chiedendo, il codice per il reset e la chiusura è:

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Gestisce Button2. Click End End Sub Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Gestisce Button1. Click TrackBar1. Value = 0 Fine Sotto