Warung Bebas

Kamis, 02 Mei 2013

Aplikasi Sekali Jalan (VB 6.0)

Terkadang sebagai seorang programmer kita memerlukan aplikasi sekali jalan, hal tersebut dilakukan jika aplikasi tersebut mengolah file sistem pada komputer ataupun pada aplikasi seperti dalam mengolah database aplikasi.
Baiklah langsung saja berikut adalah kodenya:
Buat Module baru dan ketikkan :
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Sub ShowPrevInstance()
Dim OldTitle As String
Dim l As Long 'window handle

OldTitle = App.Title
App.Title = "This App Will Be Closed"

l = FindWindow("ThunderRT6Main", OldTitle)
If l = 0 Then Exit Sub
l = GetWindow(l, 3)

OpenIcon (l)
SetForegroundWindow (l)
End
End Sub

Dan di Form awal di bagian 'Form_Load' ketikkan :
If App.PrevInstance = True Then 'jika sudah
ShowPrevInstance 'memfokuskan ke aplikasi sebelumnya
End If

Untuk contoh programnya anda bisa download disini atau disini.

0 komentar em “Aplikasi Sekali Jalan (VB 6.0)”

Posting Komentar

 

Indah Hidup Copyright © 2012 Fast Loading -- Powered by Blogger