Check om form er åben!!

Jeg en MDIForm
FLOT... (Jeg har en MDIForm)

Har du prøvet at anvende
UserForm2.Visible
Det er en boolean som returnerer sand eller falsk.
Du kan så spørge om den er sand eller falsk for at se om den er åben.

Hejsa
prøv med

mdiform.activeform.name

Du skal dog passe på, da det kan give en re hvis nu \"activeform is nothing\"

mvh.

Christian

Tak for svarene, men kan ikke bruges.

1/ UserForm2.Visible åbner UserForm2 og siger True

2/ mdiform.activeform.name giver fejl hvis der ikke er en form åbne.

Peter lang

Hej prøv denne kode:
Private Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Form2.Show
   
    Dim Handle As Long
  \'Hvis handle er forskellig fra 0 findes form2
    Handle = FindWindow(vbNullString, Form2.Caption)
    MsgBox (lHandle)
 
End Sub

Prøv denne kode istedet. Der var en lille fejl i første forsøg:
Private Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Form2.Show
   
    Dim Handle As Long
  \'Hvis handle er forskellig fra 0 findes form2
    Handle = FindWindow(vbNullString, \"Form2\")
    MsgBox (Handle)
 
End Sub

Jeg kan ikke få det til at virke..

Jeg får kun 0.

Peter Lang

I denne linie er \"Form2\" det der står i form2s caption (titel). Det er altså ikke formens navn.

Handle = FindWindow(vbNullString, \"Form2\")

Du skal kun få 0, hvis formen ikke er åben. Forudsat naturligvis at formens titel er stavet rigtigt, jf ovenfor.

Jeg har testet koden, og den virker fint her hos mig.

Jeg prøver igen.

Tak