Join Forum BE-ORG Butuh bantuan tentang Excel?? Gabung aja di Forum BE-ORG

Menambahkan Icon pada Title Bar UserForm Excel

Setelah kita menambahkan sebuah UserForm dan Image Control selanjutnya adalah menambahkan script VBAnya, caranya adalah:

  1. Klik kanan pada UserForm dan klik View Code.
  2. Hapus semua code jika ada dan masukkan kode VBA berikut ini:
    Option Explicit
    
    Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    LParam As Any) As Long
    
    Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
    Private Const WM_SETICON = &H80
    Private Const ICON_SMALL = 0&
    Private Const ICON_BIG = 1&
    
    Dim hWnd As Long
    
    Private Sub UserForm_Initialize()
    Image1.Visible = False
    
    hWnd = FindWindow(vbNullString, UserForm1.Caption)
    
    Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image1.Picture.Handle)
    Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image1.Picture.Handle)
    End Sub
    
  3. Klik pada UserForm dan tekan tombol F5 untuk menjalankan UserForm. Jika semua langkahnya sudah benar maka pada title UserForm akan tambahan Icon berupa gambar seperti yang sudah kita masukkan tadi pada object Image.
    Tambah Icon di UserForm

Biar lebih mudah lagi dalam mempelajarinya, bisa langsung mendownload contoh Filenya di halaman berikutnya (3).

2 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.