Cara Membuat ToolBar di Visual Basic 6.0 - Toolbar merupakan salah satu alat untuk meletakan tombol/icon yang dapat di klik oleh pengguna untuk melakukan perintah spesifik dengan cepat.
Toolbar sangat penting peranannya dalam mengoperasikan sebuah program karena merupakan bagian dari navigasi program itu sendiri agar user dapat memahami fungsi dari tool masing-masing. Dan tahukah Anda Visual Basic juga bisa menambahkan sebuah toolbar buatan Anda sendiri yang Anda bisa tambahakan pada program yang akan Anda buat dengan bantuan komponen Microsoft Commondialog control 6.0.
Toolbar sangat penting peranannya dalam mengoperasikan sebuah program karena merupakan bagian dari navigasi program itu sendiri agar user dapat memahami fungsi dari tool masing-masing. Dan tahukah Anda Visual Basic juga bisa menambahkan sebuah toolbar buatan Anda sendiri yang Anda bisa tambahakan pada program yang akan Anda buat dengan bantuan komponen Microsoft Commondialog control 6.0.
Untuk membuat toolbar Anda harus mengaktifkan kotak ceklist Microsoft windows common controls 6.0 dan Microsoft Commondialog control 6.0 pada jendela komponen dengan menekan Tombol CTRL+T.
Berikut langkah langkah membuat ToolBar
1. Buka Form Standar Baru dan tanamkan ToolBar dan Commondialog ke dalam form yang sudah Anda tambahkan ke dalam toolbox
 |
| Form Desian Tolbar |
2. Klik Kanan Tolbar lalu pilih Propeties dan pilih Buttons
3. Klik Tombol Insert Buttons untuk menambah tombol baru dalam toolbar
4. Ketikan "Open" pada kotak Caption
 |
| Properties Page |
5. Lakukan langkah no.3 lalu ketik Save pada captionnya
6. Lakukan langkah no.3 lalu ketik Printer pada captionnya
7. Lakukan langkah no.3 lalu ketik Font pada captionnya
8. Lakukan langkah no.3 lalu ketik Color pada captionnya
9. Lalu ketikan kode dibawah ini di jendela kode :
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1:
CommonDialog1.Filter = "Dokumen Word(*.doc)|*.doc|" + "Gambar Bitmap (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
MsgBox "Anda mrmilih File" + CommonDialog1.FileName, vbOKOnly + vbInformation, "Informasi"
Case 2:
CommonDialog1.ShowSave
Case 3:
CommonDialog1.ShowPrinter
Case 4:
CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
CommonDialog1.ShowFont
Label1.FontBold = CommonDialog1.FontBold
Case 5:
CommonDialog1.Flags = &H1&
CommonDialog1.ShowColor
Form12.BackColor = CommonDialog1.Color
End Select
End Sub
11. Simpan hasil pekerjaan Anda dan Jalankan Program dengan F5.
Demikian tip cara Cara Membuat ToolBar di Visual Basic 6.0. Semoga bermanfaat, selamat mencoba semoga berhasil.
Select Case Button.Index
Case 1:
CommonDialog1.Filter = "Dokumen Word(*.doc)|*.doc|" + "Gambar Bitmap (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
MsgBox "Anda mrmilih File" + CommonDialog1.FileName, vbOKOnly + vbInformation, "Informasi"
Case 2:
CommonDialog1.ShowSave
Case 3:
CommonDialog1.ShowPrinter
Case 4:
CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
CommonDialog1.ShowFont
Label1.FontBold = CommonDialog1.FontBold
Case 5:
CommonDialog1.Flags = &H1&
CommonDialog1.ShowColor
Form12.BackColor = CommonDialog1.Color
End Select
End Sub
11. Simpan hasil pekerjaan Anda dan Jalankan Program dengan F5.
Demikian tip cara Cara Membuat ToolBar di Visual Basic 6.0. Semoga bermanfaat, selamat mencoba semoga berhasil.
No comments:
Post a Comment