vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 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

Fortgeschrittene Programmierung
Problem erledigt 
Autor: ichmensch
Datum: 21.04.06 21:39
Danke für eure Mithilfe ich habe eine Lösung gefunden

Hier die Lösung von HMS (ich weiss nicht ob ich ihn namentlich nennen darf deswegen nur das kürzel!)

Enum Automarken
VW = 0
BMW = 1
MercedesBenz = 2
Porsche = 3
End Enum

Function MaxGeschw(Fahrzeug As Automarken) As Long
MaxGeschw = 75 + 30 * Fahrzeug
End Function

Sub Command1_Click()
MsgBox("Jong, so schnell fährt die Karre:" & vbCrLf & _
"VW: " & MaxGeschw(VW) & vbCrLf & _
"BMW: " & MaxGeschw(BMW) & vbCrLf & _
"...", vbInformation, "Beispiel zu Enums")
End Sub

by ichmensch
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
>MsgBox Button Auswahl< mit eigenen Einträgen programm...597ichmensch21.04.06 18:05
Re: >MsgBox Button Auswahl< mit eigenen Einträgen prog...397vbtricks21.04.06 19:42
Re: >MsgBox Button Auswahl< mit eigenen Einträgen prog...414OldMan21.04.06 19:58
Problem erledigt357ichmensch21.04.06 21:39

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