von retuwe61 » Do, 29.12.2016 11:33
Hallo stephan.
Dieser Code funktioniert. Ich wollte ihn jetzt nur mit einer Schleife ausstatten, da noch weitere Textfelder existieren, die ich ausblenden möchte. Daran scheitere ich.
Gruß
Uwe
Code: Alles auswählen
sub Felder_aus
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName ("AssEingabe")
oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Formular" )
oFeld1 = oForm.getByName("Textfeld 3")
oFeld2 = oForm.getByName("Listenfeld 2")
oFeld3 = oForm.getByName("Textfeld 4")
oFeld4 = oForm.getByName("Textfeld 6")
oFeld5 = oForm.getByName("Textfeld 7")
oFeld6 = oForm.getByName("Listenfeld 3")
oFeld7 = oForm.getByName("Textfeld 8")
oFeld8 = oForm.getByName("Listenfeld 10")
oFeld9 = oForm.getByName("Formatiertes Feld 1")
if oSheet.getCellbyPosition(1,5).String = "j" then
'For i = 1 to 9
oControl = oDoc.getCurrentController()
'oFeld = ("oFeld" & i)
oFeldaus = oControl.getcontrol (oFeld1)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld2)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld3)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld4)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld5)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld6)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld7)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld8)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld9)
oFeldaus.Visible = FALSE
'next
end if
end sub
Hallo stephan.
Dieser Code funktioniert. Ich wollte ihn jetzt nur mit einer Schleife ausstatten, da noch weitere Textfelder existieren, die ich ausblenden möchte. Daran scheitere ich.
Gruß
Uwe
[code]sub Felder_aus
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName ("AssEingabe")
oForm = ThisComponent.DrawPages.getByIndex(1).getForms().getByName( "Formular" )
oFeld1 = oForm.getByName("Textfeld 3")
oFeld2 = oForm.getByName("Listenfeld 2")
oFeld3 = oForm.getByName("Textfeld 4")
oFeld4 = oForm.getByName("Textfeld 6")
oFeld5 = oForm.getByName("Textfeld 7")
oFeld6 = oForm.getByName("Listenfeld 3")
oFeld7 = oForm.getByName("Textfeld 8")
oFeld8 = oForm.getByName("Listenfeld 10")
oFeld9 = oForm.getByName("Formatiertes Feld 1")
if oSheet.getCellbyPosition(1,5).String = "j" then
'For i = 1 to 9
oControl = oDoc.getCurrentController()
'oFeld = ("oFeld" & i)
oFeldaus = oControl.getcontrol (oFeld1)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld2)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld3)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld4)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld5)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld6)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld7)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld8)
oFeldaus.Visible = FALSE
oFeldaus = oControl.getcontrol (oFeld9)
oFeldaus.Visible = FALSE
'next
end if
end sub[/code]