Sorry mas, ketinggalan
letak paling atas module
Type wndClass
style As Long
lpfnwndproc As Long
cbClsextra As Long
cbWndExtra2 As Long
hInstance As Long
hIcon As Long
hCursor As Long
hbrBackground As Long
lpszMenuName As String
lpszClassName As String
End Type
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Semoga membantu...
________________________________
GENERASI COMPUTER
Berbagi Ilmu Visual Basic Bagi Pemula
http://www.generasicomputer.com
Hp. 08126514562
________________________________
________________________________
From: Mr Donh <[email protected]>
To: [email protected]
Sent: Sat, May 22, 2010 8:36:16 AM
Subject: Re: [indoprog-vb] Detek form aktif
Mas Yopi
yang mengandung kata wndClass pada saat declare
Dim wndClass As wndClass
class wndClass nya tidak dikenal. Ada source class nya mas ?
--- Pada Sen, 17/5/10, Yopie Sofianto <[email protected]> menulis:
Dari: Yopie Sofianto <[email protected]>
Judul: Re: [indoprog-vb] Detek form aktif
Kepada: [email protected]
Tanggal: Senin, 17 Mei, 2010, 7:25 AM
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]
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
