Hej på er alla glada VB-snubbar och snubbor.

Man kan ju Loada och Unloada formulär. Men det jag vill
kunna göra är att kolla om ett formulär är loadat. Hur gör
jag det enklast.

Hmmm. Just precis nu kom jag på att man kan ju kolla
forms-collection om det finns där. Men finns det enklare
sätt. Eller snyggare ??

Nåja hoppas ni har iddér!

/peterh

Så här lägger du till en property

Option Explicit

Private mLoaded As Boolean

Public Property Get Loaded() As Boolean
Loaded = mLoaded
End Property

Private Sub Form_Load()
mLoaded = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
mLoaded = (Cancel = 0)
End Sub


Eller bara

Public Property Get Loaded() As Boolean
Dim frmForm As Form
For Each frmForm In Forms
If frmForm Is Me Then
Loaded = True
Exit For
End If
Next
End Property

Eller kapsla den i en funktion:

Public Function GetLoaded(Form As Form) As Boolean
Dim frmForm As Form
For Each frmForm In Forms
If frmForm Is Form Then
Loaded = True
Exit For
End If
Next
End Function