Hur man integrerar en Trackbar i Visual Basic (2 / 3 steg)
Steg 2: kod!
Dubbelklicka på förloppsindikatorn. 2 rader kod bör dyka upp. Något liknande:
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar TrackBar1.Scroll End Sub
Nu lär vi värden. På denna trackbar kan vi bara få 11 värden, 0-10. Värdet 0 är den mycket vänster medan värdet 10 är den mycket rätt. Fick det? Kan gå vidare.
Att göra livet lättare all text i det här steget nu kommer att bli kod-stil
Mellan två rader med kodtyp i: om TrackBar1.Value = placceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere med värde numret på den plats där du vill att det ska vara. Nu Skriv i mellan de 4 raderna kod vad du vill göra. I denna case:TextBox1.BackColor = Color.BlackOnce du är klar att upprepa för varje plats. När jag var klar det såg ut så här: Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar TrackBar1.Scroll om TrackBar1.Value = 0 då TextBox1.BackColor = Color.Black slutet om om TrackBar1.Value = 1 då TextBox1.BackColor = Color.White slutet om om TrackBar1.Value = 2 då TextBox1.BackColor = Color.Red slutet om om TrackBar1.Value = 3 då TextBox1.BackColor = Color.Blue slutet om om TrackBar1.Value = 4 då TextBox1.BackColor = Color.Yellow slutet om om TrackBar1.Value = 5 sedan TextBox1.BackColor = Color.Purple slutet om om TrackBar1.Value = 6 sedan TextBox1.BackColor = Color.Green slutet om om TrackBar1.Value = 7 då TextBox1.BackColor = Color.Orange slutet om om TrackBar1.Value = 8 då TextBox1.BackColor = Color.Brown slutet om om TrackBar1.Value = 9 då TextBox1.BackColor = Color.White slutet om om TrackBar1.Value = 10 då TextBox1.BackColor = Color.White slutet om avsluta Sub