Form wird durch Application.OpenForms nicht erkannt

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von woeh.

    Form wird durch Application.OpenForms nicht erkannt

    hallo :)

    ich öffne eine form

    VB.NET-Quellcode

    1. Dim frmPro As New frmProgress
    3. frmPro.Show()


    dass problem ist, das diese form nicht von Application.OpenForms verarbeitet wird.

    ich habe 3 offene formen...Application.OpenForms.Count gibt mir nur 2 zurück.

    woran kann das liegen ?

    Das Problem ist, dass Du Application.OpenForms gar nicht brauchst. Du hast doch eine Referenz für jede Form. Beschreibe mal, was Du vor hast, dann finden wir eine Lösung.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Wird bei Application.OpenForms.Count die Main Form auch gezählt?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    ja....die mainform wird gefunden.

    das ist die funktion die es prüft:

    VB.NET-Quellcode

    1. Private Sub NotifyIcon_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon.MouseDoubleClick
    2. Dim visible As Boolean
    4. visible = Not (Me.Visible)
    6. For Each frm As Form In Application.OpenForms
    7. frm.Visible = visible
    9. If frm.Visible = True Then
    10. frm.TopMost = True
    11. frm.TopMost = False
    12. End If
    14. Application.DoEvents()
    15. Next
    17. If Me.Enabled = True And Me.Visible = True Then
    18. Me.Activate()
    19. End If
    21. End Sub


    frmPro wird dabei nicht gefunden....warum weiß ich auch nicht

    ich habe gerade mal folgendes probiert:

    VB.NET-Quellcode

    1. Public Function FormIsLoaded(ByVal sName As String) As Boolean
    2. Dim bResult As Boolean = False
    4. ' alle geöffneten Forms durchlauden
    5. For Each oForm As Form In Application.OpenForms
    6. If oForm.Name.ToLower = sName.ToLower Then
    7. bResult = True : Exit For
    8. End If
    9. Next
    11. Return (bResult)
    12. End Function


    habe ich direkt in die form eingegeben und rufe die funktion auf

    VB.NET-Quellcode

    1. MsgBox(FormIsLoaded(Me.Name))


    ich bekomme False zurück ???

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „woeh“ ()

    es funktioniert ja sonst....nur mit frmProgress habe ich probleme.

    vorhin war die form 1x kurz aufgetaucht...dann nicht mehr...
    ich habe versucht es zu reproduzieren...sie ist nicht mehr aufgetaucht.

    ich habe mir jetzt mit ner hilfsreferenz geholfen.

    werde nachher mal versuchen die form umzubenennen.
    vielleicht hilft das ja

    nein....ich habe formen, die im eigenem thread laufen...mit denen gehts.
    frmProgress ist nur ne form, die den fortschritt für verschiedene dinge zuständig ist.
    es gibt nur einen sub.

    VB.NET-Quellcode

    1. Public Sub SetInfo(ByVal Title As String,
    2. ByVal Message As String,
    3. ByVal Min As Integer,
    4. ByVal Max As Integer,
    5. ByVal Value As Integer,
    6. Optional lblInfoText As String = "",
    7. Optional pathCompact As Boolean = True,
    8. Optional showPercentInTitle As Boolean = True,
    9. Optional showFileCount As Boolean = False)
    10. Static oldTitle As String
    11. Static oldMessage As String
    12. Static oldLblText As String
    14. If showPercentInTitle = True Then
    15. Title = Title & " (" & CInt((100 / Max * Value)).ToString & "%)"
    16. End If
    18. If Title <> oldTitle Then
    19. oldTitle = Title
    21. Me.Text = Title
    22. End If
    24. If Message <> oldMessage Then
    25. oldMessage = Message
    27. If pathCompact = False Then
    28. gb.Text = Message
    29. Else
    30. gb.Text = clsClass.CompactPath(gb, Message)
    31. End If
    33. If pbar.Minimum <> Min Then
    34. pbar.Minimum = Min
    35. End If
    36. End If
    38. If pbar.Maximum <> Max Then
    39. pbar.Maximum = Max
    40. End If
    42. If showFileCount = True Then
    43. If lblInfoText.Length = 0 Then
    44. lblInfoText = "Datei"
    45. End If
    47. lblInfoText = lblInfoText & " " & Value.ToString & " von " & pbar.Maximum.ToString
    48. End If
    50. If lblInfoText <> "" Then
    51. If oldLblText <> lblInfoText Then
    52. oldLblText = lblInfoText
    54. lblInfo.Text = lblInfoText
    55. End If
    56. End If
    58. pbar.Value = Value
    60. Application.DoEvents()
    62. End Sub

    @woeh Möglicherweise liegt es am anderen Thread, ich hab da kein Beispiel rumliegen.
    Schreib mal ein kurzes Programm / Projekt, das Dein Problem reproduziert und häng es hier dran.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Stack Overflow schrieb:

    There's a bug in Windows Forms that makes a form disappear from the
    Application.OpenForms collection. This will happen when you assign the
    ShowInTaskbar, FormBorderStyle, ControlBox, Min/MaximizedBox,
    RightToLeftLayout, HelpButton, Opacity, TransparencyKey, ShowIcon or
    MdiParent property after the window was created. These
    properties are special in that they are specified as style flags in the
    native CreateWindowEx() call.


    stackoverflow.com/questions/37…-0-always/3751748#3751748

Facebook
Telefonspende