[VB6] Ridimensionare le form in base alla risoluzione

[OrcaAssassina]

Sapetermi dirmi se c'è un codice già fatto da utilizzare affinche le dimensioni della form con tutti i vari oggetti venga ridimensionata in base alla risulozione del monitor????


Ciao e grazieeeeeeeeee

[mynos79]

No, non c'è ...
Devi lavorare a mano e spostare dinamicamente i vari controlli dall' evento resize e paint del form.
In .net ci sono alcuni aiuti in più dal fronte grafico.

[OrcaAssassina]

Originariamente inviato da mynos79

No, non c'è ...
Devi lavorare a mano e spostare dinamicamente i vari controlli dall' evento resize e paint del form.
In .net ci sono alcuni aiuti in più dal fronte grafico.

Mi potresti spiegare in che senso "SPOSTARE SINAMICAMENTE" i vari controlli

Ciao e grazieeeeeeee

[mynos79]

Nel senso, che negli eventi resize (ed eventualmente anche in paint, dipende da quello che devi fare) fai un codice che sposta e ridimensiona i vari controlli in modo automatico, cercando magari di usare le proprietà height e width del form o anche dell' oggetto screen ... in pratica fai in modo che il tuo codice sposti/ridimensioni in maniera automatica i controlli nel form ad ogni evento resize.
Puoi aiutarti magari con una matrice di controlli o una collection, così con un semplice ciclo for puoi scorrere i vari controlli, se sono disposti in maniera ordinata, così da creare un piccolo algoritmo che li sposti.

[wingman87]

Io in un mio progetto ho fatto così:

Private Sub Form_Resize()
    'Risistemo gli oggetti del form
    Dim X As Integer, Y As Integer
    If Me.Height < 6000 Then
        Exit Sub
    End If
    Web1.Width = Me.Width
    Web1.Height = Me.Height - 1100
    X = (Me.Width / 2) - 4700
    Y = Me.Height - 1000
    X = X - Label3.Left
    Y = Y - Label3.Top
    Label3.Left = Label3.Left + X
    Label3.Top = Label3.Top + Y
    Label1.Left = Label1.Left + X
    Label1.Top = Label1.Top + Y
    lblnr.Left = lblnr.Left + X
    lblnr.Top = lblnr.Top + Y
    'e avanti con tutti gli altri oggetti del form
End Sub

Web1 era un webbrowser e l'ho ridimensionato, gli altri oggetti erano tutti in basso al centro, 4700 è la metà dello spazio occupato da tutti gli oggetti orizzontalmente, ho impostato X e Y in base alla posizione dell'oggetto all'estrema sinistra e poi ho spostato tutti gli altri della stessa quantità.
Il controllo all'inizio è perchè se riduco a icona ottenevo dei valori negativi e mi dava errore, allora ho scelto una dimensione minima per il form.