Trackbar -ийг Visual Basic -т хэрхэн яаж оруулах вэ: 3 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:06

За, энэ нь амархан сонсогдож байна, гэхдээ эхлэгчдэд үүнийг хэрхэн хийх талаар үнэхээр noidea байдаг. Trackbars нь ашигтай хэрэгсэл байж болно. Төсөв төлөвлөхөөс эхлээд хэдэн салют дэлбэлэхийг сонгох хүртэл бариул ашиглах нь маш амархан.

ТАЙЛБАР: Замын самбар дээрх байрны тоог хэрхэн нэмэгдүүлэх талаар мэдэх хүн байна уу? Би зөвхөн 11 авах боломжтой …

Алхам 1: Маягтаа бэлэн болго

Энэ бол маш амархан. Хөтөлбөрийг хүссэн үедээ хий. Би онцгой зүйл хийхгүй байна. Би текст хайрцгийн өнгийг өөрчилдөг зүйл хийх болно. == Trackbar нэмэхээ бүү мартаарай !!! == ^{_{Тийм ээ, олон хүмүүс үүнийг мартдаг}}

Алхам 2: Код

Тиймээс та хэрэглэгчийн интерфэйсийг хийж чадсан, одоо яах вэ? Мэдээж код !! Trackbar дээр давхар товшино уу. 2 мөр код гарч ирэх ёстой. Үүнтэй төстэй зүйл:

Хувийн дэд TrackBar1_Scroll (ByVal илгээгч байдлаар System. Object, ByVal e As System. EventArgs) TrackBar1 -ийг зохицуулдаг. Одоо бид үнэт зүйлсийн талаар олж мэдэв. Энэхүү хяналтын самбар дээр бид зөвхөн 0-10 гэсэн 11 утгыг авах боломжтой. 0 утга нь хамгийн зүүн талд, 10 утга нь маш зөв юм. Ойлгов уу? Цаашаа явцгаая.

Амьдралыг хөнгөвчлөхийн тулд одооноос эхлэн энэ алхам дахь бүх текст код маягийн байх болно

Хоёр мөрийн хооронд кодын төрлийг оруулна уу: Хэрэв TrackBar1. Value = placceavaluenumberhere ThenEnd If Place if placeavaluenumberhere гэсэн утгыг хүссэн газрынхаа тоогоор оруулна уу. Одоо эдгээр 4 мөрийн хооронд юу хийхийг хүсч байгаагаа бичнэ үү. Энэ тохиолдолд: TextBox1. BackColor = Color. BlackOnce та & aposre хийсний дараа газар бүрт давтана. Намайг хийж дуусахад иймэрхүү харагдаж байсан: Хувийн Sub TrackBar1_Scroll (ByVal илгээгч байдлаар System. Object, ByVal e As System. EventArgs) TrackBar1. Scroll бол TrackBar1. Value = 0 Дараа нь TextBox1. BackColor = Color. Black End бол TrackBar1 болно. Утга = 1 Дараа нь TextBox1. BackColor = Өнгө. Цагаан төгсгөл бол TrackBar1. Value = 2 бол TextBox1. BackColor = Color. Red End бол TrackBar1. Value = 3 бол TextBox1. BackColor = Color. Blue End бол TrackBar1. Value бол 4 Дараа нь TextBox1. BackColor = Color. Yellow End бол TrackBar1. Value = 5 бол TextBox1. BackColor = Color. Purple End бол TrackBar1. Value = 6 бол TextBox1. BackColor = Color. Green End бол TrackBar1. Value = 7 бол TextBox1. BackColor = Color. Orange End бол TrackBar1. Value = 8 бол TextBox1. BackColor = Color. Brown End бол TrackBar1. Value = 9 бол TextBox1. BackColor = Color. Witite End If TrackBar1. Value = 10 бол TextBox1. BackColor = Color. With White End бол Sub End

Алхам 3: Боллоо

За, би ямар ч байсан байсан. Хэрэв та хөтөлбөрөө дуусаагүй бол үргэлжлүүлээрэй. Өө, амжилт хүсье! Гэхдээ хийж байгаа хүмүүсийн хувьд энэ тийм ч хэцүү биш байсан биз дээ? Хэрэв та гайхаж байсан бол дахин тохируулах, хаах код нь:

Хувийн дэд товчлуур2_Click (ByVal sender as System. Object, ByVal e as System. EventArgs) Button Handles 2. Click End End Sub Private Sub Button1_Click (ByVal sender as System. Object, ByVal e as System. EventArgs) Button1 дарна. TrackBar1. Value дээр дарна уу. = 0 Төгсгөл дэд