OpenOffice.info

Code: Alles auswählen

Sub Main(args)
    If args.Selected then
    	mond
    else
    	erde
    end if
End Sub

Sub mond
msgbox "hallo Mond"
End Sub

sub erde
msgbox "hallo Erde"
end sub

Code: Alles auswählen

Sub Main(args)
    msgbox "ich bin" & (IIf( args.Selected, "", " nicht")) & " selektiert"
End Sub

Code: Alles auswählen

sub statuscheck
odoc=thiscomponent
mycheck = oDoc.drawpage.forms.getByIndex(0).getByName("Markierfeld 1")
	if mycheck.state=1 then
		msgbox "checkbox is on"
	endif
	if mycheck.state=0 then
		msgbox "checkbox is off"
	endif
end sub