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