Wie kann eine Checkbox in einer Routine auf das eigene Label zugreifen?

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Wie kann eine Checkbox in einer Routine auf das eigene Label zugreifen?

Beitrag von F3K Total »

Moin,
folgendes Makro an das Ereignis"Status geändert", blendet alle kommasepariert im Label der Checkbox befindlichen Zeilen auf Tabelle1 aus, Beispiel anbei.

Code: Alles auswählen

sub Hide_rows(Event)
    oSheet = ThisComponent.Sheets.getbyName("Tabelle1")
    bVisible = Event.Selected
    ochkbox = Event.source.Model
    sLabel = TRIM(ochkbox.Label)
    aLabel = split(sLabel,",")
    for i = 0 to uBound(aLabel)
       nRow = cInt(Trim(aLabel(i)))-1 'Trim um etwaige Leerzeichen zu entfernen, cInt um aus dem Text eine Zahl zu machen, -1 weil der Zeilenidex bei 0 beginnt
       oRow = oSheet.Rows(nRow)
       oRow.isVisible = bVisible
    next i
end sub


Gruß R
Dateianhänge
SHowHideRowsbyChkBoxLabel.ods
(11.46 KiB) 102-mal heruntergeladen