Hallo
bin der Willi und bin noch anfänger in sachen Programmieren.
Mein erstes Thema und erstes Problem lautet wie folgt.
In folgendem Code geht es darum Werte in eine Text Datei zu Speichern.
Dabei wird abgefragt ob alle Felder ausgefüllt sind,
wenn nicht soll eine MsgBox erscheinen.
Bei klick auf "Ja" erscheint die MsgBox erneut.
MfG. Willi
bin der Willi und bin noch anfänger in sachen Programmieren.
Mein erstes Thema und erstes Problem lautet wie folgt.
In folgendem Code geht es darum Werte in eine Text Datei zu Speichern.
Dabei wird abgefragt ob alle Felder ausgefüllt sind,
wenn nicht soll eine MsgBox erscheinen.
Bei klick auf "Ja" erscheint die MsgBox erneut.
Quellcode: vb.Net
- Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
- 'Try
- Dim SaveFileDialog As SaveFileDialog = New SaveFileDialog
- SaveFileDialog.InitialDirectory = IO.Path.Combine(Application.StartupPath, "Kontakte")
- SaveFileDialog.Filter = "Textdateien (*.txt)|*.txt"
- If SaveFileDialog.ShowDialog(Me) = DialogResult.OK Then
- For Each tb In Me.Controls.OfType(Of TextBox)()
- For Each mtb In Me.Controls.OfType(Of MaskedTextBox)()
- For Each cb In Me.Controls.OfType(Of ComboBox)()
- If String.IsNullOrEmpty(tb.Text) Or String.IsNullOrEmpty(cb.Text) Or mtb.MaskCompleted = False Then
- Select Case MessageBox.Show("Nicht alle Felder sind ausgefüllt ! " & vbCrLf & "Dennoch Speichern ?", "Speichern", MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2)
- Case Windows.Forms.DialogResult.Yes
- Using sw As New StreamWriter(SaveFileDialog.FileName)
- sw.WriteLine(Me.txtName.Text)
- sw.WriteLine(Me.txtVorname.Text)
- sw.WriteLine(Me.txtDatum.Text)
- sw.WriteLine(Me.lblBildName.Text)
- If rbWeiblich.Checked = True Then
- sw.WriteLine(Me.rbWeiblich.Text)
- Else
- sw.WriteLine(Me.rbMaennlich.Text)
- End If
- sw.WriteLine(Me.cbName.Text)
- sw.Close()
- End Using
- Case Windows.Forms.DialogResult.No
- MsgBox("Abgebrochen")
- Exit Sub
- End Select
- Else
- Using sw As New StreamWriter(SaveFileDialog.FileName)
- sw.WriteLine(Me.txtName.Text)
- sw.WriteLine(Me.txtVorname.Text)
- sw.WriteLine(Me.txtDatum.Text)
- sw.WriteLine(Me.lblBildName.Text)
- If rbWeiblich.Checked = True Then
- sw.WriteLine(Me.rbWeiblich.Text)
- Else
- sw.WriteLine(Me.rbMaennlich.Text)
- End If
- sw.WriteLine(Me.cbName.Text)
- sw.Close()
- End Using
- End If
- Next
- Next
- Next
- Else
- Exit Sub
- End If
- 'Catch ex As Exception
- ' MessageBox.Show(ex.Message)
- 'End Try
- End Sub
MfG. Willi