AccessVBA 標準モジュール④フォーム成型

Option Compare Database
Sub FormSizeStandard()
DoCmd.MoveSize 1000, 500, 12000, 9000
End Sub

Sub FormSizeWide()
DoCmd.MoveSize 1000, 500, 20000, 9000
End Sub

Sub FormSizeSquare()
DoCmd.MoveSize 1000, 200, 12000, 12000
End Sub

Sub FormSizeWide2()
DoCmd.MoveSize 1000, 500, 14000, 10000
End Sub
Sub FormSizeSquare2()
DoCmd.MoveSize 1000, 200, 14000, 12000
End Sub
Sub FormSizeWide3()
DoCmd.MoveSize 1000, 200, 18000, 12000
End Sub
Sub FormSizeWide4()
DoCmd.MoveSize 1000, 200, 15000, 12000
End Sub
Sub FormSizeSmall1()
DoCmd.MoveSize 1000, 500, 5000, 9000
End Sub
Sub FormSizeSmall2()
DoCmd.MoveSize 1000, 500, 7000, 9000
End Sub
Sub FormSizeSmall3()
DoCmd.MoveSize 1000, 500, 7000, 11000
End Sub

About

You may also like...

Your email will not be published. Name and Email fields are required