VB2010 close aus Form-Load heraus, vermeidung von System.ObjectDisposedException

wie kann man das besser lösen - oder eleganter

warum ich die Fehlermeldung bekomme ist mir klar - ich schreibe in eine TextBox innerhalb des Sub Load_Forms und löse auf Grund eines Ereignisses (IF) einen close() befehl aus.

Wie kann ich den

Load_Form1

zuende laufen lassen und danach den Close auslösen?

Stausvariable und über

Shown

gehen?

Bin wie immer für Tips sehr dankbar
Beste Grüße
mpmichael

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 166988

Url: https://administrator.de/forum/vb2010-close-aus-form-load-heraus-vermeidung-von-system-objectdisposedexception-166988.html

Ausgedruckt am: 16.02.2025 um 21:02 Uhr

10 Kommentare

Neuester Kommentar

Hi

verstehe ich nicht so ganz.

Du lässt in der Load_Form eine Textbox befüllen vom System, darauf machst du eine If Abfrage und je nach Ergebnis der If Abfrage dann ein Form Close.

Bin ich da jetzt richtig? Woher kommen die Daten die in die Textbox geschrieben werden?

Gruß
Norbert

Hallo,

vielleicht wäre es hilfreich, wenn du die betreffenden Subs mal reinkopierst, damit man dir auch besser helfen kann.

Mfg,
Mathe172
P.S.:Du bekommst mehr Antworten, wenn deine Frage mit "Hallo" oder "Guten Tag" beginnt

Sorry ,

Es war so heiss das ich vergessen habe eine höfliche Anrede zu wählen. Sollte natürlich nicht sein.
Source stelle ich am Montag ein. Komme vermutlich vorher nicht ran.
Beste Grüße
Mpmichael

Hallo,

Ja Du liebte richtig. Die Texte werden wie eine Art Log durch das Programm automatisch erzeugt.
Beste Grüße
Mpmichael

Guten Morgen,

anbei die Sub's - habe sie auf die wesentlichen Zeilen Reduziert:

    Private Sub LogBoxing(ByVal logtext As String)

        '********************************************************************************************  
        '*** Log Schreibung  
        '*********************************************************************************************  

        Dim ADInfo
        ADInfo = CreateObject("wscript.network") 'Abfrage der Netzwerkinformationen  
        logtext = DateString & " " & TimeString & " : " & logtext & vbNewLine  
        LogBox1.AppendText(logtext)


    End Sub

Hier der Code aus Form1_Load

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MeldungsText As String      'Meldungstext falls Programme offen sind  
        MeldungsText = "NIX"  

        Call LogBoxing("Programmstart")  

        ' Abfrage Status IpAgent  

        If IsProcessOpen("IpAgent") = True Then  
            Call LogBoxing("IPAGENT läuft bereits!")  
            MeldungsText = "Achtung: Das AVAYA IP Agent (Softphone) ist bereits gestartet. Dieser muss erst geschlossen werden bevor dieses Programm ausgeführt werden kann! TelefonSwitcher wird nun beendet!"  
        Else
            Call LogBoxing("IpAgent ist nicht gestartet (OK!)")  
        End If

         If MeldungsText <> "NIX" Then  
            MsgBox(MeldungsText, MsgBoxStyle.Critical)
        End If

' hier feht Code, der nicht relevant ist  

        If MeldungsText <> "NIX" Then Close()  

    End Sub

Ich hoffe das hilft weiter
Beste Grüße und Danke
mpmichael

Hi mpmichael

leider kann ich den Fehler nicht reproduzieren.

Ich gehe aber mal stark davon aus das dass letzte If noch mit einem End If abgeschlossen wird.

Da die aktuelle Form geschlossen werden soll wäre Me.Close() schöner, aber egal.

Proniere doch mal

Application.Exit()

Gruß
Norbert

Hallo,

ich denke der Fehler rührt daher, das ich wärend des ladevorgangs bereits logge. Das geht auch ok, wenn nicht die Bedingungen eintreten, die in der Zeile 24 den Close auslösen - denn dann wird das Form geschlossen bevor die Meldung angezeigt wird.

Aber danke ich sehe mir mal

Application.Exit()

an.
Beste Grüße
mpmichael

Hallo,

wenn ich das richtig verstehe, versucht er nach dem Close-Befehl noch weitere Befehle auszuführen, die aber fehlschlagen.

Wenn Application.Exit nicht hilft (und wenn's hilft, mach bitte einen grünen Hacken dran), versuch doch mal nach dem Close noch ein "Exit Sub" einzubauen.

Mfg,
Mathe172