Kamis, 16 September 2010

Cara Menghilangkan Title Bar atau None BorderStyle Pada MDI Form

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

0 komentar:

Posting Komentar