Tutorials Infos - Anleitungen - Hilfe - Dreamcodes
 

Zufalls Text

Dim x As Integer
x = Int(Int(Rnd() * 2))
Select Case x
Case 0
TextBox1.Text = "Test."
Case 1
TextBox1.Text = "Test²"
Case 2
TextBox1.Text = "Test³"
End Select

 
ID: 1945
eingestellt am: 26.01.2010
Autor: Keine Angabe
Status zum lesen: Gast
gelesen: 5776
Webseite: www.dreamcodes.com
[Drucken]