Hi VB-Gemeinde.
In diesem Thread wollte ich mich von
verabschieden, aber xtts02 hat mir folgenden Tipp gegeben:
Spoiler anzeigen
Das teste ich momentan noch, ob der o.g. Code richtig ist.
Nun habe ich ein kleinen Fehler oder ich weiß nicht genau, wie ich das umsetzen soll.
Anwender können über Einstellungen Einstellungen vornehmen, diese wären:
Als Standard festgelegt.
Wenn aber der Anwender keine Änderungen vorgenommen hat, soll beim Schließen der Einstellungen das Programm nicht beendet werden.
Spoiler anzeigen
Irgendwas ist da vollkommen falsch.
Nur ich weiss nicht, wie das machen soll.
Denkansatz?
In diesem Thread wollte ich mich von
verabschieden, aber xtts02 hat mir folgenden Tipp gegeben:
VB.NET-Quellcode
- 'Einstellungen von der Vorgängerversion übernehmen
- If Not My.Settings.upgraded Then
- If MsgBox("Möchtest Du Parameter und Einstellungen aus der Vorgängerversion importieren?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "Frage...") = MsgBoxResult.Yes Then
- My.Settings.Upgrade()
- My.Settings.upgraded = True
- My.Settings.Save()
- MessageBox.Show("Änderungen werden nach einem Neustart des Programms wirksam. Programm muss manuell gestartet werden.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Environment.Exit(0)
- End If
- End If
Das teste ich momentan noch, ob der o.g. Code richtig ist.
Nun habe ich ein kleinen Fehler oder ich weiß nicht genau, wie ich das umsetzen soll.
Anwender können über Einstellungen Einstellungen vornehmen, diese wären:
Als Standard festgelegt.
Wenn aber der Anwender keine Änderungen vorgenommen hat, soll beim Schließen der Einstellungen das Programm nicht beendet werden.
VB.NET-Quellcode
- #Region "FormClosing"
- Private Sub Settings_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
- If Settings_backuplocation.lbl_savepath_new.Text = "" And Settings_notice.CheckBox1.Checked = False And Settings_updates.CheckBox2.Checked = False Then
- 'NICHTS MACHEN
- 'My.Settings.savepath = Settings_backuplocation.lbl_savepath_out.Text
- 'My.Settings.note = Settings_notice.CheckBox1.Checked
- 'My.Settings.checkfor_updates_start = Settings_updates.CheckBox2.Checked
- 'My.Settings.Save()
- Else
- My.Settings.savepath = Settings_backuplocation.lbl_savepath_new.Text
- My.Settings.note = Settings_notice.CheckBox1.Checked
- My.Settings.checkfor_updates_start = Settings_updates.CheckBox2.Checked
- My.Settings.Save()
- Environment.Exit(0)
- End If
- End Sub
- #End Region
Irgendwas ist da vollkommen falsch.
Nur ich weiss nicht, wie das machen soll.
Denkansatz?
Grüße JackCimberly
Deine Anfrage erledigt?
Als erledigt markieren
Deine Anfrage erledigt?
Als erledigt markieren