10
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 zuende laufen lassen und danach den Close auslösen?
Stausvariable und über gehen?
Bin wie immer für Tips sehr dankbar
Beste Grüße
mpmichael
Wie kann ich den
Load_Form1 Stausvariable und über
Shown Bin wie immer für Tips sehr dankbar
Beste Grüße
mpmichael
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 166988
Url: https://administrator.de/contentid/166988
Printed on: April 20, 2024 at 00:04 o'clock
10 Comments
Latest comment
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
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
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
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
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:
Hier der Code aus Form1_Load
Ich hoffe das hilft weiter
Beste Grüße und Danke
mpmichael
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 SubHier 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 SubIch 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
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
an.
Beste Grüße
mpmichael
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
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
Danke ich werde es am Montag gleich testen.
Hallo Norbert,
besten Dank Application.Exit() ist super und der Fehler tritt nun nicht mehr auf.
Beste Grüße
mpmichael
besten Dank Application.Exit() ist super und der Fehler tritt nun nicht mehr auf.
Beste Grüße
mpmichael
