MENAMPILKAN FONT SYSTEM PADA COMBO BOX

MENAMPILKAN FONT SYSTEM PADA COMBO BOX

Assalamualaikum, wr, wb..

Kali ini saya akan bahas tutorial memasukan dan menampilkan seluruh font system yang ada pada komputer anda dan ditampilkan pada ComboBox sekaligus menampilkannya.

Simak Trik manampilkan seluruh font system pada ComboBox dibawah ini.

1. Buka program Visual Basic, dan mulai dengan form baru
2. Masukan 2 objek Label dan 1 objek ComboBox
3. Untuk Label2 propertis font size nya ganti dengan yang lebih besar misalnya 20
4. Pilih propertis ComboBox lalu rubah propertis Style menjadi 1-Simple Combo.
   
5. Double klik pada area form lalu masukan listing kode dibawah ini pada Form_Load.
6. Private Sub Form_Load()
   Combo1.Clear
   For i = 0 To Screen.FontCount - 1
       Combo1.AddItem (Screen.Fonts(i))
   Next i
   End Sub
7. Double klik pada Combo1 dan masukan listing kode dibawah ini pada Combo1_Click.
8. Private Sub Combo1_Click()
   Label2.Font = Combo1
   End Sub
9. Jalankan dengan menekan tombol F5 pada keyboard anda
   
10. Wassalam.. n smoga bermanfaat...
    

Baca Selengkapnya »

MEMBUAT POPUP MENU PADA MOUSE

Assalamualaikum, wr, wb..

Membuat menu popup pada mouse

Kali ini saya akan membahas bagaimana caranya membuat menu popup apabila mouse di klik kanan dan akan menampilkan menu popup. Simak caranya ya..

1. Seperti biasa buka program Visual basic anda dan mulai dengan form baru, kita akan membuat proyek contohnya.
2. Masukan objek-objek seperti gambar dibawah ini :
3. Berikut properti objek-objeknya :

•  Label1
• Nama = Label1
• Caption = Klik kanan pada form dengan mouse anda maka popup menu akan tampil

• Label2
• Nama = Label2
• Caption = File menu disembunyikan dan bisa ditampilkan property Visivble nya beri nilai True

• CommandButton1
• Nama = Cancel
• Caption = Cancel

4. Buat menu dari menu editor dengan nama menu headernya = mnufile

















5. Lalu masukan listing kode dibawah ini pada setiap objeknya

Private Sub Cancel_Click()
Unload Me 'Keluar program
End Sub

Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Kode supaya Form ditengah layar
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mnufile.Visible = False
If Button = 2 Then PopupMenu mnufile 'jika tombol kanan mouse di klik
End Sub


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mnufile.Visible = False
If Button = 2 Then PopupMenu mnufile
End Sub


Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mnufile.Visible = False
If Button = 2 Then PopupMenu mnufile
End Sub 

6. Jalankan program dengan menekan tombol F5 pada keyboard, dan lihat hasilnya

Selamat mencoba..

Wassalam..n smoga bermanfaat..

Baca Selengkapnya »

TUTORIAL MEMBUAT MENU DENGAN GAMBAR

Assalamualaikum, wr,wb..

Membuat menu dengan gambar

Sekarang saya akan menjelaskan cara membuat menu di Visual Basic dengan tambahan gambar pada setiap submenunya. Karna fasilitas standar untuk membuat menu tidak disertai dengan pasilitas tambahan gambar. Baiklah kita langsung saja, simak caranya berikut ini

1. Buka program Visual basic anda dan mulailah dengan buat form baru
2. Klik kanan pada area form dan pilih Editor menu, atau anda bisa memilih Editor menu di menu Tool.

 3. Buat daftar menunya, sesuai dengan yang anda butuhkan. Contoh ilustrasinya seperti gambar dibawah ini

4. Lalu masukan objek ImageList dari objek bar, dan tempatkan pada form

5. klik pada objek ImageList tersebut lalu pilih propertis Custom yang ada disebelah kanan 

6. Masukan gambar-gambar yang dibutuhkan, urutannya disesuaikan dengan index submenu yang akan diberi gambar, dengan memilih tombol Insert Picture.

7. Buatlah CommondButton dan ganti propertis Captionnya sesuai dengan keinginan anda.

8. Selanjutnya masukan kode pada bagian Declarations

Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32&quot (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As String) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Private Declare Function GetMenuCheckMarkDimensions Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

9. Lalu double klik pada CommondButton dan masukan kode dibawah ini pada event click.

Private Sub Command1_Click()
  Dim i%
  Dim hMenu, hSubMenu, menuID, x
  hMenu = GetMenu(hwnd)
  hSubMenu = GetSubMenu(hMenu, 0)
  For i = 1 To 4
    menuID = GetMenuItemID(hSubMenu, i - 1)
    x = SetMenuItemBitmaps(hMenu, menuID, &H4, img.ListImages(i).Picture, img.ListImages(i).Picture)
  Next
  menuID = GetMenuItemID(hSubMenu, 5)
  x = SetMenuItemBitmaps(hMenu, menuID, 0, img.ListImages(5).Picture, 0&)

End Sub

10. Jalankan program dengan menekan tombol F5 pada keyboard, dan lihat hasilnya.. Keren kan...

Ini contoh hasilnya,

Demikianlah Tutorial membuat menu dengan gambar, selamat mencoba.

Wassalam.. n smoga bermanfaat..

Baca Selengkapnya »