Si të integroni një Trackbar në Visual Basic: 3 hapa

2025 Autor: John Day | [email protected]. E modifikuara e fundit: 2025-01-23 15:10

OK, kështu që kjo tingëllon e lehtë, por fillestarët nuk kanë absolutisht ide se si ta bëjnë këtë. Shiritat e gjurmëve mund të jenë mjete të dobishme. Nga vendosja e një buxheti deri te zgjedhja e sa fishekzjarreve për të shpërthyer, përdorimi i shiritave të gjurmëve është shumë i lehtë.

SH NOTNIM: A e di dikush se si të rrisë numrin e vendeve në një shirit? Mund të marr vetëm 11…

Hapi 1: Bëni gati Formularin tuaj

Kjo është goxha e lehtë. Bëni kur dëshironi që programi juaj të duket. Unë nuk jam duke bërë asgjë në veçanti. Unë do të bëj diçka që ndryshon ngjyrën e një kutie teksti. == Mos harroni të shtoni një shirit gjurmues !!! == ^{_{Po, shumë njerëz e harrojnë atë}}

Hapi 2: Kodi

Pra, ju, keni bërë ndërfaqen tuaj të përdoruesit, tani çfarë? Kodi sigurisht !! Klikoni dy herë shiritin e gjurmëve. 2 rreshta të kodit duhet të shfaqen. Diçka si:

Nën -Pjesa Private TrackBar1_Scroll (dërguesi ByVal Si System. Object, ByVal e As System. EventArgs) Trajton TrackBar1. Scroll End SubTani mësojmë për vlerat. Në këtë shirit mund të marrim vetëm 11 vlera, 0-10. Vlera 0 është e majta ndërsa vlera 10 është e djathta. E kuptove? Le të vazhdojmë.

Për ta bërë jetën më të lehtë, i gjithë teksti në këtë hap tani e tutje do të jetë i stilit të kodit

Në mes të dy rreshtave të kodit shkruani në: If TrackBar1. Value = placceavaluenumberhere ThenEnd If zëvendësimi i numrit të vlerës atje me numrin e vlerës së vendit ku dëshironi të jetë. Tani në mes atyre 4 rreshtave të kodit shkruani atë që dëshironi të bëni. Në këtë rast: TextBox1. BackColor = Color. BlackOnce ju & aposre bërë që të përsëritur për çdo vend. Kur mbarova, dukej kështu: Nën -Pjesa Private TrackBar1_Scroll (Dërguesi ByVal As System. Object, ByVal e As System. EventArgs) Trajton TrackBar1. Scroll If TrackBar1. Value = 0 Pastaj TextBox1. BackColor = Color. Black Fund Nëse Nëse TrackBar1. Vlera = 1 Pastaj TextBox1. BackColor = Color. White Fund Nëse Nëse TrackBar1. Value = 2 Pastaj TextBox1. BackColor = Color. Red Fund Nëse Nëse TrackBar1. Value = 3 Pastaj TextBox1. BackColor = Color. Blue Fund Nëse Nëse TrackBar1. Value = 4 Pastaj TextBox1. BackColor = Color. Yellow Fund Nëse Nëse TrackBar1. Value = 5 Pastaj TextBox1. BackColor = Color. Purple Fund Nëse Nëse TrackBar1. Value = 6 Pastaj TextBox1. BackColor = Color. Green Fund Nëse Nëse TrackBar1. Value = 7 Pastaj TextBox1. BackColor = Color. Orange Fund Nëse Nëse TrackBar1. Value = 8 Pastaj TextBox1. BackColor = Color. Brown Fund Nëse TrackBar1. Value = 9 Pastaj TextBox1. BackColor = Color. White Fund Nëse Nëse TrackBar1. Value = 10 Pastaj TextBox1. BackColor = Color. White Fund If End Nën

Hapi 3: U krye

Epo, unë isha gjithsesi. Nëse nuk e keni përfunduar programin tuaj, atëherë vazhdoni. Oh, dhe fat i mirë! Por për ata që kanë mbaruar, mirë, kjo nuk ishte shumë e vështirë, apo jo? Dhe nëse po pyesnit, kodi për rivendosjen dhe mbylljen është:

Butoni Nën Privat2_Click (Dërguesi ByVal Si System. Object, ByVal e As System. EventArgs) Butonat e trajton 2. Klikoni Fundi Fundi Nën butonin privat privat1_Click (dërguesi ByVal Si System. Object, ByVal e As System. EventArgs) Butonat 1. Klikoni TrackBar1. Value = 0 Fundi Nën