サンプルプロシージャでは、作成したフォームにコマンドボタンを配置し、
表示位置とサイズを設定してフォームを表示します。
標準モジュールに次のプロシージャを作成してください。
● サンプル ●
Sub Sample()
Dim myForm As Form
Dim myBtn As Control
Set myForm = CreateForm
Set myBtn = CreateControl(myForm.Name, acCommandButton, , _
"", "Button", 900, 600)
myBtn.Caption = "ここをクリック!"
DoCmd.Restore
DoCmd.MoveSize 0, 0, 4000, 2000
DoCmd.OpenForm myForm.Name
End Sub
● 詳細 ●
フォームを作成する場合はCreateFormメソッド、開いているフォームに
コントロールを作成する場合はCreateControlメソッドを使用します。
サンプルマクロでは、作成したコマンドボタンに表示する文字列を
Captionプロパティで設定しています。
CreateFormメソッドは、フォームのデザインビューで新規の最小化された
フォームを開くので、Restoreメソッドで"元のサイズに戻す" アクション
を実行します。
MoveSizeメソッドで表示位置とサイズの設定をしたフォームをOpenFormメソッド
で開きます。
|