Attachment 150569 Details for Bug 124579 – macro for testing picker software

macro for testing picker software

TestPickerSW.txt (text/plain), 1.78 KB, created by Hans-Werner on 2019-04-06 15:23:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Hans-Werner

Created: 2019-04-06 15:23:28 UTC

Size: 1.78 KB

patch

obsolete

>  Sub TestPickerSW
>  
>     Dim oP   as Object ' object Picker
>     Dim aP() as String ' array Pickers
>     Dim aF() as String ' array Files
>     Dim D    as String ' Digit     
>     Dim F    as String ' Folder
>     Dim US   as String ' Uno Service
>
>     aP = Array("com.sun.star.ui.dialogs.OfficeFilePicker"  , _
>                "com.sun.star.ui.dialogs.OfficeFolderPicker", _
>                "com.sun.star.ui.dialogs.FilePicker"        , _
>                "com.sun.star.ui.dialogs.FolderPicker")
>     
>     D = InputBox("1 = Test:   " & aP(0) & Chr(10) &_
>                  "2 = Test:   " & aP(1) & Chr(10) &_
>                  "3 = Test:   " & aP(2) & Chr(10) &_               
>                  "4 = Test:   " & aP(3) & Chr(10), _
>                  "Please enter digit:")
>
>     Select Case D
>        Case "1","3"
>           US = IIf(D="1",aP(0),aP(2))
>           oP = createUnoService(US)
>           oP.setTitle("Please select a FILE ...")
>           If (oP.execute() = 1) Then
>              aF = oP.getFiles()
>              MsgBox("File selected:   " & aF(0))
>           Else
>              MsgBox("No file selected." & Chr(10) & "Exit Macro ...")
>           End If
>        Case "2","4"
>           US = IIf(D="2",aP(1),aP(3))
>           oP = createUnoService(US)
>           oP.setTitle("Please select a FOLDER ...") 
>           If (oP.execute() = 1) Then
>              F = oP.getDirectory()
>              MsgBox("Folder selected:   " & F)
>           Else
>              MsgBox("No folder selected." & Chr(10) & "Exit Macro ...")
>           End If        
>        Case ""
>           End
>        Case Else
>           MsgBox("Wrong input:   " & D & Chr(10) & "Exit macro ...")
>           End
>     End Select
>     
>     MsgBox ("Last code line of macro ...")
>  
>  End Sub

Actions: View

Attachments on bug 124579: 150569 | 150571