Selamat Datang di SFX Community
Peraturan SFX Community :
1. Dilarang berkomentar dengan menghina SARA(Suku,Agama,Ras, Antar Golongan)
2. Silahkan download link yang tertera di postingan website ini
3. Bantu dengan donasi klik anda dengan cara mengklik iklan disamping kiri atau dibawah judul postingan
4. Software yang kami berikan tidak bertanggung jawab atas pemakaian diluar batas
5. Serial Number, Aktifasi Kunci software yang sudah kadarluwarsa harap diberi tahu agar dapat diupdate
6. Kami sedang membangun website tutorial, belanja, pemesanan DVD
7. Tolong anda sebagai pengujung website kami dengan klik iklan kami

Terima Kasih sudah membaca peraturan SFX Community


Friday, November 29, 2013

Cara Menghilangkan Judul MDI Form atau Title Bar VB6

Posted by Categories:  No comments

Cheat FREE
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 :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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 :
1
2
3
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

Thank's for reading the articelCara Menghilangkan Judul MDI Form atau Title Bar VB6 .If You want to copy paste your website please tag my link Cara Menghilangkan Judul MDI Form atau Title Bar VB6 Intro My Website.

0 comments:

Post a Comment