bertlmusch: Labelname für Radiobutton ermitteln

Beitrag lesen

Hallo *,
versuche mein erstes HTA-Script mit VBS-Code zu schreiben. Das Script sieht vor, das mit mehreren Radiobutton wiederum dynamisch neue Radiobuttons erzeugt werden. Wie ich in Folge den angeklickten Button ermitteln kann, habe ich schon "checked". Möchte aber den Labelnamen ermitteln und weiß nicht wie. Habe schon einiges ausprobiert, komme aber nicht weiter. Zudem würde ich in dieser Subroutine auch gleich die Schriftgröße des Labels ändern, da hier spanische Sonderzeichen mit unterschiedlichen Akzenten angezeigt werden sollen, die bei normaler Schriftgröße nur schwer zu unterscheiden sind.
Hier meine Sub-Routine, die die dyn. Radiobuttons erzeugt.

SetRadioButton "CharChoice", Chr(191), 1

' Info: RightField=fieldsetname, Character=Labelname, Counter=Durchlaufanzahl

Sub SetRadioButton(RightField, Character, Counter)
 Dim SetRadio, SetLabel
 Set SetRadio = document.createElement("<input type='radio' name='OptionSelect' onClick='CharInput'>")
 SetRadio.id = "OptionSelect"
 SetRadio.value = Counter
 document.getElementById(RightField).appendChild(SetRadio)
 Set SetLabel = document.createElement("label")
 SetLabel.htmlFor = "OptionSelect"
 SetLabel.id = Character
 SetLabel.appendChild(document.getElementById(RightField).appendChild(document.createTextNode(Character)))
 document.getElementById(RightField).appendChild(SetLabel)
 document.getElementById(RightField).appendChild(document.createElement("br"))
End Sub

Bin für jeden Tipp dankbar.

Bertlmusch