Can a form automatically open and resize based on the screen resolution

Follow

Phillip Taylor

• October 21, 2015 03:50

I am developing a vertical application and want to eliminate the need to manually resize a form.  If I know the screen resolution at open can I adjust the screen size accordingly.  Certainly an API call and VBA would be involved.  

0

• 

  Technical Support

  • December 09, 2015 21:21

  Total Access Components does not offer this functionality as a core feature. However, this can be accomplished by adding some custom VBA code to your application. Below is an example which may work in many cases (depending upon the design of your application). This sample code is designed to provide a demonstration of this task using Visual Basic for Access Applications Programming. Please note that this code is intended and provided as an example only. Support for the custom integration of this code within your application is beyond the scope of FMS Technical Support.

  Create a new module, and type the following Declarations and function:

  Option Compare Database
  Option Explicit
  
  Type RECT
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
  End Type
  
  ' NOTE: The following declare statements are case sensitive.
  
  Declare Function GetDesktopWindow Lib "User32" () As Long
  Declare Function GetWindowRect Lib "User32" _
  	 (ByVal hWnd As Long, rectangle As RECT) As Long
  
  '*****************************************************************
  ' FUNCTION: GetScreenResolution()
  '
  ' PURPOSE:
  '   To determine the current screen size or resolution.
  '
  ' RETURN:
  '   The current screen resolution. Typically one of the following:
  '      640 x 480
  '      800 x 600
  '      1024 x 768
  '
  '*****************************************************************
  Function GetScreenResolution () as String
    Dim R As RECT
    Dim hWnd As Long
    Dim RetVal As Long
    hWnd = GetDesktopWindow()
    RetVal = GetWindowRect(hWnd, R)
    GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
  End Function

   

  On the View menu, click Debug window.

  Type the following line in the Debug window, and then press ENTER:
  ? GetScreenResolution()

  Note that the current screen resolution is displayed in the Debug window.

  Once the Screen Resolution is found, you can then resize the form to the resolution size found. When the form is resized, the OnResize event for the form will also fire, thus firing the code for the control.

  0

  Comment actions Permalink
• 

  Rachel Gomez

  • February 08, 2023 07:47

  Go to Access settings=> document window options and select tabbed documents . Any form you want to have specific size, you can then set as "popup". You can still have your custom form with custom bg colour, size 1cmx1cm, no scroll, no navigation bar, no record selctor, borderstyle none .

  Regards,

  Rachel Gomez

  0

  Comment actions Permalink

Please sign in to leave a comment.