[gelöst] Abfrage von OptionsButton wie?

[wega]

Hallo zusammen,

mit folgender Sequenz

Code: Alles auswählen

'Dialogaufruf
	Dlg = CreateUnoDialog(DialogLibraries.Standard.Dlg_Biegeschwing)
	Dlg.Execute()	
	
	if OptionsButton1.state then
		fall = 1
	endif
	if OptionsButton2.state then
		fall = 2
	endif
	if OptionsButton3.state then
		fall = 3
	endif
	if OptionsButton4.state then
		fall = 4
	endif
	
	msgbox fall

möchte ich die Variable "fall" setzen.
Das will mir aber nicht gelingen.

Wie muß ich dann aber die Abfrage der OptionsButton gestalten?

Mit Gruß
Werner

[karolus]

offenbar existiert ja dieser Dialog "……BiegeSchwing" bereits!

Möchtest du uns entweder ein Dokument mit enthaltenen fertigen Dialog anfügen, oder den Code zum erstellen des Dialogs mitteilen? Das wäre nett!

[wega]

Hallo karolus,

vielen Dank für Deine Antwort.

Ich habe aber gerade die Lösung zu meinem Problem gefunden.

Hier meine Lösungssequenz:

Code: Alles auswählen

'Dialogaufruf
	Dlg = CreateUnoDialog(DialogLibraries.Standard.Dlg_Biegeschwing)
	Dlg.Execute()	
	
	if Dlg.getControl("OptionButton1").state <> 0 then
		fall = 1
	endif
	if Dlg.getControl("OptionButton2").state <> 0 then
		fall = 2
	endif
	if Dlg.getControl("OptionButton3").state <> 0 then
		fall = 3
	endif
	if Dlg.getControl("OptionButton4").state <> 0 then
		fall = 4
	endif
	
	msgbox fall

Jetzt wird mir in der msgbox auch die richtige Fallnummer angezeigt.

Mit freundlichem Gruß
Werner