von turtle47 » Mo, 21.07.2008 14:47
Hallo Marcel,
hier mal ein kleines Beispiel wie man Formularfelder ansprechen kann:
Code: Alles auswählen
Sub Formularfelder_ansprechen
oDoc = thisComponent
oController = oDoc.getCurrentController()
oform = odoc.drawpage.forms.getbyindex(0)
CtrlTextBox = oForm.getByName("TextBox") 'Achtung: Namen anpassen
oKView = oController.getControl(CtrlTextBox)
MyText = oKView.Model.Text 'TextBox auslesen
msgbox mytext
CtrlCheckBox = oForm.getByName("CheckBox")'Achtung: Namen anpassen
oKView = oController.getControl(CtrlCheckBox)
CtrlCheckBox.State= 1 'State 0 = abwählen
Myctrl= oKView.model.State 'Status auslesen
msgbox Myctrl
End Sub
Hilft das weiter?
Jürgen
Hallo Marcel,
hier mal ein kleines Beispiel wie man Formularfelder ansprechen kann:
[code]Sub Formularfelder_ansprechen
oDoc = thisComponent
oController = oDoc.getCurrentController()
oform = odoc.drawpage.forms.getbyindex(0)
CtrlTextBox = oForm.getByName("TextBox") 'Achtung: Namen anpassen
oKView = oController.getControl(CtrlTextBox)
MyText = oKView.Model.Text 'TextBox auslesen
msgbox mytext
CtrlCheckBox = oForm.getByName("CheckBox")'Achtung: Namen anpassen
oKView = oController.getControl(CtrlCheckBox)
CtrlCheckBox.State= 1 'State 0 = abwählen
Myctrl= oKView.model.State 'Status auslesen
msgbox Myctrl
End Sub
[/code]
Hilft das weiter?
Jürgen