タイトル

2.10.1 Unix 類似システムでのインストール後の手順
https://dev.mysql.com/doc/refman/5.6/ja/unix-postinstallation.html

この通りにしても動きません。

» 続きを読む

Windows10アップグレード遅い　激おそ

i-core7デスクトップ
Windows7 → Windows10アップグレード
Windows10 電源 → ユーザー選択画面 40-50秒
→ デスクトップ表示まで 1分20-30秒

icore3-Windows8.1ノートPC起動速度圧勝！！

» 続きを読む

犬にはチョコより危険なキシリトール


Google検索：犬 猫 危険な食べ物

へーーーー！！！

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