Me.Close

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Betzi.

    Me.Close

    Hey
    hab da gerade ein komisches Problem.
    Habe mir einen Messagerequester gemacht. Der Funktioniert auch soweit.
    So wenn ich sage Me.Close() kann ich danach dann noch sagen Me.Opacity = 0 ???
    Weil ich damit abfragen will ob das Fenster bereits geöffnet wurde, sodass ich nicht mehrmals das Fenster öffne.

    Blos scheint das nicht so recht zu funktionieren

    VB.NET-Quellcode

    1. If Me.Visible Then
    2. ' ich bin sichtbar
    3. End If

    So einen nicht-modalen Dialog anzeigen

    VB.NET-Quellcode

    1. If dlg Is Nothing OrElse dlg.IsDisposed Then
    2. dlg = New FormX
    3. End If
    4. If Not dlg.Visible Then
    5. dlg.Show()
    6. End If
    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!

    Hm wenn man das mit "Me.Visible()" abfragen kann muss der Fehler woanders stecken -.-

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On : Option Strict On
    3. Public Class Messagerequester
    5. Dim Breite, Höhe, Button As Integer
    7. Public Sub Zeige1(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal picture As Bild) ' As Boolean
    8. If Me.Opacity = 0 Then
    9. Btn2.Visible = False
    10. If LblMeld.Text <> Message Then
    11. LblMeld.Text = Message
    12. Me.AutoSize = True
    13. End If
    14. Btn1.Text = Button01
    15. Me.Text = Title
    16. Img(picture)
    17. Einst()
    18. End If
    19. End Sub
    21. Public Sub Zeige2(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Button02 As String, ByVal picture As Bild) ' As String
    22. If Me.Opacity = 0 Then
    23. Btn2.Visible = True
    24. If LblMeld.Text <> Message Then
    25. LblMeld.Text = Message
    26. Me.AutoSize = True
    27. End If
    28. Btn2.Text = Button02
    29. Btn1.Text = Button01
    30. Me.Text = Title
    31. Img(picture)
    32. Einst()
    33. End If
    34. End Sub
    36. Public Sub Zeige1(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Font As Font, ByVal picture As Bild) ' As Boolean
    37. If Me.Opacity = 0 Then
    38. Btn2.Visible = False
    39. If LblMeld.Text <> Message Then
    40. LblMeld.Text = Message
    41. Me.AutoSize = True
    42. End If
    43. Btn1.Text = Button01
    44. Me.Text = Title
    45. Me.Font = Font
    46. Img(picture)
    47. Einst()
    48. End If
    49. End Sub
    51. Public Sub Zeige2(ByVal Title As String, ByVal Message As String, ByVal Button01 As String, ByVal Button02 As String, ByVal Font As Font, ByVal picture As Bild) ' As String
    52. If Me.Opacity = 0 Then
    53. Btn2.Visible = True
    54. If LblMeld.Text <> Message Then
    55. LblMeld.Text = Message
    56. Me.AutoSize = True
    57. End If
    58. Btn2.Text = Button02
    59. Btn1.Text = Button01
    60. Me.Text = Title
    61. Me.Font = Font
    62. Img(picture)
    63. Einst()
    64. End If
    65. End Sub
    67. Private Sub Einst()
    68. Höhe = Me.Height
    69. If LblMeld.Height > 100 Then
    70. Höhe += (Btn1.Height + 25)
    71. End If
    72. Breite = Me.Width
    73. Me.AutoSize = False
    74. Me.Height = Höhe
    75. Breite += 20
    76. Me.Width = Breite
    78. Btn1.SetBounds(15, Höhe - (Btn1.Height + 35), Btn1.Width, Btn1.Height)
    79. Btn2.SetBounds(Breite - (Btn2.Width + 20), Höhe - (Btn2.Height + 35), Btn2.Width, Btn2.Height)
    81. PicBMess.SetBounds(15, 15, 49, 49)
    83. MyBase.Opacity = 100
    85. Me.ShowDialog()
    87. End Sub
    89. Private Sub Img(ByVal Picture As Integer)
    91. If Picture = 1 Then
    92. PicBMess.Image = MainForm.information
    93. ElseIf Picture = 2 Then
    94. PicBMess.Image = MainForm.warning
    95. ElseIf Picture = 3 Then
    96. PicBMess.Image = MainForm.important
    97. ElseIf Picture = 4 Then
    98. PicBMess.Image = MainForm.critical
    99. ElseIf Picture = 5 Then
    100. PicBMess.Image = MainForm.question
    101. Else
    102. PicBMess.Image = Nothing
    103. End If
    105. End Sub
    107. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
    108. MainForm.Messagereturn = Btn1.Text
    109. Btn2.SetBounds(0, 0, Btn2.Width, Btn2.Height)
    110. Me.Close()
    111. Me.Opacity = 0
    112. End Sub
    114. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
    115. MainForm.Messagereturn = Btn2.Text
    116. Btn2.SetBounds(0, 0, Btn2.Width, Btn2.Height)
    117. Me.Close()
    118. Me.Opacity = 0
    119. End Sub
    121. Enum Bild
    122. information = 1
    123. warning = 2
    124. important = 3
    125. critical = 4
    126. question = 5
    127. nix = 0
    128. End Enum
    130. End Class


    Fals hilfreich:
    "Das Formular, das bereits modal angezeigt wird, kann nicht als modales Dialogfeld angezeigt werden. Schließen Sie das Formular, bevor Sie showDialog aufrufen."

    EDIT: ??? Keiner eine Idee warum er das macht ?? Also eine Exception schmeisst.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Zim“ ()

    Es Tritt im Moment nicht mehr auf, ist aber ein potenzieller Fehler.
    Also wenn meine Software zu schnell hintereinander das Fenster, also den Messagerequester aufruft kommt die Exception das die Form noch offen ist ...
    Dabei überprüfe ich eigentlich mithilfe von "If Me.Opacity = 0 Then" ob die Form noch offen ist.
    Was kann ich nun noch machen um zu Prüfen ob die Form wirklich schon zu ist ???
    Ich hab keine lust das mit Try Catch auf zu fangen...

    Gruß Zim

    ich würde vielleicht me.hide anstatt me.close benutzen, dann kannst du mit

    VB.NET-Quellcode

    1. if me.visible = true

    abfragen, ob das fenster schon offen ist... und das opacity kannst du weg lassen, falls ich verstanden habe, was du machen willst...

Facebook
Telefonspende