Control resizing 2

wallywojo · Jan 3, 2000

I have an application that needs to tolerate changes in resolution. I have how to change the form, but need help with the sizing of controls. Any help would be apprecated. 
 
Walter Wojciechowski 
Wislon Pet Supply 
<A HREF="mailto:wwojo@wilsonpet.com">wwojo@wilsonpet.com</A>

MPK · Jan 3, 2000

You can check the height and width property of screen and then resize the form, Normally design for 640x480, but if user runs the application at 800x600 then following code might be of some help. 
 
Here the form is center located and made half, manipulate the code and check for yourself. 
 
Private Sub Form_load () 
Width = Screen.Width * .75 ' Set width of form. 
Height = Screen.Height * .75 ' Set height of form. 
Left = (Screen.Width - Width) / 2 ' Center form horizontally. 
Top = (Screen.Height - Height) / 2 ' Center form vertically. 
End Sub 
 
If you are using VB6 then check the help for topic 
"Designing for Different Display Types" 
 
I hope its OK. Manoj Kalekar <a href=mailto:manoj_kalekar@yahoo.com>manoj_kalekar@yahoo.com</a> <a href= > </a>

MikeLacey · Jan 4, 2000

A simpler approach might be to use a "container control". This is something like a frame - but you can't see it. You Put this container control on your form - drop all your control's onto it and, when you run it, it copes with resize requests for you... 
 
I used to use one with VB3 called "Elastic" but I can't remember where is got it from or anything - been a while now. 
 
Have a poke around, shouldn't be too difficult to find. 
 
Oh - and let us know what you find and how well it worked etc. 
 
Regards 
 
Mike 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

peekay · Jan 4, 2000

Hi WallyW 
 
There are a few aspects how you can handle the problem : 
1. Check the resolution of the computer during runtime by calling the API and then move your controls around at runtime to accommodate that resolution. You may want to shift these controls to other positions or make them smaller or larger. When I do this I usually write for very high resolutions and then run my program for all the lower resolutions and have routines that shift and size these controls. 
2. There was a thread here about a month ago which had code for resizing the form and controls based on a scale factor and scaling the fonts as well. You can check that. I copied the code then and can give it to you if you do not find it here. 
 
 
PK

wallywojo · Jan 4, 2000

I have not been able to find the container control. In the help index, it mentions ISimpleFrameSite, but this does not resize forms.

wallywojo · Jan 4, 2000

pk, can you send me that code? My email at work is: 
 
 
<A HREF="mailto:wwojo@wilsonpet.com">wwojo@wilsonpet.com</A> 
Thanks, 
Wally Wojo

MikeLacey · Jan 5, 2000

Have a look at 
<A HREF="

http://www.green-tree.com/Active_Control_Pak.htm"

TARGET="_new">

http://www.green-tree.com/Active_Control_Pak.htm</A>

-ml 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

wallywojo · Jan 5, 2000

Thanks Mike, that site is exactly what I needed. Appreciate the help. 
 
Wally Wojciechowski

MikeLacey · Jan 7, 2000

Another one: 
 
<A HREF="

http://www.qbss.com"

TARGET="_new">

http://www.qbss.com</A>

The control is "Olectra Resizer" 
 
-ml 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

chiph · Jan 12, 2000

Another thing to check in your form_resize event is the windowstate. If the form is minimized you want to return immediately, and not do anything. Otherwise you'll get errors because the controls you're attempting to move aren't visible. All it takes is this at the top of the event: 
 
    If Me.WindowState = vbMinimized Then 
        Exit Sub '<------- 
    End If 
 
Chip H.

edderic · Jan 17, 2000

Add a module.bas : 
 
'Resize routines 
'Eric De Decker 
'Secretaris VBG België 
' <A HREF="mailto:vbg.be@vbgroup.nl">vbg.be@vbgroup.nl</A> 
 
Option Explicit 
Public Xtwips As Integer, Ytwips As Integer 
Public Xpixels As Integer, Ypixels As Integer 
 
Type FRMSIZE 
Height As Long 
Width As Long 
End Type 
 
Public Positie_Form As Boolean 
Public NuResize As Boolean 
Dim DesignX As Integer 
Dim DesignY As Integer 
Dim ScaleFactorX As Single, ScaleFactorY As Single 
Dim MyForm As FRMSIZE 
 
A routine (procedure to the module ) : 
 
Public Sub FormResize(TheForm As Form) 
Dim ScaleFactorX As Single, ScaleFactorY As Single 
If Not NuResize Then 
NuResize = True 
Exit Sub 
End If 
Positie_Form = False 
ScaleFactorX = TheForm.Width / MyForm.Width 
ScaleFactorY = TheForm.Height / MyForm.Height 
Resize_Resolutie ScaleFactorX, ScaleFactorY, TheForm 
MyForm.Height = TheForm.Height 
MyForm.Width = TheForm.Width 
End Sub 
 
a other procedure : 
 
Sub Resize_Resolutie(ByVal SFX As Single, ByVal SFY As Single, MyForm As Form) 
Dim I As Integer 
Dim SFFont As Single 
SFFont = (SFX + SFY) / 2 
On Error Resume Next 
With MyForm 
For I = 0 To .Count - 1 
If TypeOf .Controls(I) Is ComboBox Then 
.Controls(I).Left = .Controls(I).Left * SFX 
.Controls(I).Top = .Controls(I).Top * SFY 
.Controls(I).Width = .Controls(I).Width * SFX 
Else 
.Controls(I).Move .Controls(I).Left * SFX, _ 
.Controls(I).Top * SFY, _ 
.Controls(I).Width * SFX, _ 
.Controls(I).Height * SFY 
 
End If 
If TypeOf .Controls(I) Is DBGrid Then 
 
Else 
 
.Controls(I).FontSize = .Controls(I).FontSize * SFFont 
End If 
Next I 
 
If Positie_Form Then 
 
.Move .Left * SFX, .Top * SFY, .Width * SFX, .Height * SFY 
 
End If 
End With 
 
 
End Sub 
 
Next procedure : 
 
Public Sub SizeForm(TheForm As Form) 
Dim Resolut As String 
DesignX = 1024 
DesignY = 768 
Positie_Form = True 
NuResize = False 
Xtwips = Screen.TwipsPerPixelX 
Ytwips = Screen.TwipsPerPixelY 
Ypixels = Screen.Height / Ytwips 
Xpixels = Screen.Width / Xtwips 
ScaleFactorX = (Xpixels / DesignX) 
ScaleFactorY = (Ypixels / DesignY) 
TheForm.ScaleMode = 1 
Resize_Resolutie ScaleFactorX, ScaleFactorY, TheForm 
Resolut = Str$(Xpixels) + " by " + Str$(Ypixels) 
MyForm.Height = TheForm.Height 
MyForm.Width = TheForm.Width 
 
End Sub 
 
The Form : 
 
Private Sub Form_Load() 
Call SizeForm(Me) 
End Sub 
 
Private Sub Form_Resize() 
 
Call FormResize(Me) 
 
End Sub 
 
From Eric De Decker 
 
<A HREF="mailto:vbg.be@vbgroup.nl">vbg.be@vbgroup.nl</A>

MikeLacey · Jan 19, 2000

Eric, 
 
Thanks - nice code there. 
 
Mike 
Mike Lacey <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Control resizing 2

wallywojo

Programmer

MPK

Programmer

MikeLacey

MIS

peekay

Programmer

wallywojo

Programmer

wallywojo

Programmer

MikeLacey

MIS

wallywojo

Programmer

MikeLacey

MIS

chiph

Programmer

edderic

Programmer

MikeLacey

MIS

Similar threads

Part and Inventory Search

Sponsor