[vb6] adattare form alla risoluzione video

[teto]

il mio programma ha diverse form e la loro dimensione mi è importantissima...
ho implementato su 1 video 19" xciò se vado su 1 15" mi ingrandisce tutto
come posso fare?
tenks

[xegallo]

me.height = percentuale di screen.height
me.width = percentuale di screen.width

[teto]

Originariamente inviato da xegallo
me.height = percentuale di screen.height
me.width = percentuale di screen.width

si ma come fa il programma a capire ke deve modificare le sue dimensioni?

[xegallo]

metti una if che confronta le dimensioni dello schermo dell' utente con la risoluzione in cui l'hai sviluppato

[teto]

Originariamente inviato da xegallo
metti una if che confronta le dimensioni dello schermo dell' utente con la risoluzione in cui l'hai sviluppato

si ok..ma se sapevo come si fa, stavo a kiedererlo??

mi puoi fare 1 esempio...anke piccolino

[xegallo]

Option Explicit
Private Const H = 480
Private Const W = 640
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
        'ok ha la stessa risoluzione
    Else
        'la risoluzione è diversa
        Me.Width = Me.Width * (currW / W)
        Me.Height = Me.Height * (currH / H)
    End If
End Sub

dove le 2 const metti la tua risoluzione

[teto]

Originariamente inviato da xegallo

Option Explicit
Private Const H = 480
Private Const W = 640
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
        'ok ha la stessa risoluzione
    Else
        'la risoluzione è diversa
        Me.Width = Me.Width * (currW / W)
        Me.Height = Me.Height * (currH / H)
    End If
End Sub

dove le 2 const metti la tua risoluzione

ok,grazie ora provo a vedere cosa riesco a fare

[raffaeu]

ciao io ho provato la tua sub per adattare la mia mdi allo schermo, ma nelle costanti devo inserire la risoluzione che uso in debug oppure le dimensioni in pixel della mia form?

Perchè io lavoro a 1024x768 ma se metto questi parametri il form mi si ridimensiona tipo rettangolo...