OpenOffice.info

Code: Alles auswählen

Sub Read_Settings
Opt_Btn = myDialog.getControl("auswahl")
Status = Opt_Btn.model.State
if Status = 0 then
msgbox "0"
else
msgbox "1"
end if
End Sub

Code: Alles auswählen

Sub Formular_Optionsfeld

oForm=ThisComponent.drawpage.forms.getByIndex(0)

sOptionName="hcl"                                           'so heißt das Element

for i =0 to oForm.count-1                                   'alle Elemente des Formulars durchlaufen
   oFeld=oForm.getByIndex(i)
   
   if oFeld.name=sOptionName then                           'bis der Name des Elementes mit sOptionName übereinstimmt
      
      if oFeld.state=1 then                                 'das merkierte Element hat State=1
         iWert=oFeld.RefValue                               'RefValue liefert den hinterlegten Referenzwert
         sLabel=oFeld.Label                                 'angezeigter Name der Option
      end if
      
   end if
next
REM **** und die weitere Verarbeitung
msgBox sLabel + ": "+iWert

end sub

Code: Alles auswählen

Sub Eintragen

	oDocument = ThisComponent
	oSheet = oDocument.Sheets.getByIndex(0)
	oCellCursor = oSheet.createCursor()
	
	'Gehe zur letzten benutzten Zeile
	oCellCursor.GotoEndOfUsedArea(True)
	
	'Index letzte Zeile auslesen
	End_Row = oCellCursor.getRangeAddress.EndRow
	
	'Schleife bis zur letzten benutzten Zeile +1
	for i = 2 to End_Row +1
	oRow_1 = oSheet.getCellByPosition(4,i).string
	oRow_2 = oSheet.getCellByPosition(10,i).string
		if oRow_1 = "" and oRow_2 = "" then

		'Zellinhalte in nächste freie Zeile kopieren
		Wert1 = oSheet.getCellByPosition(4,i)
		Wert1.FormulaLocal = "=jetzt()"

		Wert2 = oSheet.getCellByPosition(2,12).getValue()
		oSheet.getCellByPosition(5,i).setValue(Wert2)

		Wert3 = oSheet.getCellByPosition(2,13).getValue()
		oSheet.getCellByPosition(6,i).setValue(Wert3)

		Wert4 = oSheet.getCellByPosition(2,17).getValue()
		oSheet.getCellByPosition(7,i).setValue(Wert4)

		Wert5 = oSheet.getCellByPosition(2,18).getValue()
		oSheet.getCellByPosition(8,i).setValue(Wert5)

		Wert6 = oSheet.getCellByPosition(2,21).getValue()
		oSheet.getCellByPosition(9,i).setValue(Wert6)

		Wert7 = oSheet.getCellByPosition(2,25).getValue()
		oSheet.getCellByPosition(10,i).setValue(Wert7)

		Exit Sub
		End if
	Next i
End Sub

Code: Alles auswählen

Sub Abfrage

	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	mySheet = oDoc.Sheets().getByName("Tabelle1")
	oform = mySheet.drawpage.forms.getbyindex(0)
	State_oControl = oForm.getByName("hcl").state

	If State_oControl  = 1 Then
		oZelle=oDoc.Sheets(0).getCellByPosition(10,i)
		oZelle.CellBackColor = &H000000
	Else
		oZelle=oDoc.Sheets(0).getCellByPosition(9,i)
		oZelle.CellBackColor = &H000000
	End if  
End sub