Sidebar |
base URLを開くには
LibreOfficeの「エディットボックスのURL」を「ボタン」で開く方法 固定URLを開く場合 属性 プッシュボタン アクション「ドキュメントまたはHTMLを開く」 URL 「開きたいURLを入力します」を指定 他のコントロールから値を取得して開きたい場合 属性 プッシュボタン アクション「ドキュメントまたはHTMLを開く」 イベント 「実行前」にマクロ割り当て[ OpenUrl1 ] マクロ Sub OpenUrl1(oEv as object) dim oForm, oTextBox dim oSender , targetName oSender = oEv.source.model if (oSender.name = "BtnOpenURL2") then targetName = "txtURL2" else targetName = "txtURL1" end if oForm=oEv.source.model.parent oTextBox=oForm.getbyname(targetName) if ( TRIM(oTextBox.text) <> "") then oEv.source.model.targeturl = TRIM(oTextBox.Text) openurl = true else openurl = false end if End Sub Sub OpenUrlDirect(sURL as string) dim paramText paramText = "url.dll,FileProtocolHandler " & "'" & sURL & "'" Shell("rundll32.exe" , 1, paramText) ' https://help.libreoffice.org/Basic/Shell_Function_Runtime/ja End Sub |
Sidebar |