TheTruster's Box

Quando si realizza un'applicazione, spesso si progetta l'interfaccia grafica tenendo conto solo dello spazio relativo alla risoluzione impostata sul proprio monitor. Questo di per se, non sarebbe un male... senonchè è sicuramente probabile che gli utenti della nostra applicazione abbiano impostato risoluzioni diverse dalla nostra. In pratica ci sarà chi non subirà nessun fastidio perchè avrà impostato una risoluzione maggiore di quella con la quale abbiamo sviluppato il programma e chi, invece, non farà altro che maledirci perchè vedrà solo parte del Form principale a causa di una risoluzione inferiore!

Certamente chi usa il nostro programma potrà fare lo sforzo di cambiare la risoluzione del suo monitor per vedere tutti i nostri TextBox, ma sono sicuro che defraudare l'utente della libertà di scegliersi la sua risoluzione non sia tanto costruttivo per la popolarità del nostro programmino... tantomeno riterrei opportuno far compiere questa operazione all'applicazione stessa, perchè questo andrebbe certamente a cozzare con le impostazioni previste da altre applicazioni.

In sostanza, ritengo che la soluzione migliore sia quella di fare in modo che la nostra applicazione sia in grado di adattarsi all'ambiente in cui si trova a "girare", spostando e/o ridimensionando i controlli presenti sul form per adattarlo ad una risoluzione diversa da quella con cui lo si è progettato.

In linea di principio è un'operazione relativamente semplice, ma la difficoltà risiede nell'adottare una soluzione flessibile, in grado di funzionare form di qualsiasi dimensione e contenente un numero qualsiasi di controlli.

Per facilitare le cose ho deciso di scrivere una Classev in Visual Basic 6 che, una volta istanziata, si occupa di ricevere, attraverso le sue proprietà, il riferimento al Form da ridimensionare, più altri parametri facoltativi che descriverò in seguito.

Ecco il codice della Classe che dovrà essere inserito in un Modulo di Classe nel progetto in cui si intende utilizzarlo, denominato clsResizer:

'***************************************************************************************
'***************************************************************************************
'**                                                                                   **
'**  Created By  : Mirko Marchese AKA TheTruster                                      **
'**                http://thetruster.altervista.org         (TheTruster's Box)        **
'**                                                                                   **
'**  Created On  : 22 Feb 2010                                                        **
'**  Last Update :                                                                    **
'**                                                                                   **
'**  VB Versions : 5.0 / 6.0                                                          **
'**                                                                                   **
'**  Requires    : a VB Project                                                       **
'**                                                                                   **
'**  Description : Classe per l'adattamento dei controlli presenti su un form alla    **
'**                sua dimensione, tramite  il ridimensionamento  e lo spostamento    **
'**                degli stessi.                                                      **
'**                                                                                   **
'***************************************************************************************
'***************************************************************************************

Dim WithEvents m_ParentFrm As Form
Dim clControls As Collection
Dim Start_frmWidth As Single
Dim Start_frmHeight As Single
Dim m_SameFont As Boolean
Dim m_FontName As String
Dim m_JustShiftControls As Boolean
 
Property Let JustShiftControls(ByVal newValue As Boolean)
m_JustShiftControls = newValue
End Property
 
Property Get JustShiftControls() As Boolean
JustShiftControls = m_JustShiftControls
End Property
 
Property Let SameFont(ByVal newValue As Boolean)
m_SameFont = newValue
End Property
 
Property Get SameFont() As Boolean
SameFont = m_SameFont
End Property
 
Property Let FontName(ByVal newValue As String)
m_FontName = newValue
End Property
 
Property Get FontName() As String
FontName = m_FontName
End Property
 
Property Set OnForm(ByVal frm As Form)
Set m_ParentFrm = frm
FontName = frm.FontName
End Property
 
Property Get OnForm() As Form
Set OnForm = m_ParentFrm
End Property
 
Public Sub ResetControls()
 
End Sub
 
Private Sub m_ParentFrm_Load()
 
Dim clControlProps As Collection
Set clControls = New Collection
 
Start_frmWidth = m_ParentFrm.ScaleWidth
Start_frmHeight = m_ParentFrm.ScaleHeight
 
On Error Resume Next
 
Dim ctl As Control
For Each ctl In m_ParentFrm.Controls
    Set clControlProps = New Collection
    With clControlProps
        .Add ctl, "CtlRef"
        If Not TypeOf ctl Is Line Then
            .Add ctl.Left, "Left"
            .Add ctl.Top, "Top"
            .Add ctl.Width, "Width"
            .Add ctl.Height, "Height"
        Else
            .Add ctl.X1, "Left"
            .Add ctl.Y1, "Top"
            .Add ctl.X2, "Width"
            .Add ctl.Y2, "Height"
        End If
        .Add ctl.Font.Size, "FontSize"
    End With
    clControls.Add clControlProps
    Set clControlProps = Nothing
Next ctl
 
End Sub
 
Private Sub m_ParentFrm_Resize()
 
Dim XRatio As Double
Dim YRatio As Double
Dim AvgRatio As Double
 
XRatio = m_ParentFrm.ScaleWidth / Start_frmWidth
YRatio = m_ParentFrm.ScaleHeight / Start_frmHeight
AvgRatio = (XRatio + YRatio) / 2
 
Dim ctlToResize As Control
Dim ctlProps As Collection
 
On Error Resume Next
 
Dim tmpControl As Object
 
For c = 1 To clControls.Count
    Set ctlProps = clControls(c)
    Set ctlToResize = ctlProps("CtlRef")
    With ctlToResize
        If Not TypeOf ctlToResize Is Line Then
            .Left = ctlProps("Left") * AvgRatio
            .Top = ctlProps("Top") * AvgRatio
            If Not JustShiftControls Then
                .Width = ctlProps("Width") * AvgRatio
                .Height = ctlProps("Height") * AvgRatio
                If SameFont And FontName <> "" Then
                    .Font.Name = FontName
                End If
                .Font.Size = ctlProps("FontSize") * AvgRatio
            End If
        Else
            .X1 = ctlProps("Left") * AvgRatio
            .Y1 = ctlProps("Top") * AvgRatio
            .X2 = ctlProps("Width") * AvgRatio
            .Y2 = ctlProps("Height") * AvgRatio
        End If
    End With
Next
 
End Sub

La classe è in grado di intercettare l'evento Resize del Form, nella cui routine di evento esegue il codice necessario al ridimensionamento/spostamento dei controlli e si può definirne le proprietà nell'evento Initialize del Form ove va utilizzata.
Queste sono le uniche righe di codice da utilizzare per ottenere l'effetto di ridimensionare i controlli al variare della dimensione del form:

Dim FormResizer As clsResizer
 
Private Sub Form_Initialize()
 
Set FormResizer = New clsResizer
 
With FormResizer
    Set .OnForm = Me
    .SameFont = True
    .FontName = "Tahoma"
    .JustShiftControls = False
End With
 
End Sub

La prima riga istanzia la classe. Nell'evento Initialize viene impostato il riferimento al Form, attraverso la proprietà onForm.
Questa la descrizione delle altre Proprietà:

• SameFont se è True specifica che i controlli dovranno avere tutti lo stesso Font;
• FontName Imposta il nome del Font da utilizzare. Se non è specificato viene usato quello del Form;
• JustShiftControls Se impostata a True sposta i Controlli per distribuirli sul Form, ma senza ridimensionarli.

Spero di essere stato sufficientemente chiaro nell'esposizione del funzionamento della Classe. In caso contrario contattatemi pure per chiarimenti o consigli.

Scarica la Classe e il progetto di esempio.