Frage von thePROyt, 34

Random zeile aus text in vb coden?

Hey ich hätte eine frage wie kann man in visual basic folgendes coden das man eine raw paste bin nimmt und eine random zeile in einer Textbox ausgegeben wird sofern man auf einen button drückt/klickt? bitte um antwort

Antwort
von geri3d, 33

Hier mal ganz grob:

Public Class Form1

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

Dim rawText = "Hallo" & vbCrLf
rawText &= "ich" & vbCrLf
rawText &= "bin" & vbCrLf
rawText &= "der" & vbCrLf
rawText &= "Text" & vbCrLf

Dim arrayText As Array = rawText.Split(vbCrLf)
Dim random = Int(Rnd() * UBound(arrayText))

MsgBox(arrayText(random))

End Sub
End Class
Kommentar von thePROyt ,

danke 

Kommentar von thePROyt ,

Wie ghet es das das in einer textbox angezeigt wird?

Kommentar von geri3d ,

Ganz einfach eine Zuweisung an die Text-Eigenschaft von der Textbox. Diese kann man zB. so setzen:

Textbox1.Text = dieStringVariable

Kommentar von thePROyt ,

ich kappiers iwi nicht wo soll der commmand hin

?

Kommentar von geri3d ,

Möglicherweise sind Grafische Oberflächen und Textboxen noch etwas zu schwer für dich, versuch mal das Programm logisch durchzugehen, das was ich mit dieser MsgBox gemacht habe kannst du auch durch deine Zuweisung an die Textbox ersetzen.

Back to the roots.

Kommentar von thePROyt ,

ja bei mir stürtzt es dann ab bzw hängt sich auf 

Kommentar von thePROyt ,

würde das so gehen ?

Public Class Form1

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

Dim rawText = "Hallo" & vbCrLf
rawText &= "ich" & vbCrLf
rawText &= "bin" & vbCrLf
rawText &= "der" & vbCrLf
rawText &= "Text" & vbCrLf

Dim arrayText As Array = rawText.Split(vbCrLf)
Dim random = Int(Rnd() * UBound(arrayText))



Textbox1.Text = dieStringVariable

End Sub
End Clas
Kommentar von geri3d ,

statt dieStringVariable schreibst du einfach random ....

Kommentar von thePROyt ,

Thx

Kommentar von thePROyt ,

kappt nicht bei mir kommen nur zahlen

Kommentar von geri3d ,
arrayText(random)

Keine passende Antwort gefunden?

Fragen Sie die Community