SUSAn

Kecentilan Susan sudah dikenal banget di sekolahnya. Suatu hari doi disuruh ke depan kelas oleh salah seorang pak guru favoritnya

Pak Guru "Susan, coba kamu tulis di papan tulis B-H-I-N-E-K-A T-U-N-G-G-A-L I-K-A

Susan pun ke depan dengan langkah gemulai genitnya. Dia menulis, I-N-E-K-A T-U-N-G-G-A-L I-K-A.

Sambil tersenyum genit Susan kembali duduk.

 Pak  Guru: "Lho San, BH nya dimana ?"

Susan: " Maaf  pak. Saya ngga pake soalnya lagi di jemur."

Juragan ARab

Seorang Juragan Arab sedang sakit keras,
dan ketika akan menjelang ajal istri dan kelima anaknya berkumpul mengelilinginya sambil menangis tersedu-sedu

Sang Juragan : Umi,,,,mana umi ? (sang juragan bertanya)
sang istri : Saya selalu disampingmu abi (sambil tersedu)

Sang Juragan : Abu....mana abu..?
Anak ke 1 : Iya....abi,,,,abu di sini (sambil menangis dan mengelus kepala sang ayah)

Sang juragan : Abdul,,,,mana,,mana abdul? (juragan bertanya lagi)
Anak ke 2 : Saya di sini abi,,,(sembil tertunduk dan sesugukan)

Begitu pula anak ke-3 dan ke-4 semua dipanggil namanya
sampai pada anak ke-5 yang terakhir

Sang Juragan : Komar,,,,komar kau juga ada dekat abi,,,?
Anak ke-5 : Tentu abi,,, kami semua di sini mendampingi abi,,,

Sang Juragan (TIBA2 LANGSUNG BERDIRI) : JADI,,,,,SIAPA YANG JAGA TOKO,,,,,,!!!???

Karyawan

Seorang karyawan menghadap ke bosnya. Ia berkata dengan serius, “Bapak sebaiknya menaikkan gaji saya, sekarang juga."
"Apa alasannya?" tanya si bos dengan sinis tanpa menoleh sedikit pun.
"Perlu Bapak ketahui, sekarang ini sudah ada lima perusahaan besar dan bonafid yang sedang mengejar-ngejar saya."
Kali ini si atasan menoleh. Dengan penasaran ia bertanya, "Oh, ya? Perusahaan apa saja itu?" tanyanya dengan nada cemas.
"Citibank, PAM, PLN, TELKOM, dan terakhir BTN."

JIN

Ceritanya disuatu tempat ada dukun yang bisa bicara sama Jin
Dukun : Hey Jin Siapa sih yang paling ente takutin selain tuhan sama orang sholeh
Ditanya gitu si Jin malah cengar cengir, trus jawab
Jin : anu pak dukun, ane ngeri banget sama tukang JAHIT
Si dukun bingung
Dukun : Jiahh kok lu takut sama tukang jahit??
Jin sambil gemetar berkata
Jin : saya takut kalo di permak sama tukang jahit bos
soalnya pas itu saya lewat di depan rumahnya tukang jahit ada tulisan
"PERMAK JIN SEGALA JENIS"

Perkelahian di internet

WIKIPEDIA : Aku adalah sumber ilmu aku tahu semua
FACEBOOK : Yee gw dong gaul kenal sama semua orang
GOOGLE : Aku punya semuanya.
MOZILA : Kalo aku ngga ada kalian tidak bisa di akses
EXPLORER : Jiah Kan gue masih ada.
MOZILA : Apaan sih lo, ganggu obrolan orang aja!
EXPLORER : Lo sih, ngaku ngaku paling hebat
INTERNET : Udah-udah! Jangan bertengkar kalo saya tidak ada kalian semua tidak ada
FACEBOOK : Huuu, orang kan paling sering mampirny di gue, jadi gue yang terbaik.
YAHOO : Facebook, Inget, tanpa gue lo gak bisa buat Email!
GOOGLE : Yahoo, Gue juga bisa buat Email.
INTERNET : zzz... Udah tau gue yg paling hebat
KOMPUTER : Gua Paling dewa di sini. (Tiba - tiba PLN datang...)
PLN : Banyak Bacot lo semua! Gua matiin nih listriknya!

Spesial Folder

Special folder atau folder khusus adalah folder yang digunakan Windows untuk menyimpan data tertentu, misalnya folder My Documents, My Music, Favorites, History, Recent, dll. Berikut ini adalah kode fungsi untuk mengetahui lokasi folder-folder tersebut.

[ VB 6.0 ]
Buat Module baru dan ketikkan :

Private Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwnd As Long, ByVal nFolder As Long, Pidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal Pidl As Long, ByVal FolderPath As String) As Long

Enum SpecialFolderConst
sfAppData = 26
sfCDBurning = 59
sfCookies = 33
sfDesktop = 0
sfFavorites = 6
sfFonts = 20
sfHistory = 34
sfLocalAppData = 28
sfMyDocuments = 5
sfMyMusic = 13
sfMyPictures = 39
sfMyVideo = 14
sfNetHood = 19
sfPrintHood = 27
sfProfile = 40
sfProgramFiles = 38
sfRecent = 8
sfSendTo = 9
sfStartMenu = 11
sfStartMenuPrograms = 2
sfStartUp = 7
sfSystem = 37
sfTempInternet = 32
sfTemplates = 21
sfWindows = 36
End Enum

Public Function SpecialFolder(ByVal SFConst As SpecialFolderConst) As String
Dim Pidl As Long
Dim s As String * 260
Dim l As Long
l = SHGetSpecialFolderLocation(0, SFConst, Pidl)

If l = 0 Then
l = SHGetPathFromIDList(Pidl, s)
If l = 1 Then
s = Left(Trim(s), InStr(s, Chr(0)) - 1)
SpecialFolder = Trim(s)
End If
End If
End Function

[ VB .NET ]
Dalam VB.NET sudah terdapat fungsi untuk mengetahui lokasi Special Folder, contoh kodenya (mengetahui lokasi folder My Documents) adalah :

s = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

Tapi jika fungsi diatas kurang memadai, maka harus dibuat fungsi buatan sendiri seperti berikut :
Buat Module baru dan ketikkan :

Private Declare Function SHELL32_GetFolderPath Lib "shell32.dll" Alias "SHGetFolderPathA" (ByVal hwndOwner As Integer, ByVal nFolder As Integer, ByVal hToken As Integer, ByVal dwFlags As Integer, ByVal lpszPath As String) As Integer

Enum SpecialFolderConst
sfAppData = 26
sfCDBurning = 59
sfCookies = 33
sfDesktop = 0
sfFavorites = 6
sfFonts = 20
sfHistory = 34
sfLocalAppData = 28
sfMyDocuments = 5
sfMyMusic = 13
sfMyPictures = 39
sfMyVideo = 14
sfNetHood = 19
sfPrintHood = 27
sfProfile = 40
sfProgramFiles = 38
sfRecent = 8
sfSendTo = 9
sfStartMenu = 11
sfStartMenuPrograms = 2
sfStartUp = 7
sfSystem = 37
sfTempInternet = 32
sfTemplates = 21
sfWindows = 36
End Enum

Public Function SpecialFolder(ByVal SFConst As SpecialFolderConst) As String
Dim s As String = Space(260)
Dim i As Integer
i = SHELL32_GetFolderPath(0, SFConst, 0, 0, s)
If i = 0 Then
i = InStr(s, vbNullChar)
Return IIf(i > 0, Left(s, i - 1), s)
Else
Return ""
End If
End Function

Untuk contoh penggunannya (My Documents) ketikkan :

s = SpecialFolder(sfMyDocuments)

Source : PutraVB

Mengetahui Nama Computer, User Name Dll

UserName dan ComputerName biasanya digunakan untuk melengkapi Form registrasi suatu aplikasi / software berbayar. Untuk mengetahui / mendapatkan UserName maupun ComputerName, hanya dibutuhkan 1 baris kode, berikut ini kodenya :

UserName :

s = Environ("UserName")

ComputerName :

s = Environ("ComputerName")

Selain itu, Anda juga bisa menggantikan teks yang berwarna merah untuk mendapatkan informasi yang lain. Seperti : UserDomain, OS, LogOnServer, ClientName, dll.

Source : PutraVB

Menunggu Aplikasi Ditutup

Yang dimaksud disini adalah proses dimana aplikasi Anda menjalankan sebuah aplikasi lain (dengan kode), lalu aplikasi Anda berhenti dan menunggu sampai aplikasi yang dijalankan tadi ditutup / diakhiri. Berikut ini contoh pembuatannya.
Buat Project baru dengan sebuah Form didalamnya, lalu tambahkan sebuah kontrol Tombol / Button ke Form tersebut.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Const SYNCHRONIZE = &H100000

Di bagian 'Command1_Click' ketikkan :

Dim l As Long
  
l = Shell("notepad.exe", vbNormalFocus) 'menjalankan aplikasi notepad
l = OpenProcess(SYNCHRONIZE, 0, l)
  
Me.Hide 'menyembunyikan form
  
WaitForSingleObject l, -1  'proses menunggu
  
Me.Show 'memunculkan form kembali

Untuk kelancaran prosesnya, buatlah Project menjadi aplikasi (*.exe)




[ VB .NET ]
Di bagian 'Button1_Click' ketikkan :

Dim p As New Diagnostics.Process
p = Diagnostics.Process.Start("notepad.exe") 'menjalankan aplikasi notepad

Me.Hide() 'menyembunyikan form

p.WaitForExit(-1) 'proses menunggu

Me.Show() 'memunculkan form kembali

Source Putravb

Multi Select File di Common Dialog

Berikut ini adalah tips bagaimana agar user dapat memilih beberapa file sekaligus dalam kotak dialog.

[ VB 6.0 ]
Buat Form baru dan tambakan didalamnya 1 CommandButton, 1 ListBox, dan 1 CommonDialog (Microsoft Common Dialog Control). Lalu di bagian 'Command1_Click' ketikkan :

On Error GoTo Ero
Dim sFile() As String, i As Integer

With CommonDialog1
.FileName = ""
.CancelError = True
.MaxFileSize = 30000
.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect + cdlOFNHideReadOnly
.ShowOpen

sFile = Split(.FileName, vbNullChar)

List1.Clear 'meghapus isi listbox

If UBound(sFile) = 0 Then 'jika hanya 1 file yang dipilih
List1.AddItem sFile(0)
Else 'jika lebih dari 1 file yang dipilih
For i = 1 To UBound(sFile)
List1.AddItem Replace(sFile(0) & "\" & sFile(i), "\\", "\")
Next
End If

End With

Ero:

[ VB .NET ]
Buat Form baru dan tambakan didalamnya 1 Button, 1 ListBox, dan 1 OpenFileDialog. Lalu di bagian 'Button1_Click' ketikkan :

Dim i As Integer
With OpenFileDialog1
.Multiselect = True
.FileName = ""

If .ShowDialog = 1 Then
ListBox1.Items.Clear() 'meghapus isi listbox

For i = 0 To UBound(.FileNames)
ListBox1.Items.Add(.FileNames(i)) 'memasukkan ke listbox
Next
End If
End With

Source Putravb

String

Fungsi-fungsi String

 Berikut ini adalah penjelasan tentang fungsi-fungsi string yang sering digunakan.

• LCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi kecil semua. Contoh:
  s = LCase("Aku Bisa") , maka nilai s adalah "aku bisa"
• UCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi besar semua. Contoh:
  s = LCase("Aku Bisa") , maka nilai s adalah "AKU BISA"
• Left(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kiri sebanyak n. Contoh:
  VB 6.0, s = Left("Aku Bisa", 3)
  VB .NET, s = Strings.Left("Aku Bisa", 3)
  maka nilai s adalah "Aku"
• Right(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kanan sebanyak n. Contoh:
  VB 6.0, s = Right("Aku Bisa", 3)
  VB .NET, s = Strings.Right("Aku Bisa", 3)
  maka nilai s adalah "isa"
• Mid(x,m,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari karakter ke m sebanyak n. Contoh:
  s = Mid("Aku Bisa", 2, 2) , maka nilai s adalah "ku"
• LTrim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dari string x.
  Contoh: s = LTrim("     Aku Bisa     ") , maka nilai s adalah "Aku Bisa     "
• RTrim(x) , digunakan untuk menghapus karakter spasi di bagian kanan dari string x.
  Contoh: s = RTrim("     Aku Bisa     ") , maka nilai s adalah "     Aku Bisa"
• Trim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dan kanan dari string x. Contoh:
  s = Trim("     Aku Bisa     ") , maka nilai s adalah "Aku Bisa"
• Len(x) , digunakan untuk menghitung jumlah karakter dari string x. Contoh:
  s = Len("Aku Bisa") , maka nilai s adalah 8.
• String(n,x) , digunakan untuk membuat karakter x sebanyak n. Contoh:
  VB 6.0,  s = String(10, "A")
  VB .NET, s = New String("A", 10)
  maka nilai s adalah "AAAAAAAAAA"
• Space(n) , digunakan untuk membuat karakter spasi sebanyak n. Contoh:
  s = Space(10) , maka nilai s adalah "          "
  
  
• Asc(x) , digunakan untuk mengetahui nilai ASCII dari karakter x. Contoh:
  s = Asc("A") , maka nilai s adalah 65
• Chr(x) , digunakan untuk mengetahui karakter dari nilai ASCII x. Contoh:
  s = Chr(65) , maka nilai s adalah "A"
• InStr(x,n) , digunakan untuk mengetahui posisi karakter n didalam string x. Contoh:
  s = InStr("Aku Bisa", "u") , maka nilai s adalah 3
• StrComp(x,y,n) , digunakan untuk membandingkan string x dan string y berdasarkan n. Jika n bernilai 0 maka akan dibandingkan secara case-sensitive, sedangkan jika n bernilai 1 maka akan dibandingkan secara biasa. Contoh:
  s = StrComp("Aku", "aku", 0) , maka nilai s adalah -1
  s = StrComp("Aku", "aku", 1) , maka nilai s adalah 0
  Khusus untuk fungsi ini, jika menghasilkan nilai 0 maka dianggap sebagai True, dan jika menghasilkan nilai selain 0 maka dianggap False.
• StrConv(x,n) , digunakan untuk mengubah huruf dalam string x berdasarkan nilai n. Contoh:
  s = StrConv("Aku Bisa", 1) , maka nilai s adalah "AKU BISA"
  s = StrConv("Aku Bisa", 2) , maka nilai s adalah "aku bisa"
  s = StrConv("aku bisa", 3) , maka nilai s adalah "Aku Bisa"
• StrReverse(x) , digunakan untuk membalikkan posisi huruf dalam string x. Contoh:
  s = StrReverse("Aku Bisa") , maka nilai s adalah "asiB ukA"
• Replace(x,m,n) , digunakan untuk menggantikan karakter m dalam string x dengan karakter n. Contoh:
  s = Replace("Kamu Juga Bisa", "a", "o") , maka nilai s adalah "Komu Jugo Biso"
• Split(x,n)(i) , digunakan untuk memecah string x berdasarkan karakter n dengan penomoran i. Contoh:
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(0) , maka nilai s adalah "Kuda"
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(1) , maka nilai s adalah "Kerbau"
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(4) , maka nilai s adalah "Macan"
• Join(x,n) , digunakan untuk menggabungkan rangkain string x yang dihubungkan dengan string n. Contoh:
  VB6, s = Join(Array("Hani", "Indah", "Budi", "Herman"), " & ")
  VB.NET, s = Join(New Object() {"Hani", "Indah", "Budi", "Herman"}, " & ")
  maka nilai s adalah "Hani & Indah & Budi & Herman"

Fungsi-fungsi diatas juga dapat djadikan fungsi lain diantaranya adalah :

1. Mengecek keberadaan string dalam string. Misalnya Anda ingin memeriksa ada tidaknya string "a" dalam string "anda berhasil", maka kodenya adalah :
   
   If CBool(InStr("anda berhasil", "a")) Then
   'jika ada
   Else
   'jika tidak ada
   End If
2. Menghitung karakter tertentu dalam string. Misalnya Anda ingin menghitung karakter "a" dalam string "anda berhasil", maka kodenya adalah :
   
   t = "anda berhasil"
   s = Len(t) - Len(Replace(t, "a", ""))
   maka nilai s adalah 3
3. Menghitung jumlah kata dalam string. Misalnya Anda ingin menghitung jumlah kata dalam string "anda berhasil", maka kodenya adalah :
   
   s = UBound(Split("anda berhasil", " ")) + 1
   maka nilai s adalah 2
4. Menghilangkan karakter tertentu dalam string. Misalnya Anda ingin menghilangkan karakter "a" dalam string "anda berhasil", maka kodenya adalah :
   
   s = Replace("anda berhasil", "a", "")
   maka nilai s adalah "nd berhsil"
5. Mengisi variabel array dinamis dengan string. Contoh kodenya sebagai berikut :
   
   Dim Binatang() As String
   Binatang = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")
   maka variabel Binatang memiliki 5 index (0-4) dengan rincian:
   nilai Binatang(0) = "Kuda"
   nilai Binatang(1) = "Kerbau"
   nilai Binatang(2) = "Sapi"
   nilai Binatang(3) = "Kambing"
   nilai Binatang(4) = "Macan"

CATATAN : Dalam beberaa fungsi string, terdapat optional property 'CompareMethod'. Bila properti ini bernilai Binary, maka fungsi tersebuat melakukan metode case-sensitive terhadap string. Sedangkan bila bernilai Text, maka fungsi tersebuat tidak melakukan metode case-sensitive.


Source Putravb

Copy, Cut, Rename

Kegiatan seperti Cut, Copy, Delete, dan Rename adalah kegiatan yang rutin dilakukan bila berhadapan dengan File maupun Folder. Kode-kode berikut ini akan menunjukkan bagaimana kegiatan tersebut dijalankan dalam VB. Kode ini menggunakan fungsi API yang lebih baik bila dibandingkan dengan fungsi bawaan / default.

Buat Module baru dan ketikkan :
[ VB 6.0 ]

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

[ VB .NET ]

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer

Structure SHFILEOPSTRUCT
Dim hWnd As Integer
Dim wFunc As Integer
Dim pFrom As String
Dim pTo As String
Dim fFlags As Integer
Dim fAborted As Boolean
Dim hNameMaps As Integer
Dim sProgress As String
End Structure

Lalu tambahkan kode berikut ini tepat setelah kode diatas.

Enum ffAction
FO_MOVE = &H1
FO_COPY = &H2
FO_DELETE = &H3
FO_RENAME = &H4
End Enum

Enum ffFlags
FOF_ALLOWUNDO = &H40 'menghapus ke recycle bin
FOF_NOCONFIRMATION = &H10 'menghilangkan pesan konfirmasi
FOF_NOCONFIRMMKDIR = &H200 'menghilangkan pesan pembuatan folder jika folder tidak ada
FOF_NOERRORUI = &H400 'menghilangkan pesan kesalahan
FOF_RENAMEONCOLLISION = &H8 'otomatis rename file jika ganda
FOF_SILENT = &H4 'menghilangkan dialog proses
End Enum

Public Sub FFOperation(ByVal Source As String, ByVal Destination As String, ByVal Action As ffAction, ByVal Flags As ffFlags)
Dim SO As SHFILEOPSTRUCT
With SO
.wFunc = Action
.pFrom = Source & Chr(0) & Chr(0)
.pTo = Destination
.fFlags = Flags
End With
SHFileOperation SO
End Sub

Berikut ini contoh penggunaannya :

1. CUT
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_MOVE, 0
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_MOVE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_MOVE, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_COPY, ffFlags.FOF_SILENT)

2. COPY
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_COPY, 0
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_MOVE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "C:\Tujuan.txt", FO_COPY, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "C:\Tujuan.txt", ffAction.FO_COPY, ffFlags.FOF_SILENT)

3. DELETE
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, 0
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, 0)
Jika Anda ingin menghilangkan dialog proses-nya, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, FOF_SILENT
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, ffFlags.FOF_SILENT)
Jika Anda ingin menghapus ke RecycleBin, ketikkan :
VB 6.0 FFOperation "C:\Sumber.txt", "", FO_DELETE, FOF_SILENT + FOF_ALLOWUNDO
VB .NET FFOperation("C:\Sumber.txt", "", ffAction.FO_DELETE, ffFlags.FOF_SILENT + ffFlags.FOF_ALLOWUNDO)

4. RENAME
VB 6.0 FFOperation "C:\NamaLama.txt", "C:\NamaBaru.txt", FO_RENAME, 0
VB .NET FFOperation("C:\NamaLama.txt", "C:\NamaBaru.txt", ffAction.FO_RENAME, 0)

Source : PutraVb

Lihat Ukuran File

Jika Anda membutuhkan kode untuk mengetahui ukuran / size dari file maupun folder, berikut ini contoh potongan kodenya :

Mengetahui ukuran file

Dim l As Long
l = FileLen("LOKASI FILE")
MsgBox l

Mengetahui ukuran folder

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("LOKASI FOLDER").Size

Nilai output yang dihasilkan merupakan nilai dengan satuan Byte (B). Perbandingannya :
1024 Byte (B) = 1 KiloByte (KB)
1024 KiloByte (KB) = 1 MegaByte (MB)
1024 MegaByte (MB) = 1 GigaByte (GB)
Jadi misalnya Anda ingin mengetahui ukuran file dalam satuan MegaByte (MB) , contohnya sebagai berikut :

Dim l As Long
l = ((FileLen("LOKASI FILE") / 1024) / 1024)
MsgBox l & " MB"

Source : PutraVb

Form Selalu Di Depan

Berikut ini adalah kode-kode yang digunakan agar Form aplikasi Anda selalu ditempatkan paling depan diantara Form-Form aplikasi yang lain.

Buat sebuah Module baru dan ketikkan :

Public 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

Public Sub FormOnTop(ByVal Frm As Form, ByVal State As Boolean)
SetWindowPos Frm.hwnd, IIf(State = True, -1, -2), 0, 0, 0, 0, &H1 Or &H2
End Sub

Untuk contoh penggunaannya, buatlah sebuah Form dan ketikkan kode berikut di bagian 'Form_Paint'.

FormOnTop Me, True

Namun jika anda menginginkan proses aktif/ non-aktifkan saat aplikasi berjalan, lakukan hal berikut. Buatlah sebuah Form dan sebuah CheckBox didalamnya.
Lalu di bagian 'Check1_Click' dan di bagian 'Form_Paint' ketikkan :

FormOnTop Me, IIf(Check1.Value = 1, True, False)