Increase size on continuous forms to fit widescreen

[rashar]

Hello,

I have an access 2003 app with continuous forms / and sub forms that was
developed on a 800 x 600 screen. I now have a wide sceen with a resolution of
1280 x 1024. When the app loads, the fonts and controls are too small.

I googled this topic and came across ADHResize module that I could add to the
project along with some code to be put in the open event of each form.

Private Sub Form_Open()
Set frmResize = ADHResize2K.CreateFormResize()
Set frmResize.Form = Me
End Sub

When I run my app, there is no change to the forms as they still stay small.
Any suggestions on this?

Thanks in advnace.

 

[Jack Leach]

Hi rashar,

I'm not familiar with this ADHResize2K method, but if you'd consider a
different approach, here's one that might work...

If you go to mvps.org/access and browse the API section, you will see a few
different API solutions that would come in handy. Particulary
GetSystemMetrics, to retrieve the current screen resolution, and manipulating
the access window

http://www.mvps.org/access/api/api0012.htm
http://www.mvps.org/access/api/api0019.htm

with this information you can programmatically determine the current state
of the computer's display, and then you can change the form's width
dynamically from there:

Private Sub Form_Open(Cancel As Integer)
Me.Width = 24000
End Sub

Note that when working with screen dimensions in VBA, they are measured in
TWIPS (twentieth of an imperial inch: 1inch = 1440 twips). Also note that
getting the screen resolution needs to be done through the API... resolution
and inches/twips do not necessarily mean the same thing (some pixels have a
different ratio, which intereferes with the more straightforward twips
dimensions).

This gets a lot easier if the continuous for happens to be a subform... then
you can easily check the .Width property of the main, and set the subform's
control size to just under than, and the subforms width to just under it's
control size.


Hope this isn't too much trouble...
--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)