Cara Menyembunyikan Form Window di Visual Basic 6.0

Cara Menyembunyikan Form Window di Visual Basic 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Menyembunyikan Form Window di Visual Basic 6.0.

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:

Cara Menyembunyikan Sembarang Window di Visual Basic 6.0

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:
Cara Menyembunyikan Sembarang Window di Visual Basic 6.0, Cara Menyembunyikan Form Window di Visual Basic 6.0

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

Catatan:
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 Cara Menyembunyikan Sembarang Window di Visual Basic 6.0. Semoga tip ini bermanfaa dan dapat menambah wawasan Anda dalam bidang pemograman,selamat mencoba semoga berhasil.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Menyembunyikan Form Window di Visual Basic 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel