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
|
OpenOfficeのプログラミング:Baseのフォームの入力フィールドのオブジェクトを取得する。
フォームの入力フィールドの名前はフォームナビゲータで確認できます。
入力フィールドの名前や、MainFormに属しているのか、SubFormに属しているのかをを元に、オブジェクトを取得できます。
オブジェクトを操作すれば、入力フィールドにデフォルトの自動設定をするとか、できそうです。