Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zufallsfragen
Autor: Master
Datum: 23.11.02 14:19
Nehmen wir mal an, du hast ein Label (lbl) und einen Array mit den verschiedenen texten Über einen CommandButton (cmd) wird ein anderer text angezeigt Dim txt(1 To 5) As String Dim txt_number As Integer   Private Sub cmd_Click() Randomize Timer txt_number = Int(Rnd * 5) + 1 lbl.Caption = txt(txt_number) End Sub Sollte funktionieren

Zufallsfragen	154	Darkness Kid	22.11.02 21:01
Re: Zufallsfragen	317	unbekannt	22.11.02 21:06
Re: Zufallsfragen	322	Master	23.11.02 14:19
Re: Zufallsfragen	68	Darkness Kid	23.11.02 22:41
Re: Zufallsfragen	71	Darkness Kid	23.11.02 22:48
Re: Zufallsfragen	353	Master	24.11.02 10:41
Re: Zufallsfragen	299	Master	24.11.02 18:48
Re: Zufallsfragen	59	Darkness Kid	26.11.02 15:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen