Calc Basic で Listbox の AddItem で Basicランタイムエラーが発生

・エラーの内容
BASIC ランタイムエラー
例外が発生しました
Type:com.sun.star.lang.IllegalArgumentException
Message:expected 2 arguments,got 1。

・マクロの内容
Dim Dlg1 As Object
Dim oListBox1 As Object

Sub ListBox
DialogLibraries.LoadLibrary(“Standard”)
Dlg1=CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oListBox1 = Dlg1.GetControl(“ListBox1”)
Dlg1.Execute()
End Sub

Sub Button_Click
With oListBox1
.AddItem(“北海道”)
.AddItem(“青森県”)
.AddItem(“秋田県”)
.AddItem(“岩手県”)
.AddItem(“新潟県”)
.AddItem(“宮城県”)
.AddItem(“福島県”)
End With
End Sub

Message:expected 2 arguments,got 1
必要な引数は2つだけど、1つしか無かった。


https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1awt_1_1XListBox.html#aeaccefb51cf16cb59002f193de78d47d


addItem()
void addItem ( [in] string aItem, [in] short nPos )

1 Like

.AddItem(“北海道”,0)と "北海道"の後に0を入れることでプログラムが動きました。
ありがとうございました。

1 Like