Wednesday, December 23, 2015

Minimize UserForm VBA Excel

Minimize UserForm VBA Excel - Perhatikan gambar gif dibawah..!! Terus terang saya tidak punya ilmu untuk menjelaskan hal semacam ini dikarenakan saya belajar otodidak. Yang terpenting dari belajar otodidak aplikasinya dapat berjalan baik. Ada yang menyebutkan untuk membuat Minimize UserForm menggunakan Code API. Saya ngak paham tu. daripada membahas yang ngak paham kelamaan labih bagus kita nyontek ajha kode untuk Minimize UserForm VBA Excel. Ikuti ajha langkah-langkah yang saya sajikan berikut ini


Langkah-langkah membuat Tombol Minimize UserForm VBA Excel :
  • Buka Visual Basic file Aplikasi Data (Download di Posting Tombol Simpan VBA Excel)
  • Tambahkan sebuah Modul, masukkan kode berikut dalam modul tersebut.
Public Const WS_MINIMIZEBOX = &H10000
Public Const WS_MAXIMIZEBOX = &H20000
Public Const GWL_STYLE = (-16)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Sub AddMinMaxButtons(ByVal FormCaption As String, ByVal MinButton As Boolean, ByVal MaxButton As Boolean)
Dim hWnd As Long
Dim lngStyle As Long
hWnd = FindWindow(vbNullString, FormCaption)
lngStyle = GetWindowLong(hWnd, GWL_STYLE)
If MaxButton Then
    lngStyle = lngStyle Or WS_MAXIMIZEBOX
End If
If MinButton Then
    lngStyle = lngStyle Or WS_MINIMIZEBOX
End If
SetWindowLong hWnd, GWL_STYLE, lngStyle
DrawMenuBar hWnd
End Sub
  • Langkah selanjutnya masukkan kode berikut di antara Private Sub UserForm_Activate() dan End Sub

Private Sub UserForm_Activate()
AddMinMaxButtons Me.Caption, MinButton:=False, MaxButton:=True
End Sub
  • Selesai..!!! Jalankan Aplikasinya, Jika anda mengkuti penempatan kode dengan tepat, Aplikasi dengan Button Minimize akan berjalan.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon