-->

OFFICE 2003 MENU DENGAN VB CLASSIC


Tutorial selanjutnya yaitu membahas membuat menu utama dengan VB Classic dan masih menggunakan OsenXPSuite. Okelah kita mulai saja tutorialnya

Membuat Popup Menu
> Buat Projek baru
> Tambahkan Componen OsenXP Suite
> Klik Kanan Pada Form Pilih Menu Editor, Lalu Buat Menu Seperti dibawah ini


> Selanjutnya tambahkan OsenXPForm dan OsenXPHookMenu 
> Posisikan VbAlignTop untuk OsenXPHookMenu
> Klik Kanan Pada OsenXPHookMenu

> Untuk Menambahkan icon klik gambar Folder
> Jika Sudah Selesai Klik Run Untuk Melihat Hasilnya

Membuat Toolbar
> Tambahkan OsenXPToolbar, Posisikan VbAlignTop
> Tambahakan OsenXPPicture letakan di bawah OsenXPToolbar
> Klik Kanan pada OsenXPToolbar tambahkan 5 item , ikuti gambar
> Untuk menambahakn ikon klik gambar folder


> Jika Sudah selelsai Tambahkan Kode Dibawah ini

Code Form1
Private Sub Baru_Click()
MsgBoxGT "Anda Klik Baru", vbInformation, "Tarmandot.com"
End Sub

Private Sub Buka_Click()
MsgBoxGT "Anda Klik Buka", vbInformation, "Tarmandot.com"
End Sub

Private Sub OsenXPToolBar1_ButtonClick(Index As Integer, sText As String)
Select Case Index
    Case 1
        MsgBoxGT "Anda Klik Icon Simpan", vbInformation, "Tarmandot.com"
    Case 2
        If OsenXPToolBar1.ButtonValue(2) = True Then
            OsenXPPicture1.Visible = False
        Else
            OsenXPPicture1.Visible = True
        End If
        
    Case 3
        MsgBoxGT "Anda Klik Icon Buka", vbInformation, "Tarmandot.com"
End Select

End Sub

Private Sub OsenXPToolBar1_PopUpMainMenu(Index As Integer, sText As String, X As Long, y As Long)
    Select Case Index
        Case 5
            PopupMenu File, , X, y
    End Select
End Sub


Membuat Status Bar
> Tambahkan OsenXPStatusBar
> Klik kanan pada OsenXPStatusBar Pilih Properties
> Tambahkan item dan Sesuaikan Dengan Gambar

Klik Run Untuk Melihat Hasilnya

Silahkan di download dan dikomentari
Download Source Code
Download OsenXP Suite 2006 Setup
Download OsenXp Suite 2006 Key



Baca juga

Post a Comment