vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 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

Suche Visual-Basic Code
Re: mal nen paar dumme fragen: 
Autor: Himba
Datum: 17.03.02 03:35

Wozu der Timer?
Beim Wählen eines Eintrags aus der Liste wird das Ereignis Click ausgelöst.
Über die Eigenschaft ListIndex kannst Du den gewählten Eintrag feststellen.
Gibt jedoch der Anwender direkt einen wert in die ComboBox ein, so wird das Ereignis Change ausgelöst. Der Eingegebene wert kann dann aus der Eigenschaft Text ausgelesen werden (dies wäre natürlich auch beim Klick Ereignis möglich).
Um den Timer zu starten musst Du das Interval in Milisekunden eingeben und die Eigenschaft Enabled auf True setzen.
Hier ein Beispiel:

Erstelle ein neues Projekt und benenne das erste Formular in frmStart.
Platziere je eine ComboBox und ein Timer-Steuerelement auf dem Form.
Nun erstellst Du fünf weitere Forms, deren Namen Du nicht veränderst (Form1 bis Form5).

Füge nun folgenden Code in das Form frmStart ein:

Option Explicit

Private Sub Form_Load()
Dim i As Integer
' Dropdown-Liste einstellen so dass nur ein bereits in der
' Dropdown-Liste vorhandener Eintrag ausgewählt werden kann.
Combo1.Style vbComboDropdownList
Combo1.Text = ""
' Liste mit Werten füllen
For i = 1 To 5
Combo1.AddItem "Form" & i
Next i
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Form1": Form1.Show vbModal
Case "Form2": Form1.Show vbModal
Case "Form3": Form1.Show vbModal
Case "Form4": Form1.Show vbModal
Case "Form5": Form1.Show vbModal
End Select
' Timerinterval auf eine 10 Sekunden setzen
Timer1.Interval = 10000
' Timer starten
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
MsgBox "Und wieder sind 10 Sekunden vergangen!"
End Sub

Nun starte das Programm und wähle einen Eintrag aus der Liste der ComboBox.


Gruss Himba
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
mal nen paar dumme fragen:81warlord16.03.02 10:38
Re: mal nen paar dumme fragen:268ModeratorDieter16.03.02 12:14
Re: mal nen paar dumme fragen:39warlord16.03.02 16:41
Re: mal nen paar dumme fragen:43Himba17.03.02 03:35

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