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]
