-
[vb.net] einfache frage!
Hallo ich bin totaler vb.net anfänger naja jezz zu meiner frage:
Also ich habe einen Button und eine Textbox
jetzt will ich das wen ich auf "Button" klicke entweder "1123" oder "1241" oder..
steht ich habe es mal so versucht
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "123456" Or "12314" ...
hat aber nicht geklapt hat einer eine lösung?
-
Versuchs mal mit
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim random As Short
Randomize()
random = Rand(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub
-
hmm ich habe jetzt
Code:
Dim random As Short
Randomize()
random = random(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
ausprobirt aber dan kam beim debuggen immer folgende fehlermeldungen
Code:
Fehler 1 Der Ausdruck ist kein Array oder keine Methode, und kann keine Argumentliste haben. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 9 18 WindowsApplication1
und
Code:
Fehler 2 "Select Case" muss mit einer entsprechenden "End Select"-Anweisung enden. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 15 13 WindowsApplication1
pls help!
-
Zitat:
hmm ich habe jetzt
Code:
Code:
Dim random As Short
Randomize()
random = random(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
Shreib mal
dahinter,dann sollter Fehler 2 schonmal weg sein.
Zu Fehler 1:
Poste mal deinen GANZEN Source Code
-
thx fehler 2 ist weg
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim random As Short
Randomize()
random = random(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub
End Class
-
wegen dem ersten Fehler
dem wert random ist noch keine Funktion zugewiesen , kann von daher also gar nicht funktionieren
Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
Rand = Int((High - Low + 1) * Rnd()) + Low
End Function
und hier müsste es heißen
random = Rand(1, 2)
MfG
-
sry the papst deine erklärung verstehe ich nicht aber trozdem thx
ich bin jetzt immernoch an dem problem
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim random As Short
random = Rand(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
End Select
End Sub
End Class
Code:
Fehler 1 Der Name "Rand" wurde nicht deklariert. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 6 18 WindowsApplication1
wie soll ich jetzt den befehl Rand deklairen oder ist der befehl überhaupt richtig?
-
Code:
Public Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
Rand = Int((High - Low + 1) * Rnd()) + Low
End Function
mach das mal i Source nach gaaaaaanz oben oder unten , damit es deinen source nich durcheinander bringt ;)
-
danke Gumbal jetzt geht es hat mich echt weiter gebracht!
-
Und wenn du mehrere Cases hast:
Beispiel
10 Cases
Dann musse bei Rand in den Klammern schreiben (1, 10) , you know ? ;)