Menampilkan Icon Pada Title Aplikasi/UserForm Vba Excel

Menampilkan Icon pada title UserForm akan membuat tampilan Aplikasi Vba Excel lebih profesional. Standarnya properties UserForm Vba Excel tidak ada fasilitas ini, untuk menampilkan icon kita bisa menggunakan fungsi API sehingga icon akan terlihat seperti gambar yang ada di bawah.

Pelajari kode-kode yang mempercantik tampilan aplikasi. Aplikasi dengan tampilan bagus lebih menarik untuk dilihat dan menimbulkan kesan penasaran.

Icon Pada Title Aplikasi/UserForm Vba Excel

Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan

Ikuti langkah-langkah berikut agar Icon Tilte Aplikasi Muncul :

Buka Vba Excel ==>> Dowload File Aplikasi Icon Title

• Buat Sebuah UserForm
• Tambahkan Image Control dari Tollbox 
• Properties Image Controlnya, pilih bagian Picture dan masukkan gambar berformat *.ico yang akan menjadi Icon pada UserForm ====>> Download File Ico Sebagai Percobaan

• Setelah Icon masuk selanjutnya Klik Kanan UserForm dan Klik View Code

• Selanjutnya masukkan Code seperti gambar di bawah ini, Perhatikan Garis Merah dan Panah Merah sesuaikan dengan Name pada Properties Image , Garis Biru dan Panah Biru sesuaikan dengan Name UserForm yang anda buat.

Code Pada Option Explicit :

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

 Code Pada UserForm_Initialize()

Private Sub UserForm_Initialize()

Image8.Visible = False

hWnd = FindWindow(vbNullString, LoginUser.Caption)

Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image8.Picture.Handle)

Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image8.Picture.Handle)

End Sub

• Selanjutnya Jalankan Aplikasinya dengan menekan F5 pada UserForm. Jika  Langkah-langkah tersebut sudah di ikuti dengan benar, maka Aplikasi VBA Excel Anda akan ada tambahan Icon yang menampilkan Aplikasi lebih profesional.

Catatan Penting :

1. Gambar yang berformat *.ico tidak semua bisa di jadikan icon pada UserForm Excel, karena ada standar tertentu yang bisa digunakan, seperti menggunakan 16 Colors dan 256 Colors. Untuk yang lebih bagus bisa memakai yang 256 Colors dengan pixel 48 x 48. 
2. Jika gambar yang dimasukkan bukan berformat *.ico maka icon yang ditampilkan tidak akan sesuai dengan gambar yang telah ditambahkan pada properties imagenya.

Semoga bisa di prakterkkan ..!!

Berbagi :