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

Visual-Basic Einsteiger
Re: Hab es mit Case gelöst, nicht so schön, aber es funktioniert 
Autor: larsbehrmann
Datum: 20.09.03 01:05

Hier der Code:
Zur erklärung: rueckart ist die Ausrückreihenfolge der Fahrzeuge, y steht für "Menschanleben in Gefahr" der rest ist klar denke ich.

Select Case einsatzmeldung
    Case "BRANDMELDEANLAGE"
    bild_anzeigen = "c:\meldung\pics\b1.jpg"
    y = False
    rueckart = 1
    Case "FEUER KLEIN"
    bild_anzeigen = "c:\meldung\pics\b2.jpg"
    y = False
    rueckart = 4
    Case "FEUER MITTEL"
    bild_anzeigen = "c:\meldung\pics\b3.jpg"
    y = False
    rueckart = 4
    Case "FEUER MITTEL - Y"
    bild_anzeigen = "c:\meldung\pics\b4.jpg"
    y = True
    rueckart = 4
    Case "FEUER GROSS"
    bild_anzeigen = "c:\meldung\pics\b5.jpg"
    y = False
    rueckart = 2
    Case "FEUER GROSS - Y"
    bild_anzeigen = "c:\meldung\pics\b6.jpg"
    y = True
    rueckart = 2
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder auf Grund eines Wetes anzeigen458larsbehrmann18.09.03 18:50
Re: Bilder auf Grund eines Wetes anzeigen264GuidoE18.09.03 22:21
Re: Bilder auf Grund eines Wetes anzeigen258larsbehrmann18.09.03 23:09
Hab es mit Case gelöst, nicht so schön, aber es funktioniert240larsbehrmann19.09.03 01:18
Re: Hab es mit Case gelöst, nicht so schön, aber es funktion...255GuidoE20.09.03 00:22
Re: Hab es mit Case gelöst, nicht so schön, aber es funktion...269larsbehrmann20.09.03 01:05
Sieht doch gut aus233GuidoE20.09.03 01:28
Re: Sieht doch gut aus266larsbehrmann20.09.03 02:21
Re: Bilder auf Grund eines Wetes anzeigen264E720.09.03 19:55

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