VB.NET-Quellcode
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- If TextBox1.Text = "" Then
- TextBox1.BackColor = Color.Red
- End If
- If TextBox2.Text = "" Then
- TextBox2.BackColor = Color.Red
- End If
- If TextBox3.Text = "" Then
- TextBox2.BackColor = Color.Red
- End If
- If TextBox10.Text = "" Then
- TextBox10.BackColor = Color.Red
- End If
- If CheckBox1.Checked = False Then
- CheckBox1.Enabled = False
- End If
- MessageBox.Show("Bitte füllen Sie alle notwendigen Felder aus, auch das Datum.", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- If MsgBoxResult.Ok Then
- TextBox1.BackColor = Color.White
- TextBox2.BackColor = Color.White
- TextBox3.BackColor = Color.White
- TextBox10.BackColor = Color.White
- CheckBox1.Enabled = True
- TextBox1.Focus()
- End If
- If TextBox1.TextLength > 0 And TextBox2.TextLength > 0 And TextBox3.TextLength > 0 And TextBox10.TextLength > 0 And CheckBox1.Checked = True Then
- Button2.Visible = False
- Button3.Visible = False
- PictureBox3.Focus()
- PrintDialog1.Document = PrintDocument1
- PrintDialog1.PrinterSettings.PrinterName = "Brother MFC-L9570CDW series"
- Me.PrintDocument1.Print()
- Button2.Visible = False
- Button3.Visible = True
- End If
- End Sub
Hallo an alle Mitglieder,
leider komme ich hier nicht weiter. Bitte nicht wundern, die ersten If Anweisungen habe ich mit Absicht so erstellt, normanl mit AndAlso. Oder nur And.
Mein Problem ist folgendes: Wenn der User nicht alle Felder ausgefüllt hat, sollen die Boxen BackColor rot haben. Klickt er auf die MsgBox werden sie wieder weiß.
Das klappt auch alles. Wenn die Felder ausgefüllt sind, kommt nochmal die MsgBox wenn ich auf Drucken klicke. Es wird zwar dann wie gewünscht gedruckt, nun aber meine Frage, wie erreiche ich es, das die MsgBox
nicht mehr angezeigt wird, wenn alle Bedingungen erfüllt sind und der Drucker anspringt?
Ich bin kein Studierter, sondern nur ein Hobby Programmier - seht ihr warscheinlich auch am Code, aber vielleicht kann mir jemand helfen, ich wäre sehr dankbar.