LibreBasicにいま持ってる知識で立ち向かってみる 法律勉強プログラムを作ってみるの巻 第１回

LibreBasicの起動の仕方

　第２回>

 

ダイアログをひとつ作ってみる

シート名をダイアログのListBoxに表示する

必要なもの：

・ある程度のプログラミング知識

 　　-プログラミングにおける　”逐次、選択、繰り返し”という単語の意味がわかる

 　　-オブジェクト指向言語に触れたことがある

 　　-VBAを触ったことがあれば、壁は低いはず

 ・LibreOfficeが起動できるPC環境

 ・自己責任を許容できる寛容な心

 ・プログラミングをしてみる時間と勇気

↑今回の成果ヽ(｀▽´)/

以下、手順

１．　まずはLibreBasic開発環境、そしてダイアログを画面に表示してみる

Sub ShowDiarog
    dim oSheets as object
    dim oDialog as object
    dim i as integer
  
  
    DialogLibraries.LoadLibrary("Standard")
    oDialog=CreateUnoDialog(DialogLibraries.Standard.Dialog1) 'ダイアログの制御を取る
    oSheets = ThisComponent.Sheets 'シートコンポーネントからシート配列を取る
  
    For i = 0 to oSheets.getCount()-1  'すべてのワークシートに対して繰り返す
               oDialog.getControl("ListBox1").AddItem(oSheets(i).Name,i)

               ' oDialog.getControl("ListBox1")

               ' ListBox.AddItem( 名前、番号) これらが１行にまとまっている
    Next i
  
    oDialog.Execute()
    oDialog.Dispose() 'この２行はダイアログを表示するためのおまじない
End Sub

↑のSub〜End Sub をコピペしてください

以下は実行方法とその結果