Hur kan man kontrollera om ett MDI-fönster är gömt med Hide? Det enda jag kommer på i skrivande stund är att du anropar MDI Formen Fick inget error när jag körde Visible=True på en "Hide:ad" Frm däremot blev den synlig... märkte att efter man kört Hide så sätts Visible=False, så då snickrade jag ihop följande som jag tror hanterar alla fall som kan påverka om en frm är synlig eller inte. Bra jobbat, hade inte störtkoll. Snygg kod. JAg skulle använda objektinstansen. Vilket ger koden möjlighet att kolla en instans:Gömt med Hide?True/False?
tack på förhand!Sv: Gömt med Hide?True/False?
på något vis. Tex med Visible = True
Om den då är Hide så får du Error som du tar hand om.Sv:Gömt med Hide?True/False?
Public Function IsOpen(Frm As String) As Boolean
Dim frmForm As Form
For Each frmForm In Forms
If frmForm.Name = Frm Then
'frm är öppen eller gömd med Hide
If frmForm.Visible = True Then
IsOpen = True 'frm är synlig
End If
Exit For
End If
Next
End Function
Sv: Gömt med Hide?True/False?
Tillsammans knäcker Vi det mesta.
Vad händer om jag försöker sätta den Hide:ade Formen BackColor = (samma som den redan har)Sv: Gömt med Hide?True/False?
Public Function IsOpen(Frm As Form) As Boolean
Dim frmForm As Form
For Each frmForm In Forms
If frmForm Is Frm Then
'frm är öppen eller gömd med Hide
If frmForm.Visible Then
IsOpen = True 'frm är synlig
End If
Exit For
End If
Next
End Function
Anropas istället:
If IsOpen(Form1) Then
Else
End If