Cara Membuat Spin Button di Visual Basic 6.0

Pada artikel kali ini saya akan membagikan sebuah trik yaitu bagaimana cara membuat Spin Button menggunakan visual basic 6.0.

Spin Button atau tombol spin merupakan salah tombol yang digunakan untuk mengubah isi sel atau Textbox sesuai dengan keinginan. Singkatnya, tombol spin dapat bekerja menggunakan opsi next atau back, tergantung perintah yang kita gunakan

Sebenarnya judul artikel ini terinspirasi di Ms Excel dimana Excel menyediakan sebuah fitur yang bernama Spin Button yangg berfungsi untuk mengisi sebuah Cell pada workbook.

Fitur Spin Button pada Ms Excel ada pada tab developer, kita tinggal menggunakannya saja dan mengatur settingannya.

Untuk itu dalam kesempatan kali ini saya akan mencoba membuat Spin Button menggunakan Visual Basic 6.0 secara sederhana.

Output : Spin Button


Berikut adalah langlah-langkah membuat Spin Button dengan VB6

Cara membuat spin button menggunakan visual basic 6.0

1. Buka Form VB Standar EXE

2. Pada Form tanamkan 4 buah Textbox, 3 Command Button dan bebrapa Label

3. Desainlah Form seperti gambar dibawah ini  :


Form Desain


4. Langkah terakhir ketiklah kode dibawah ini :


Private Sub Command1_Click()

If Text1.Text = Text2.Text Then

Exit Sub

Else

Text1.Text = Val(Text1.Text) + Val(Text4.Text)

End If

End Sub


Private Sub Command2_Click()

If Text1.Text = Text3.Text Then

Exit Sub

Else

Text1.Text = Val(Text1.Text) - Val(Text4.Text)


End If

End Sub


Private Sub Command3_Click()

Text1.Text = 0

Text2.Text = 5

Text3.Text = 0

Text4.Text = 1

End Sub


Private Sub Form_Activate()

Text1.Text = 0

Text2.Text = 5

Text3.Text = 0

Text4.Text = 1

End Sub


Private Sub Text3_Change()

Text1.Text = Text3.Text

End Sub

Lalu jalankan Project Anda, jika tidak ada error maka hasilnya kurang lebih seperti pada gambar di awal paragraf.

Demikian trik dari saya tentang cara membuat spin button menggunakan visual basic 6.0 (vb6).

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil.

No comments: