Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tombola Programmieren
Autor: bluedead007
Datum: 20.09.08 09:38
Probier mal folgendes: Erste ein Command Button ( Command1 ) und mache alle Labels auf die visible=false stellen... dann füge diesen code ein: Private Sub Command1_Click() Dim xy Schleife: Randomize Timer xy = Int(Rnd * 90) if label1(xy).visible=true then goto Schleife label1(xy).visible=true End Sub ich habe den Code nur kurz getippt, nicht probiert, es müsste so funktionieren: er sucht eine Zufallszahl, anschließend überprüft er ob das angegebene Label schon angezeigt wird, wenn ja, dann sucht er weiter bis er ein label findet was noch nicht angezeigt wird, wenn er eins gefunden hat, wird das dan aktiviert. probiers mal aus... Beitrag wurde zuletzt am 20.09.08 um 09:39:19 editiert.

Tombola Programmieren	1.004	bigdaddy_ismail	20.09.08 01:05
Re: Tombola Programmieren	614	bluedead007	20.09.08 09:38
Re: Tombola Programmieren	619	VBStein	20.09.08 11:50
Re: Tombola Programmieren	615	bluedead007	20.09.08 13:15
Ups ... fast übersehen	580	VBStein	20.09.08 17:07
Re: Ups ... fast übersehen	597	Dirk	22.09.08 14:40
Re: Tombola Programmieren	692	Dirk	22.09.08 14:43
Re: Tombola Programmieren	666	bigdaddy_ismail	22.09.08 20:15

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