Forum społeczności użytkowników OpenOffice i LibreOffice

Kod: Zaznacz cały

REM  *****  BASIC  *****

'Funkcja globalna dotycząca ładowania okien dialogowych

Function LoadDialog(nazwa_biblioteki as String, nazwa_okna as String, Optional oLibContainer)
 Dim oLib as Object
 Dim oLibDialog as Object
 Dim oRuntimeDialog as Object
 
 If IsMissing(oLibContainer ) then
  oLibContainer = DialogLibraries
 End If

 oLibContainer.LoadLibrary(nazwa_biblioteki)
 oLib = oLibContainer.GetByName(nazwa_biblioteki)
 oLibDialog = oLib.GetByName(nazwa_okna)
 oRuntimeDialog = CreateUnoDialog(oLibDialog)

 LoadDialog() = oRuntimeDialog

End Function


'Wyświetlanie okna dialogowego

'globalna definicja zmiennych
Dim oDialog1 AS Object

Sub StartDialog1
 BasicLibraries.LoadLibrary("Tools")
 oDialog1 = LoadDialog("Standard", "Dialog1")
 oDialog1.Execute()                               'wyswietlenie okna
end sub


'Odczyt lub edycja właściwości formantów w programie BASIC

Sub Sample1

 BasicLibraries.LoadLibrary("Tools")
 oDialog1 = LoadDialog("Standard", "Dialog1")

 oDialog1Model = oDialog1.Model                         'pobranie modelu okna dialogowego

 oLabel1 = oDialog1.GetControl("Label1")                'wyświetlenie tekstu Label1
 MsgBox oLabel1.Text
 oLabel1.Text = "Nowe pliki"                            'ustawienie nowego tekstu dla formantu Label1
 MsgBox oLabel1.Text
 
end sub

Kod: Zaznacz cały

Sub Test()
    fname = "file:///"
    fname = OpenFileDialog(fname, "Otwórz plik")
    fname = SaveFileDialog(fname, "Zapisz plik")
End Sub

function OpenFileDialog(fname, title) as string
    sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE)
    oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
    With oFilePicker
        .Initialize ( sFilePickerArgs() )
        .setDisplayDirectory ( fname )
        .setControlProperty ("CancelButton", "Visible", true)
        .setControlProperty ("HelpButton", "Visible", false)
        .setTitle ( title )
    End With
    If oFilePicker.execute() Then
        sFiles = oFilePicker.getFiles()
        sFileURL = sFiles(0)
        fname = sFileURL
    Else
	fname = ""
    End If
    oFilePicker.Dispose()
    OpenFileDialog = fname
End function

function SaveFileDialog(fname$, title) as string
    sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE)
    oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
    With oFilePicker
        .Initialize ( sFilePickerArgs() )
        .setDisplayDirectory ( fname )
        .setControlProperty ("CancelButton", "Visible", true)
        .setControlProperty ("HelpButton", "Visible", false)
        .setTitle ( title )
    End With
    If oFilePicker.execute() Then
        sFiles = oFilePicker.getFiles()
        sFileURL = sFiles(0)
        fname = sFileURL
    Else
	fname = ""
    End If
    oFilePicker.Dispose()
    SaveFileDialog = fname
End function

Kod: Zaznacz cały

Sub pokaz_dialog

DialogLibraries.LoadLibrary( "Standard" )
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1) 'nazwa okna dialogowego- Dialog1
'oDLg.Title = "Tytuł dialogu"
oWpis = oDlg.Model.GetByName("Label1")
oWpis.Label= "Nowe pliki"
MsgBox oWpis.Label
oDlg.Execute()

End Sub