Form.InsideWidth プロパティ (Access)

InsideWidth プロパティを (InsideHeight プロパティと共に) 使用して、フォームを含むウィンドウの高さと幅 (twips 単位) を決定します。 読み取り/書き込みが可能な Long です。

構文

式。InsideWidth

expressionForm オブジェクトを表す変数です。

注釈

フォーム自体の内部寸法を決定する場合は、 Width プロパティを使用してフォームの幅を決定し、フォームの表示セクションの高さの合計を決定して高さを決定します ( Height プロパティはフォーム セクションにのみ適用され、フォームには適用されません)。 フォームの内部は、スクロール バーとレコード セレクターを除いたフォーム内の領域です。

WindowHeight および WindowWidth プロパティを使用して、フォームを含むウィンドウの高さと幅を指定することもできます。

ウィンドウを最大化した場合は、通常の大きさに復元するとこのプロパティが有効になります。

例

次の使用例では、InsideHeight プロパティと InsideWidth プロパティを使用して、フォーム内部の高さおよび幅と、フォームのウィンドウの高さおよび幅を比較しています。 ウィンドウのサイズがフォームのサイズと等しくない場合、ウィンドウのサイズはフォームの高さと幅に合わせて変更されます。

Sub ResetWindowSize(frm As Form) 
 Dim intWindowHeight As Integer 
 Dim intWindowWidth As Integer 
 Dim intTotalFormHeight As Integer 
 Dim intTotalFormWidth As Integer 
 Dim intHeightHeader As Integer 
 Dim intHeightDetail As Integer 
 Dim intHeightFooter As Integer 
 
 ' Determine form's height. 
 intHeightHeader = frm.Section(acHeader).Height 
 intHeightDetail = frm.Section(acDetail).Height 
 intHeightFooter = frm.Section(acFooter).Height 
 intTotalFormHeight = intHeightHeader _ 
 + intHeightDetail + intHeightFooter 
 ' Determine form's width. 
 intTotalFormWidth = frm.Width 
 ' Determine window's height and width. 
 intWindowHeight = frm.InsideHeight 
 intWindowWidth = frm.InsideWidth 
 
 If intWindowWidth <> intTotalFormWidth Then 
 frm.InsideWidth = intTotalFormWidth 
 End If 
 If intWindowHeight <> intTotalFormHeight Then 
 frm.InsideHeight = intTotalFormHeight 
 End If 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on