vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: ListBox Zähler - Tip? 
Autor: VBStein
Datum: 14.09.08 13:10
Hai,

da das ja eine Ampelschaltung ist, brauchst Du gar keinen globalen Zähler, sondern nur die Funktion selbst: 

Sub bln_Status(Optional ByVal str_Status As Long)
  Static nPhase AS Long
 
  If str_Status < 0 then 
     nPhase = 1
  Else
     nPhase = nPhase + 1
  End If
  If Phase > 3 Then nPhase = 1
  Select Case nPhase
    Case 1
      Me.imgR.Visible = True
      Me.imgY.Visible = False
      Me.imgG.Visible = False
 
    Case 2
      Me.imgR.Visible = False
      Me.imgY.Visible = True
      Me.imgG.Visible = False
 
    Case 3
      Me.imgR.Visible = False
      Me.imgY.Visible = False
      Me.imgG.Visible = True
 
  End Select
End Sub
Ein bln_Status Aufruf setzt automatisch den Ampelzähler auch. Und so wird der Zähler initialisiert:

bln_Status -1

Beitrag wurde zuletzt am 14.09.08 um 13:12:45 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListBox Zähler - Tip?1.153woerny0114.09.08 09:41
Re: ListBox Zähler - Tip?719VBStein14.09.08 13:10

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel