グローバル変数を使用してマクロを分かりやすくする LibreOffice Calc Basic

グローバル変数を使用してマクロを分かりやすくする　LibreOffice Calc Basic

• 変数のスコープ範囲
• ttp://calibreblo.blogspot.jp/2011/06/blog-post_29.html 

Global  sURL() as string
'----- Main
Sub main_sURL
    getURL
    sURL_View
End Sub
'-----
Sub getURL()
'ファイル選択ダイアログを開いて、画像フォーマットファイルを複数選択
'
    dim oDoc as Object
    dim dispather as Object
    dim filePickerDlg as Object
   ' 設定
        oDoc = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    ' ファイル選択ダイアログ 初期化
        filePickerDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
    '複数選択モードTrue
        filePickerDlg.setMultiSelectionMode(True)
    'フィルター　画像ファイル
        filePickerDlg.appendFilter("画像ファイル","*jpg;*.jpeg;*.png;*.gif;*.bmp")
    '画像選択ダイアログ表示   
        fpd=filePickerDlg.execute
    'ファイルが選択されたか？　fpd=1 選択された、fpd<>1キャンセルされた
        if fpd <> 1 then
            Exit Sub
        end if
    'ReDim sURLのデーターの個数設定
        redim sURL(Ubound(filePickerDlg.selectedFiles()))
    'ファイルURL取得
        for i=0 to Ubound(filePickerDlg.selectedFiles())
            'sURLに代入（グローバル変数）
                sURL(i)=filePickerDlg.selectedFiles(i)
        next i
   
End Sub
'------
Sub sURL_View
    'グローバル変数sURLを取得
        for i=0 to Ubound(sURL)
            strURL=strURL & sURL(i) & chr(10)
        next i
    '表示
        msgbox strURL
End Sub

 

タグ：グローバル変数

コメント 2

Cialis Generico Da 5 Mg <a href=https://buycialisuss.com/#>Cialis</a> Buy Citalopram 40 Mg <a href=https://buycialisuss.com/#>Cialis</a> What Is Cephalexin Used To Treat
by Janinsessy (2020-04-24 14:27) 

Sporanox rireaple https://ascialis.com/# - buy cialis generic LookTromma Viagra Generique Achat En Ligne sultublildes <a href=https://ascialis.com/#>tadalafil generic vs cialis</a> speephesorne Amoxicillin Long Term Effects
by SWADWAY (2020-07-19 13:09)