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
Hinweis
: Das lesen des Artikels Zufalls Text
- listings ID: 1945
auf Dreamcodes,
sowie Link Verweise auf Internetseiten
fremder Anbieter erfolgen auf eigene Gefahr. Dreamcodes
haftet nicht für Schäden, die aus der Verwendung des
Inhaltes der Artikel erfolgen könnten. Schadenersatzansprüche, aus welchem
Rechtsgrund auch immer, sind ausgeschlossen !
Live Statistik
Datum: 09.07.2025
Uhrzeit: 12:49 Uhr
Online: 412 User
User heute: 136418
User allgem.: 49662586
Home
Startseite
Tutorials
Die Möglichkeit diesen Artikel zu verlinken
: