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
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
Silahkan di download dan dikomentari
Download Source Code
Download OsenXP Suite 2006 Setup
Download OsenXp Suite 2006 Key