Salam VB,
coba pake ini mas, letakkan di module
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As
Long, _
ByVal
lpClassName As String, _
ByVal
nMaxCount As Long) _
As Long
Sedangkan di Form Menu
Dim lngHand As Long
Dim strName As String * 255
Dim wndClass As wndClass
Dim lngProcID As Long
Dim rctTemp As RECT
Dim cFormCaption as String
cFormCaption = "Form1"
lngHand = FindWindow(vbNullString, cFormCaption)
GetClassName lngHand, strName, Len(strName)
If Left$(strName, 1) = vbNullChar Then
form1.show
Else
Msgbox "Form ini sudah dibuka...!"
End If
Semoga membantu...
________________________________
GENERASI COMPUTER
Berbagi Ilmu Visual Basic Bagi Pemula
http://www.generasicomputer.com
Hp. 08126514562
________________________________
________________________________
From: "[email protected]" <[email protected]>
To: [email protected]
Sent: Sat, May 15, 2010 10:31:29 PM
Subject: [indoprog-vb] Detek form aktif
Halo saya minta bantuan para pakar vb6, bagaimana cara deteksi form yang masih
aktif yang sudah kebuka sehingga jika kita akan membuka form yang sama maka
langsung ditolak.
saya ga pake MDI dan memang ga suka mdi untuk deteksi form aktif.
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
------------------------------------
Untuk berhenti berlangganan kirim email kosong ke :
[email protected].
Untuk forum diskusi lainnya kunjungi :
http://www.geocities.com/indoprog
Yahoo! Groups Links
[Non-text portions of this message have been removed]
