Ada kalanya kita menginginkan seluruh layar dapat kita modifikasi tampilannya, tanpa harus terbatasi oleh title bar atau pun status bar, jika itu yang anda ingin kan silahkan simak ulasannya berikut ini
Pada form yang biasa hal ini tentulah sangat mudah untuk dilakukan, karena kita tinggal set didalam
Properti nya BorderStyle = 0 - None, tapi lain hal nya dengan MDI Form, untuk menghilangkan Title Bar pada MDI Form kita perlu memanggil beberap fungsi API.
Tambahlah sebuah MDI Form kedalam project melalui Project -> Add MDI Form, dan sebuah Module melalui menu Project -> Add Module
Double klik Module1, dan ketikkan kode berikut :
Private Declare Function GetWindowLong Lib "USER32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000
Public Sub MDINoBorder(ByRef nFormHWND As Long)
Dim sHandle As Long
On Error GoTo errMDINoBorder
sHandle = GetWindowLong(nFormHWND, GWL_STYLE)
sHandle = sHandle And Not WS_CAPTION
SetWindowLong nFormHWND, GWL_STYLE, sHandle
Exit Sub
errMDINoBorder:
MsgBox "[" & Err.Number & "] - " & Err.Description, _
vbExclamation, "MDI No Border Error"
End Sub
Lalu double klik MDIForm1, dan ketikkan kode berikut :
Private Sub MDIForm_Activate()
MDINoBorder Me.hwnd
End Sub
Sebelum project kita jalan kan anda tentukan dulu
StartUp Object nya berada pada MDIForm1, cara nya dari menu
Project -> Project1 Properties..., dan pastikan pada opsi StartUp Object anda pilih MDIForm1
Jalankan project dengan menekan
tombol F5, dan lihat hasilnya nah sekarang MDIForm pada project anda tidak memiliki Title Bar, seluruh form milik anda, terserah mau di isi dengan apa
Jika anda suka dengan tutorial ini jangan lupa untuk mengisikan komentar.
Selamat mencoba.
Be My Friend On Facebook
Related Posts:
