Error Nachricht wenn man nichts in Textbox eingibt

Rocky · 19. Februar 2016, 15:10

Guten Tag,

Wie kann ich eine Error Nachricht erscheinen lassen wenn in Textbox1, Textbox2 oder Textbox3 nichts eingegeben hat und den Button1 drückt?

Ich bedanke mich im voraus.

mox · 19. Februar 2016, 15:15

wenn "textbox1.text = nichts" ist in den button event.

das hättest du auch googlen können aber na denn :>

VB1963 · 19. Februar 2016, 15:22

@Rocky
Weist du, wie man ein Button-Click-Event mit dem Designer generiert?

Cheffboss · 19. Februar 2016, 15:41

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" And Me.TextBox2.Text = "" And Me.TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
End If
End Sub

So, würde ich das lösen!

Rocky · 19. Februar 2016, 15:49

@Cheffboss
Es muss nichts bestimmtes in den Textboxes stehen.Es muss nur die Errornachricht falls nichts in einer der 3 Textboxes steht.

@VB1963
Nein

Zitate entfernt. ~Thunderbolt

RodFromGermany · 19. Februar 2016, 15:56

Rocky schrieb:

Nein

Doppelklick im Designer auf den Button.

Rocky schrieb:

in einer der 3 Textboxes

Genügt es, wenn nur eine leer ist oder
müssen alle 3 leer sein?

Rocky · 19. Februar 2016, 16:01

Es genügt, wenn nur einer leer ist.

Zitat entfernt. ~Thunderbolt

RodFromGermany · 19. Februar 2016, 16:07

Dann so:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" OrElse Me.TextBox2.Text = "" OrElse Me.TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
End If
End Sub

Zitat entfernt. ~Thunderbolt

Rocky · 19. Februar 2016, 16:20

Danke funktioniert. Aber zeigt Warning da ich schon Button1_Click benutze:

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)
End Sub

Zitat entfernt. ~Thunderbolt

mox · 19. Februar 2016, 16:23

ja dann pack das " My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background) " doch ins selbe event und nciht in ein neues. einfach unter messagebox.show in eine neue zeile.

Cheffboss · 19. Februar 2016, 16:24

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "" OrElse Me.TextBox2.Text = "" OrElse Me.TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
End If
PlaySound()
End Sub
Private Sub PlaySound() ' neue Sub
My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)
End Sub

Rocky · 19. Februar 2016, 19:09

Cheffboss schrieb:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

If Me.TextBox1.Text = "" OrElse Me.TextBox2.Text = "" OrElse Me.TextBox3.Text = "" Then

MessageBox.Show("Error Nachricht!")

End If

PlaySound()

End Sub

Private Sub PlaySound() ' neue Sub

My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)

End Sub

Danke aber wie kann ich dann nach der Error Nachricht abhalten die anderen Befehle auszuführen?

Cheffboss · 19. Februar 2016, 19:16

@Rocky
(Danke aber wie kann ich dann nach der Error Nachricht abhalten die anderen Befehle auszuführen?)
Verstehe ich nicht ganz, aber ich glaube du meinst das man bei MessageBox.Show bei einer Error Nachricht, die PlaySound Sub nicht ausführt.

VB.NET-Quellcode

Exit Sub

mox · 19. Februar 2016, 19:17

Du musst unbedingt mal Grundwissen in Visual Basic erlernen. Was du brauchst ist ein IF else statement.

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
else
My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)
End If
End Sub

Cheffboss · 19. Februar 2016, 19:18

@mox
stimmt, das wäre auch eine gute Lösung!

Rocky · 19. Februar 2016, 19:28

mox schrieb:

VB.NET-Quellcode
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
else
My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)
End If
End Sub

//hat sich geklärt

Will das nach der Error Nachricht nichts mehr passiert, also auch kein Sound abgespielt wird

Rocky · 19. Februar 2016, 20:09

Bräuchte nochmal kurz Hilfe:

Wie kann ich das hier:

VB.NET-Quellcode

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
ProgressBar1.Value = 0
My.Computer.Audio.Play(My.Resources.buttonsound, AudioPlayMode.Background)
End Sub

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MessageBox.Show("Error Nachricht!")
else
'hierher einbauen?
End If
End Sub

Danke im voraus

mox · 19. Februar 2016, 20:25

einfach den timer1 an der gewünschten stelle starten.

Und lies dir dieses ebook durch.
openbook.rheinwerk-verlag.de/einstieg_vb_2010/

Vainamo V · 19. Februar 2016, 20:36

Hejsan @Rocky!
Wenn du jetzt noch statt Or OrElse verwendest, sieht das doch schon gut aus. Und wie @mox gesagt hat, einfach im Else-Teil den Timer mit Timer1.Start() starten.

Edit: Das hier:

VB.NET-Quellcode

If ProgressBar1.Value = 100 Then
Timer1.Stop()

Musst du glaube ich in

VB.NET-Quellcode

If ProgressBar1.Value = 100 Then Timer1.Stop()

ändern.

Grüße
Väinämö

VB1963 · 19. Februar 2016, 20:39

@Rocky
Lies dir einmal folgende Buchempfehlung von @ErfinderDesRades durch:
Allgemeines zur objektorientierten Programmierung

Error Nachricht wenn man nichts in Textbox eingibt

Error Nachricht wenn man nichts in Textbox eingibt

VB.NET-Quellcode

Rocky schrieb:

Rocky schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Cheffboss schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

mox schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

8 Benutzer haben hier geschrieben