Accessフォーム
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
Private Sub Form_Resize() Dim intWindowHeight As Integer 'フォームビューの高さ Dim intWindowWidth As Integer 'フォームビューの幅 Dim intTotalFormHeight As Integer 'デザインビュー全体の高さ Dim intTotalFormWidth As Integer 'デザインビュー全体の幅 Dim intHeightHeader As Integer 'デザインビュー ヘッダーの高さ Dim intHeightFooter As Integer 'デザインビュー フッターの高さ ' フォームのデザインビューの高さを取得します。 ' 詳細部は、後で指定するので、ヘッダー部・フッター部の合計値を出します ' ヘッダー部 intHeightHeader = Me.Section(acHeader).Height ' フッター部 intHeightFooter = Me.Section(acFooter).Height intTotalFormHeight = intHeightHeader + intHeightFooter ' フォームのデザインビューの幅を取得します。 intTotalFormWidth = Me.Width ' フォームビューの高さを取得します。 intWindowHeight = Me.InsideHeight ' フォームビューの幅を取得します。 intWindowWidth = Me.InsideWidth ' 詳細部（サブフォーム部）の高さを指定します ' 詳細部の最小値を決めておいて、その値よりも小さくなる場合は数値を指定しています。 If intWindowHeight - intTotalFormHeight < 2568 Then ' サブフォームのコントロールの高さを指定します Me.F01_Sub.Height = 2568 ' 詳細部の高さを指定します Me.Section(acDetail).Height = 2568 Else Me.F01_Sub.Height = intWindowHeight - intTotalFormHeight Me.Section(acDetail).Height = intWindowHeight - intTotalFormHeight End If ' サブフォームのコントロールの幅を指定します Me.F01_Sub.Width = Me.InsideWidth ' デザインビュー全体の高さを算出します intTotalFormHeight = intTotalFormHeight + Me.Section(acDetail).Height ' フォームビューの最小値を決めておき、その値よりも小さい場合は指定したサイズになるように変更します ' フォームビューの高さを変更する If intWindowHeight < intTotalFormHeight Then Me.InsideHeight = 5115 'フォームビューの高さ End If ' フォームビューの幅の変更と、スクロールバーの指定 If intWindowWidth < 16455 Then If intWindowWidth < 6360 Then Me.InsideWidth = 6360 'フォームビューの幅 End If ' 横スクロールバーを表示します Me.ScrollBars = 1 Else ' スクロールバーを消します Me.ScrollBars = 0 End If End Sub |
Comments are closed.