İz çubuğunu Visual Basic -ə necə inteqrasiya etmək olar: 3 addım
İz çubuğunu Visual Basic -ə necə inteqrasiya etmək olar: 3 addım

Mündəricat:

Anonim

Tamam, bu asan səslənir, amma yeni başlayanlar bunu necə edəcəyini heç bir şəkildə öyrənə bilmirlər. Trackbars faydalı vasitələr ola bilər. Büdcə qərarından tutmuş, neçə atəşfəşanlığın partladılacağına qədər, lent çubuqlarından istifadə etmək çox asandır.

QEYD: İz çubuğundakı yerlərin sayını necə artırmağı bilən varmı? Cəmi 11 ala bilərəm …

Addım 1: Formunuzu Hazırlayın

Bu olduqca asandır. Proqramınızın necə görünməsini istədiyiniz zaman edin. Mən xüsusi olaraq heç nə etmirəm. Mətn qutusunun rəngini dəyişən bir şey hazırlayacağam. == İz çubuğu əlavə etməyi unutmayın !!! == Bəli, bir çox insan bunu unudur

Addım 2: Kod

İstifadəçi interfeysinizi tamamladınız, indi nə? Əlbəttə kod !! İzləmə çubuğunu iki dəfə vurun. 2 kod xətti açılmalıdır. Kimi bir şey:

Şəxsi Alt TrackBar1_Scroll (ByVal göndərən System. Object olaraq, ByVal e As System. EventArgs olaraq) TrackBar1. Scroll End Subİndi dəyərləri öyrənirik. Bu iz çubuğunda yalnız 11 dəyər əldə edə bilərik, 0-10. Dəyər 0 çox solda, dəyər 10 isə çox sağda. Başa düşdüm? Davam edək.

Həyatı asanlaşdırmaq üçün bundan sonra bu addımdakı bütün mətnlər kod tərzi olacaq

İki kod satırının arasına yazın: Əgər TrackBar1. Value = placceavaluenumberhere ThenEnd If placePalavaluenumberhere olmasını istədiyiniz yerin dəyər nömrəsi ilə əvəz etsəniz. İndi bu 4 kod arasına nə etmək istədiyinizi yazın. Bu vəziyyətdə: TextBox1. BackColor = Color. BlackOnce hər bir yer üçün bunu təkrarladınız. İşim bitdikdə belə görünürdü: Şəxsi Sub TrackBar1_Scroll (ByVal göndərən System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll If TrackBar1. Value = 0 Sonra TextBox1. BackColor = Color. Black End If TrackBar1. Dəyər = 1 Sonra TextBox1. BackColor = Color. Wackite White If TrackBar1. Value = 2 If Textbox1. BackColor = Color. Red End If TrackBar1. Value = 3 If TextBox1. BackColor = Color. Blue End If TrackBar1. Value = 4 Sonra TextBox1. BackColor = Color. Your End Əgər TrackBar1. Value = 5 Əgər TextBox1. BackColor = Color. Purple End TrackBar1. Value = 6 olarsa TextBox1. BackColor = Color. Green End əgər TrackBar1. Value = 7 Sonra TextBox1. BackColor = Color. Orange End Əgər TrackBar1. Value = 8 Əgər TextBox1. BackColor = Color. Brown End If TrackBar1. Value = 9 If TextBox1. BackColor = Color. White End If TrackBar1. Value = 10 then TextBox1. BackColor = Color. White End Əgər Sub Sub

Addım 3: Bitti

Yaxşı, mən hər halda idim. Proqramınızı bitirməmisinizsə, davam edin. Vay, uğurlar! Amma işini görənlər üçün bu elə də çətin deyildi? Və maraqlanırsınızsa, sıfırlama və bağlama kodu belədir:

Şəxsi Sub Button2_Click (ByVal göndərən System. Object, ByVal e As System. EventArgs) Düyməni idarə edir2. Sonu Alt Alt Şəxsi Alt Button1_Click (ByVal göndərən kimi System. Object, ByVal e As System. EventArgs) Düymələri idarə edir 1. TrackBar1. Value = 0 Sub Sub