Variablen und Vergleichsoperatoren - das sind zwei der wichtigsten Bestandteile eines Programms. Nehmen wir an, Sie müssen prüfen, ob der Inhalt einer Variablen dem Wert A, B oder C entspricht. Wie würden Sie hier vorgehen? Wahrscheinlich so: If Variable = A Or Variable = B Or Variable = C Then Oder, man verwendet eine Select...Case-Anweisung: Select Case Variable Case A, B, C ... End Select Egel ob Sie das bisher über eine If...Or Abfrage oder einer Select...Case Anweisung erledigt haben: es geht auch einfacher Wie wäre es hiermit? If vInArgList(Variable, A, B, C) Then Und natürlich auch so: If vInArgList(Variable, A, C, D, F, H, W) Then Egal wieviele Oder-Vergleiche benötigt werden - Sie brauchen für die Abfrage zukünftig immer nur noch eine Codezeile! Fügen Sie hierzu nachfolgende Funktion in ein Modul: ' Wert in Argumentenliste vorhanden? Public Function vInArgList(ByVal vValue As Variant, _ ParamArray vArg() As Variant) As Boolean Dim I As Integer Dim bFound As Boolean bFound = False For I = 0 To UBound(vArg) If vValue = vArg(I) Then bFound = True: Exit For End If Next I vInArgList = bFound End Function Die Funktionsparameter sind vom Datentyp Variant, so daß Sie die Funktion auf alle Datentypen (Integer, Long, String, usw.) anwenden können. Kleines Anwendungsbeispiel: Private Enum AuftragForm Rechnung = 0 Angebot = 1 Auftragsbestaetigung = 2 Lieferschein = 3 Gutschrift = 4 Teilrechnung = 5 Kostenvoranschlag = 6 End Enum Private iAuftrag As Auftragform Anstelle von: If iAuftrag = Rechnung Or _ iAuftrag = Lieferschein Or _ iAuftrag = Teilrechnung Then lautet die Abfrage nun: If vInArgList(iAuftrag, Rechnung, Lieferschein, Teilrechnung) Then Eine Codier-Erleichterung, die Sie schon bald sehr zu schätzen wissen Dieser Tipp wurde bereits 13.639 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |