[vb6] ancora ridimensionamento controlli

[Beziel]

Raga ho trovato in questo form questo pezzo di codice che mi permette di vedere lo stesso sempre della stessa dimensione qlc sia la risoluzione dello schermo.

Private Const H = 768
Private Const W = 1024

Private Sub Form_Load()
Dim currH As Single
Dim currW As Single
currH = Screen.Height / Screen.TwipsPerPixelY
currW = Screen.Width / Screen.TwipsPerPixelX
If currH <> H And currW <> W Then
Me.Width = Me.Width * (currW / W)
Me.Height = Me.Height * (currH / H)
End If
End Sub

Mi chiedevo se esiste una cosa analoga x i controlli

[DeBe99]

Se fai nello stesso modo dovrebbe funzionare. Devi farlo anche sulle proprietà top e left.

[Beziel]

Ho provato a fare in questo modo:

dim comm as Control
For Each comm In Controls
comm.Width = comm.Width * (currW / W)
comm.Height = comm.Height * (currH / H)
Next

ma mi dice propriètà o metodo non supportato dall'oggetto come mai?

Poi mi spieghi come faccio con le proprietà top e left?


tnx!!!

[Beziel]

Facendolo senza ciclo funziona:

Command1.Width = Command1.Width * (currW / W)
Command1.Height = Command1.Height * (currH / H)
ma non ho voglia di farlo x ogni singolo controllo come posso fare?

[DeBe99]

Io l'ho provato esattamente come il tuo codice e funzia.
Probabilmente l'errore dipende da qualche tipo di controllo particolare. Che controlli hai dentro nel form?

Poi per top e left:
comm.left= comm.left* (currW / W)
comm.top= comm.top* (currH / H)

[Beziel]

dei commandbutton ed un menù

[Beziel]

Non funziona con i menù qlc mi dice come posso ovviare?

[DeBe99]

puoi fare un controllo sul tipo del controllo usando TypeName(comm) e facendo il riposizionamento solo per quelli diversi da "Menu" o come si chiama il controllo.

[Beziel]

potresti farmi un esempio x favore?

[DeBe99]

dim comm as Control 
For Each comm In Controls 
   if typename(conn)<>"Menu" then
      comm.Width = comm.Width * (currW / W) 
      comm.Height = comm.Height * (currH / H) 
      comm.Left = comm.Left * (currW / W) 
      comm.Top = comm.Top * (currH / H) 
   end if
Next