İzleme Çubuğu Visual Basic'e Nasıl Entegre Edilir: 3 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:22

Tamam, bu kulağa kolay geliyor ama yeni başlayanlar bunun nasıl yapılacağı konusunda kesinlikle hiçbir fikirleri yok. İzleme çubukları yararlı araçlar olabilir. Bir bütçeye karar vermekten kaç tane havai fişek patlatacağınızı seçmeye kadar, izleme çubuklarını kullanmak çok kolay.

NOT: Bir izleme çubuğundaki yer sayısını nasıl artıracağını bilen var mı? Sadece 11 alabilirim…

1. Adım: Formunuzu Hazırlayın

Bu oldukça kolay. Programınızın nasıl görünmesini istediğinizi yapın. Özellikle bir şey yapmıyorum. Metin kutusunun rengini değiştiren bir şey yapacağım.==Bir izleme çubuğu eklemeyi unutmayın!!!== ^{_{evet çoğu kişi unutuyor}}

Adım 2: Kodlayın

Demek kullanıcı arayüzünü yaptın, şimdi ne olacak? Elbette kod!! İzleme çubuğuna çift tıklayın. 2 satır kod çıkmalıdır. Gibi bir şey:

Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll End Sub'ı İşlerŞimdi değerleri öğreniyoruz. Bu izleme çubuğunda yalnızca 0-10 olmak üzere 11 değer alabiliriz. 0 değeri en solda, 10 değeri ise en sağdadır. Anladım? Hadi devam edelim.

Hayatı kolaylaştırmak için bundan sonra bu adımdaki tüm metinler kod stili olacak

İki kod satırı arasına şunu yazın:If TrackBar1. Value = placeavaluenumberhere ThenEnd Eğer placeavaluenumberburaya olmasını istediğiniz yerin değer numarasıyla değiştiriyorsa. Şimdi bu 4 satırlık kod arasına ne yapmak istediğinizi yazın. Bu durumda:TextBox1. BackColor = Color. BlackHer bir yer için bu tekrarı yaptıktan sonra. Bitirdiğimde şöyle görünüyordu: Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll'u İşler TrackBar1. Value = 0 ise Sonra TextBox1. BackColor = Color. Black End If TrackBar1. Değer = 1 Sonra TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 O zaman TextBox1. BackColor = Color. Red End If TrackBar1. Value = 3 Sonra TextBox1. BackColor = Color. Blue End If TrackBar1. Value = 4 Sonra TextBox1. BackColor = Color. Yellow End If TrackBar1. Value = 5 ise TextBox1. BackColor = Color. Purple End If TrackBar1. Value = 6 ise TextBox1. BackColor = Color. Green End If TrackBar1. Value = 7 ise TextBox1. BackColor = Color. Orange End If TrackBar1. Value = 8 ise TextBox1. BackColor = Color. Brown End ise TrackBar1. Value = 9 ise TextBox1. BackColor = Color. White End If TrackBar1. Value = 10 ise TextBox1. BackColor = Color. White End If End Sub

Adım 3: Bitti

Neyse öyleydim. Programınızı bitirmediyseniz, devam edin. Oh, ve iyi şanslar! Ama işi bitirenler için, bu çok zor olmadı, değil mi? Ve merak ediyorsanız, sıfırlama ve kapatma kodu:

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Button2. Click End End Sub Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Button1. Click TrackBar1. Value ile ilgilenir = 0 Son Alt