Bagaimana Mengintegrasikan Trackbar Ke Visual Basic: 3 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:59

OK, jadi ini terdengar mudah tetapi para pemula sama sekali tidak tahu bagaimana melakukan ini. Trackbars dapat menjadi alat yang berguna. Dari menentukan anggaran hingga memilih berapa banyak kembang api yang akan diledakkan, menggunakan trackbar sangatlah mudah.

CATATAN: Adakah yang tahu cara menambah jumlah tempat di trackbar? Saya hanya bisa mendapatkan 11…

Langkah 1: Siapkan Formulir Anda

Ini cukup mudah. Buat ketika Anda ingin program Anda terlihat seperti. Saya tidak membuat sesuatu yang khusus. Saya akan membuat sesuatu yang mengubah warna kotak teks.==Jangan lupa menambahkan trackbar!!!== ^{_{Ya, banyak orang lupa itu}}

Langkah 2: Kode

Jadi Anda, sudah melakukan antarmuka pengguna Anda, sekarang apa? Kode tentunya!!Klik dua kali pada trackbar. 2 baris kode akan muncul. Sesuatu seperti:

Private Sub TrackBar1_Scroll(Pengirim ByVal Sebagai System. Object, ByVal e As System. EventArgs) Menangani TrackBar1. Scroll End SubSekarang kita belajar tentang nilai. Di trackbar ini kita hanya bisa mendapatkan 11 nilai, 0-10. Nilai 0 paling kiri sedangkan nilai 10 paling kanan. Mengerti? Mari kita lanjutkan.

Untuk membuat hidup lebih mudah, semua teks dalam langkah ini mulai sekarang akan menjadi gaya kode

Di antara dua baris kode ketik:If TrackBar1. Value = placeavaluenumberhere ThenEnd Ifmengganti placeavaluenumberdi sini dengan nilai nomor tempat yang Anda inginkan. Sekarang di antara 4 baris kode itu ketik apa yang ingin Anda lakukan. Dalam hal ini:TextBox1. BackColor = Color. BlackSetelah Anda selesai, ulangi untuk setiap tempat. Ketika saya selesai terlihat seperti ini:Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Menangani TrackBar1. Scroll If TrackBar1. Value = 0 Kemudian TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Maka TextBox1. BackColor = Color. White End Jika If TrackBar1. Value = 2 Maka TextBox1. BackColor = Color. Red End Jika If TrackBar1. Value = 3 Maka TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Maka TextBox1. BackColor = Color. Yellow End Jika If TrackBar1. Value = 5 Maka TextBox1. BackColor = Color. Purple End Jika If TrackBar1. Value = 6 Maka TextBox1. BackColor = Color. Green End Jika If TrackBar1. Value = 7 Maka TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Maka TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Maka TextBox1. BackColor = Color. White End Jika If TrackBar1. Value = 10 Maka TextBox1. BackColor = Color. White End If End Sub

Langkah 3: Selesai

Yah, aku juga. Jika Anda belum menyelesaikan program Anda, lanjutkan. Oh, dan semoga berhasil! Tapi bagi yang sudah selesai, tidak terlalu sulit kan? Dan jika Anda bertanya-tanya, kode untuk reset dan close adalah:

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Menangani Button2. Click End End Sub Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Menangani Tombol1. Click TrackBar1. Value = 0 Akhir Sub