さまよう大アリクイ

横浜市に住む。ホームページを作っていたりするが、最近滞り気味。

OpenOfficeのプログラミング:Baseのフォームの入力フィールドのオブジェクトを取得する。

フォームの入力フィールドの名前はフォームナビゲータボタンで確認できます。
フォームナビゲータ
入力フィールドの名前や、MainFormに属しているのか、SubFormに属しているのかをを元に、オブジェクトを取得できます。
Sub Test Dim oDoc As Object Dim oForm As Object Dim PushButton As Object Dim oSubForm As Object Dim txtNAME As Object ' フォームオブジェクト取得 oDoc = ThisComponent oForm = oDoc.getDrawPage().getForms().getByName("MainForm") ' MainFormのオブジェクトの取得 PushButton = oForm.getByName("PushButton") ' SubFormのオブジェクトの取得 oSubForm = oForm.getByName("SubForm") txtNAME = oSubForm.getByName("txtNAME") ' 文字列内容表示 MsgBox PushButton.Label MsgBox txtNAME.Text End Sub
オブジェクトを操作すれば、入力フィールドにデフォルトの自動設定をするとか、できそうです。