A sáv integrálása a Visual Basic programba: 3 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

OK, szóval ez könnyűnek hangzik, de a kezdőknek egyáltalán nincs tudomásuk arról, hogyan kell ezt megtenni. A vonórudak hasznos eszközök lehetnek. A költségvetés eldöntésétől a robbantandó tűzijátékok kiválasztásáig a sín használata nagyon egyszerű.

MEGJEGYZÉS: Tudja valaki, hogyan lehet növelni a helyek számát a sávon? Csak 11 -et kaphatok…

1. lépés: Készítse elő az űrlapot

Ez elég könnyű. Készítse el, amikor azt szeretné, hogy a programja úgy nézzen ki. Nem készítek különösebben semmit. Készítek valamit, ami megváltoztatja a szövegdoboz színét. == Ne felejts el hozzáadni egy sávot !!! == ^{_{Igen, ezt sokan elfelejtik}}

2. lépés: Kódolás

Tehát elkészítette a felhasználói felületet, most mi van? Kód természetesen !! Kattintson duplán a sávra. 2 sornyi kódnak kell megjelennie. Valami hasonló:

Privát al TrackBar1_Scroll (ByVal feladó mint System. Object, ByVal e As System. EventArgs) A TrackBar1 kezelése. Most tanulunk az értékekről. Ezen a sávon csak 11 értéket kaphatunk, 0-10. A 0 érték a bal oldali, míg a 10 a nagyon jobb. Megvan? Menjünk tovább.

Az élet megkönnyítése érdekében mostantól minden szöveg ebben a lépésben kód stílusú lesz

Írja be a kód két sora közé: Ha TrackBar1. Value = placceavaluenumberhere ThenEnd If, cserélje ki a placeavaluenumber itt a kívánt hely értékszámával. Most a 4 kódsor közé írja be, mit szeretne tenni. Ebben az esetben: TextBox1. BackColor = Color. Black Miután befejezte ezt, ismételje meg minden helyen. Amikor elkészültem, így nézett ki: Privát Sub TrackBar1_Scroll (ByVal feladó, mint System. Object, ByVal e As System. EventArgs) A TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If TrackBar1 kezelése. Érték = 1 Akkor 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 Ezután TextBox1. BackColor = Szín. Sárga vége Ha Ha TrackBar1. Value = 5 Majd TextBox1. BackColor = Színes. Lila vége Ha Ha TrackBar1. Value = 6 Akkor TextBox1. BackColor = Színe. Zöld vége Ha Ha TrackBar1. Value = 7 Akkor 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 = Szín. Fehér vége, ha vége Sub

3. lépés: Kész

Nos, mindenesetre voltam. Ha még nem fejezte be a programot, folytassa. Ja, és sok szerencsét! De azoknak, akik elkészültek, hát ez nem volt túl nehéz? És ha kíváncsi, a visszaállítás és a bezárás kódja:

Privát algomb2_Click (ByVal feladó, mint System. Object, ByVal e As System. EventArgs) Handles Button2. Click End End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click TrackBar1. Value = 0 End Sub