FAQ - Programmierung (StarBasic und Allgmeines)

Häufige Fragen kurz beantwortet

Moderator: Moderatoren

Forumsregeln
Hier bitte kurze Antworten auf häufige Fragen posten, dabei bitte möglichst auf Dateianhänge verzichten.
Bitte hier (möglichst) keine Diskussionen führen.
F3K Total
********
Beiträge: 2990
Registriert: Mo, 28.02.2011 17:49

FAQ - Programmierung (StarBasic und Allgmeines)

Beitragvon F3K Total » Mi, 15.08.2012 09:17

1. Fenster per Makro maximieren oder minimieren

Folgendes Makro z.B. an das Ereignis "Ansicht wurde erzeugt" des Dokumentes (Extras/Anpassen/Ereignisse) binden.
Bei Base-Formularen vorher in den Entwurfsmodus wechseln.

Code: Alles auswählen

sub S_MaximizeFrame
    oframe = Thiscomponent.currentcontroller.frame
    owindow = oframe.getContainerWindow()
       If Not IsNull(oWindow) Then
          oWindow.IsMaximized = True
          'oWindow.IsMinimized = True
       End If
end sub

Stephan
********
Beiträge: 9561
Registriert: Mi, 30.06.2004 18:36
Wohnort: nahe Berlin

Re: FAQ - Programmierung

Beitragvon Stephan » So, 02.09.2012 09:59

2. Übersicht der sog. 'dispatch-commands'

Eine Übersicht aller dispatch-Befehle findet ihr z.B. in folgendem PDF:
download/file.php?id=7826

(herunterladen mit Rechtsklick und 'Speichern unter')

Stephan
********
Beiträge: 9561
Registriert: Mi, 30.06.2004 18:36
Wohnort: nahe Berlin

Re: FAQ - Programmierung (StarBasic und Allgmeines)

Beitragvon Stephan » Di, 10.02.2015 11:10

3. [Calc] alle Zellen des aktiven Tabellenblattes markieren welche eine bedingte Formatierung enthalten

Code: Alles auswählen

Sub Main
   akt_blatt = ThisComponent.CurrentController.ActiveSheet
   
   cur = akt_blatt.CreateCursor
   cur.GotoEndOfUsedArea(True)
   letzte_Zeile = Cur.getRangeAddress.EndRow
   letzte_Spalte = Cur.getRangeAddress.EndColumn
   
   bereiche = ThisComponent.CreateInstance("com.sun.star.sheet.SheetCellRanges")
   For i = 0 To letzte_Zeile
      For j = 0 To letzte_Spalte
         If akt_blatt.getCellByPosition(j, i).ConditionalFormatLocal.Count <> 0 Then
            bereiche.addRangeAddress(akt_blatt.getCellByPosition(j, i).getRangeAddress(), False)
         End If
      Next j
   Next i
   
   ctr = ThisComponent.CurrentController
   ctr.Select(bereiche)
   
End Sub

Stephan
********
Beiträge: 9561
Registriert: Mi, 30.06.2004 18:36
Wohnort: nahe Berlin

Re: FAQ - Programmierung (StarBasic und Allgmeines)

Beitragvon Stephan » Sa, 30.04.2016 09:12

4. einen Basic-Dialog abhängig vom bestehenden Dialog positionieren

Beispieldatei:
dialog-test.odt
(12.52 KiB) 112-mal heruntergeladen


siehe auch:
viewtopic.php?f=18&p=263207#p263207

Stephan
********
Beiträge: 9561
Registriert: Mi, 30.06.2004 18:36
Wohnort: nahe Berlin

Re: FAQ - Programmierung (StarBasic und Allgmeines)

Beitragvon Stephan » Mi, 01.06.2016 09:40

5. Zwischen OpenOffice und LibreOffice per Makro unterscheiden

Beispieldatei:
OpenOffice-LibreOffice-unterscheiden.ods
(9.8 KiB) 102-mal heruntergeladen


siehe auch:
viewtopic.php?f=18&t=67144&p=263618#p263618
viewtopic.php?t=62130


Zurück zu „FAQs“

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste