Apakah anda ingin menu aplikasi anda bertema ribbon seperti diatas??
Oke, tanpa lama-lama lagi dan daripada saya capek ngetiknya langsung saja download contoh projectnya dibawah ya...
Semoga bermanfaat
DOWNLOAD PROJECT
Jumat, 11 November 2011
[VB 6.0] Membuat Menu Ribbon
Posted by b_agoy
10.36, under Visual Basic | 13 comments
Apakah anda ingin menu aplikasi anda bertema ribbon seperti diatas??
Oke, tanpa lama-lama lagi dan daripada saya capek ngetiknya langsung saja download contoh projectnya dibawah ya...
Semoga bermanfaat
DOWNLOAD PROJECT
13 komentar:
mas, klo menggunakan vb net..bagaimana caranya membuat ribbon menu??
Bisa pakai bantuan software codejock. Kapan2 akan saya share :)
mas, klo mau manggil form pake tombol ribbon gmn caranya ya?
klo pake tombol biasa kan cukup pake perintah :
Private Sub Command1_click()
Form2.Show
End Sub
klo pake tombol ribbon gmn ya?
Begini mas, saya anggap mas Iwan sudah download. Pada SC pd form1 ada kode sbb:
'menambah tombol pada grup
ACPRibbon1.AddButton "1", "1", "tombol 1", 6, False, "1"
ACPRibbon1.AddButton "2", "1", "tombol 2", 7
ACPRibbon1.AddButton "2", "1", "tombol" & vbNewLine & "tiga", 7
ACPRibbon1.AddButton "3", "2", "xx1", 8 dst...
Nah, pada angka2 setelah AddButton (1,2,2,3,dst) disebut ID dan pada urutan ketiga (tombol 1, tombol 2, dst) disebut caption.
Untuk memberi perinth pada salah satu tombol pd ribbon, harus spesifik ke ID dan Caption tsb. Saya sendiri menggunakan fungsi If. Contoh:
Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
If ID = 1 And Caption = "tombol 1" Then
Form2.Show
End If
If ID = 2 And Caption = "tombol 2" Then
MsgBox "Coba"
End If
End Sub
Semoga membantu :)
mas ane uda download tapi ane ga ngerti gambarnya diambil dari mana.??? mohon penjelasannya mas
password gan?
mas mw tanya ne kalau mw disable/enable tombol ribbon gmn y source kode nya, btuh bgt.. mksh sblm nya
mas merubah ukuran form themanya gmn? trmksh
mas kalo menghubungkan acpribbonnya itu harus pake MDI apa pakek Form biasa,,???
membuka fom menggunakan perintah
Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)
If ID = 1 And Caption = "tombol 1" Then
Form2.Show
End If
untuk membuka
ACPRibbon1.AddButton "2", "1", "tombol" & vbNewLine & "tiga", 7
menggunakan Caption Apa ya gan mohon bantuan nya
Gan Klo Mau block hitam ato set button ke enable = false
di acp ribbon gmn ya ,, Terima Kasih
ini jalan di MDIForm ngga ya
Posting Komentar