Ich wollte mit einem Timer (oder auch mehreren) eine blinkenden Kreis realisieren! (Kreis soll von Grün auf Rot und immer so weiter hin und her schalten)
Aber ich bekomme es irgendwie nicht hin und auch bei der Suche „Blinklicht mit VB“ mit Google war nicht besonders ergibig!
ich habe mal ein einfaches Beispiel gebaut, bei dem die Form im Sekundentakt rot, gelb und blau wird. Verstehst Du den Code, wenn nein, was ist unklar?
Gruß Rainer
Option Explicit
Private Sub Form\_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1\_Timer()
Static n As Integer
n = n + 1
If n \> 2 Then n = 0
Select Case n
Case 0
Me.BackColor = vbRed
Case 1
Me.BackColor = vbYellow
Case 2
Me.BackColor = vbGreen
End Select
End Sub
Angenommen du hast eine Form die z.B. „Form2“ heißt.
Der normale Aufruf wäre dann Form2.show.
Was setzt du für die ??? ein damit Form2 angezeigt wird?
Private Sub Form_Load()
Dim strName
strName = „Form2“
???
Unload Form1
End Sub
Ich weiß seit gestern wie das geht und dabei stand daß das viele Vbaler das nicht wissen,jetzt wollte ich halt mal wissen ob du oder Alex da fitter seid *smile*
Angenommen du hast eine Form die z.B. „Form2“ heißt.
Naja normal sollte man Formen schon einen anstaendigen Namen geben
Der normale Aufruf wäre dann Form2.show.
Jein. Je nachdem ob sie modal oder nicht modal aufgerufen werden soll
Was setzt du für die ??? ein damit Form2 angezeigt wird?
Private Sub Form_Load()
Dim strName
strName = „Form2“
???
Unload Form1
End Sub
Ok, ich probiere mich mal. Aber mit nen 1 Zeiler bekomme ich das net. Ich brauche dazu schon zwei :s
Private Sub Form\_Load
Dim strName as string
Dim oForm as Form
strName="Form2"
set oForm = vb.forms.add(strname) ' 1 Zeile
oform.show '2 Zeile
End sub
Ist ungetestet sollte aber klappen.
Welche Variante hast du denn?
Ich weiß seit gestern wie das geht und dabei stand daß das
viele Vbaler das nicht wissen,jetzt wollte ich halt mal wissen
ob du oder Alex da fitter seid *smile*
Naja scheinbar ein wenig schon, denn so kompliziert ist das net
Könnte(st)(n) Sie/du diese Programmzeile genauer erklären?
Hi Bernd,
ich hab das jetzt nur überflogen.
Hinter vbred und vbgreen verbergen sich zahlenwerte.
Nehmen wir mal an vbred wäre 4711 und vbgreen 4811.
Und dieses Shape1 hat die Fillcolor 4711 oder 4811, ist egal.
Könnte(st)(n) Sie/du diese Programmzeile genauer erklären?
Danke im voraus!!!
Naja, die Erklärung hat Reinhard Dir ja schon gegeben.
Irgendwann war ich mal genervt davon die gleiche Funktionalität immer mit einer If-Then-Abfrage zu machen und dann bin ich auf die Idee mit dieser Berechnung gekommen. Ich bin ein Genie
(An dieser Stelle noch vielen Dank für die moralische Steicheleinheit)
