OptionButtons optimiert auswerten Hier wird gezeigt, wie man einer Variable anhand einer OptionButton-Auswahl einen bestimmten Wert zuweist.
Autor:   Marcus Woida	Bewertung:     [ Jetzt bewerten ]	Views:  15.233
www.mawosoft.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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