Cara Menggabungkan Trackbar Ke Visual Basic: 3 Langkah

2025 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2025-01-23 15:01

OK, jadi ini terdengar mudah tetapi para pemula benar-benar tidak tahu bagaimana melakukan ini. Bar trek boleh menjadi alat yang berguna. Dari menentukan anggaran hingga memilih berapa banyak bunga api untuk meletupkan, menggunakan bar trek sangat mudah.

CATATAN: Adakah ada yang tahu cara menambah bilangan tempat di bar trek? Saya hanya dapat 11…

Langkah 1: Sedia Borang Anda

Ini cukup mudah. Buat bila anda mahu program anda kelihatan seperti. Saya tidak membuat sesuatu secara khusus. Saya akan membuat sesuatu yang mengubah warna kotak teks. == Jangan lupa menambah bar trek !!! == ^{_{Ya, banyak orang lupa itu}}

Langkah 2: Kod

Oleh itu, anda telah melakukan antara muka pengguna anda, sekarang apa? Kod tentu !! Klik dua kali pada bar trek. 2 baris kod akan muncul. Sesuatu seperti:

Sub TrackBar1_Scroll Peribadi (Pengirim ByVal Sebagai System. Object, ByVal e As System. EventArgs) Mengendalikan Sub TrackBar1. Scroll EndSekarang kita belajar mengenai nilai. Pada bar trek ini kita hanya dapat memperoleh 11 nilai, 0-10. Nilai 0 adalah paling kiri sementara nilai 10 adalah yang paling kanan. Faham? Mari teruskan.

Untuk menjadikan hidup lebih mudah, semua teks dalam langkah ini mulai sekarang akan menjadi gaya kod

Di antara dua baris jenis kod dalam: Jika TrackBar1. Value = placceavaluenumberdi sini KemudianEnd Ifreplacing placeavaluenumberdi sini dengan nilai nilai tempat di mana anda mahu. Sekarang di antara 4 baris jenis kod yang anda mahu lakukan. Dalam kes ini: TextBox1. BackColor = Color. BlackSetelah anda & mengemukakannya berulang untuk setiap tempat. Semasa saya selesai, ia kelihatan seperti ini: Sub TrackBar1_Scroll Swasta (Pengirim ByVal Sebagai Sistem. Object, ByVal e Sebagai System. EventArgs) Mengendalikan TrackBar1. Scroll Jika TrackBar1. Value = 0 Kemudian TextBox1. BackColor = Color. Black End Jika Jika TrackBar1. Nilai = 1 Kemudian TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Kemudian TextBox1. BackColor = Color. Blue End if If TrackBar1. Value = 4 Kemudian TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Maka TextBox1. BackColor = Color. Green End if If TrackBar1. Value = 7 Kemudian TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Kemudian TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Kemudian TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Kemudian TextBox1. BackColor = Color. White End And End Sub

Langkah 3: Selesai

Saya juga begitu. Sekiranya anda belum menyelesaikan program anda, teruskan. Oh, dan semoga berjaya! Tetapi bagi mereka yang sudah selesai, itu tidak terlalu sukar bukan? Dan jika anda tertanya-tanya, kod untuk tetapan semula dan tutup adalah:

Butang Sub Peribadi2_Klik (Pengirim ByVal Sebagai Sistem. Objek, ByVal e Sebagai Sistem. EventArgs) Mengendalikan Butang2. Klik Butang Sub Akhir Akhir Akhir Sub11Klik (Pengirim ByVal Sebagai Sistem. Objek, ByVal e Sebagai Sistem. EventArgs) Mengendalikan Butang1. Klik TrackBar1. Value = 0 Sub Akhir