Rubrik: Controls · Sonstiges | VB-Versionen: VB5, VB6 | 19.03.01 |
OptionButtons optimiert auswerten Hier wird gezeigt, wie man einer Variable anhand einer OptionButton-Auswahl einen bestimmten Wert zuweist. | ||
Autor: Marcus Woida | Bewertung: | Views: 16.508 |
www.mawosoft.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Dieser Tipp zeigt, wie man z.B. einer Variable einen Wert in Abhängigkeit von der Auswahl eines bestimmten Option-Buttons zuweist. Als Beispiel möchten wir hier einen Währungsrechner nennen. Der umzurechnende Wert wird in einer Textbox eingegeben, die Auswahl der Währung erfolgt über mehrere Option-Buttons. Die "normal" Vorgehensweise wäre folgende:
Dim Fremd As Currency Dim Betrag As Currency Dim uFaktor As Double Betrag = Val(Text1.Text) If Option1(0).Value = True Then uFaktor = 1.95583 ElseIf Option1(1).Value = True Then uFaktor = ... ElseIf Option1(2).Value = True Then uFaktor = ... ElseIf Option1(3).Value = True Then uFaktor = ... ElseIf ... ... End If Fremd = Betrag / uFaktor
Je nachdem, wie viele Auswahlmöglichkeiten bestehen, müssen auch entsprechend viele If-Abfragen erfolgen.
Einfacher geht es folgendermaßen:
Erfolgt ein Klick auf ein Option-Button, wird der Index in der Tag-Eigenschaft zwischengespeichert (0-n). Die Umrechnung erfolgt dann in nur zwei Codezeile (anstelle vieler einzelner If-Anweisungen).
Private Sub Option1_Click(Index As Integer) Option1(0).Tag = Index End Sub ' Umrechnung Dim Betrag As Currency Dim uFaktor As Double uFaktor = Choose(Option1(0).Tag + 1, 1.95583, ... , ...) Fremd = Betrag / uFaktor