Source Code dan Cara Menyembunyikan Jendela Form di VB6

Cara Menyembunyikan Sembarang Window di Visual Basic 6.0 - Setiap kali kita mengopersikan suatu program maka akan tampil program tersebut di layar apalagi ketika banyak membuka program maka akan banyak icon dari program tersebut yang sedang digunakan atau sedang  aktif, itulah yang dinamakan jendela window, untuk membuktikannya Anda bisa mengklik dibagian taskbar,disitulah ketahuan berapa banyak jumlah window yang ada di bagian taskbar. 

Dengan tip berikut ini,Anda akan dapat menyembunyikan sembarang window yang Anda inginkan.Anda cukup meletakan kursor mouse diatas window tersebut dan menekan sebuah tombol pada keyboard dan perhatikan apa yang terjadi.Hilanglah window tersebut dari layar monitor Anda.Untuk menampilkannya kembali, Anda cukup menekan sebuah tombol pada keyboard sesuai intruksi.

Fungsi-fungsi yang yang digunakan untuk keperluan ini, antara lain :Function SetWindowPos untuk meletakan form agar selalu diatas, Function GetCursorPos untuk mendapatkan posisi kursor mouse, Function GetAsyncKeyState yang berhubungan dengan penggunaan tombol pada keyboard, Function ShowWindow untuk menampilkan dan menyembunyikan window, Function WindowFromPoint, Function SendMessage, dan Function GetParent.

Untuk labih jelas  mari kita praktekan  langsung dengan langkah-langkah dibawah ini:

1. Letakan sebuah TextBox dan sebuah Timer pada Form Anda.

Tujuannya agar pengguna tidak kebingungan menggunakan program ini, akan lebih baik jika pada TexBox, Anda tampilkan semacam intruksi penggunaan program seperti contoh pada gambar dibawah ini:

2. Atur Properti Timer dengan Interval 100

3. Buka jendela kode dengan F7 lalu Anda ketik kode dibawah ini:

Private Declare Function WindowFromPoint Lib "user32" (Byval xPoint As Long, Byval yPoint As Long) As Long

Private Declare Function GetCursorPos Lib "user32"(lpPoint As POINTAPI)As Long

Private Declare Function SetWindowPos Lib "user32"(Byval hWnd As Long, Byval hWndInsertAfter As Long Byval x As Long, Byval y As Long, Byval cx As Long, Byval cy As Long, Byval wFlags As Long)As Long

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA"(Byval hWnd As Long, Byval Msg As Long, wParam As Any, lParam As Any)As Long

Private Declare Function GetAsyncKeyState Lib "user32" (Byval vKey As Long)As Integer

Private Declare Function ShowWindow Lib "user32" (Byval hWnd As Long, Byval nCmdShow As Long)As Long

Private Declare Function GetParent Lib "user32" (Byval hWnd As Long) As Long

Private Const VK_F10=&H79

Private Const VK_F11=&H7A

Private Const VK_F12=&H7B

Private Const VK_LBUTTON=&H1

Private Const VK_RBUTTON=&H2

Private Const VK_F9=&H78

Private Const SWP_NOMOVE=&H2,SWP_NOSIZE=&H1

Private Const HWND_TOPMOST=-1,HWND_NOTOPMOST=-2

Private Const SW_HIDE=0

Private Const SW_NORMAL=1

Private Const WM_GETTEXT=&HD

Private Const WM_SETTEXT=&HC

Private Const WM_GETTEXTLENGTH=&HE

Private Const VK_LCONTROL=&HA2

Private Const type POINTAPI

x As Long

y As Long

End Type

Dim str1 AS String * 100

Dim arr(100) As Long

Dim count1 As Integer

Dim star As Boolean

Private Sub Form_load()

SetWindowPos Me.hWnd, HWND_TOPMOST,0,0,0,0, SWP_NOMOVE Or SWP_NOSIZE

count1=1

star=True

End Sub

Private Sub Timer1_Timer()

Dim w As Long

Dim wintext As String

Dim slength As Long

Dim retval As Long

Dim tryval As Long

Dim war As POINTAPI

Static v As Long

DoEvents

GetCursorPos war

Dim z As Long

if star = True then

if GetAsyncKeyState(VK_F9) then

e=WindowFromPoint(war.x, war.y)

z=e

While z <>0

m=z

z=GetParent(m)

Wend

If Not m=0 then e=m

arr(count)=e

count1=count1+1

slength=SendMessage(e,WM_GETTEXTLENGTH,ByVal CLng(0),Byval CLng(0))+1

wintext=Space(slength)

Dim ert As Long

ert=slength

retval=SendMessage(e,WM_GETTEXT,Byval slength, Byval wintext)

Dim try As String

If e=Me.hWnd Then exit Sub

fre=ShowWindow(e,SW_HIDE)

try=wintext

End If

If Get AsyncKeyState(VK_F10) then

For t= 1 To count1

mert=ShowWindow(arr(t),SW_NORMAL)

Next t

End If

If GetAsyncKeyState(VK_F11) Then

fre=ShowWindow (Me.hWnd,SW_HIDE)

If GetAsyncKeyState(VK_F12) Then

fre=ShowWindow (Me.hWnd,SW_NORMAL)

End if

4. Simpan kode Anda dan jalankan program

Untuk menyembunyikan sembarang window jangan lupa meletakan kursor mouse diatas window tersebut, lalu tekan tombol F9 dan untuk memunculkan kembali tekan F10

sedangkan untuk menyembunyikan tampilan program ini sendiri, tekan F11 dan untuk memunculkannya kembali tekan F12.

Sekian Tutorial dan Source Code Menyembunyikan Jendela Form di Aplikasi Visual Basic 6.0. Semoga ini bermanfaat dan dapat menambah wawasan Anda dalam bidang pemograman,selamat mencoba semoga berhasil.