[VB6] Controllo risoluzione schermo

[Il Pazzo]

Vorrei far partire il mio programmino solo nel caso in cui la risoluzione dello schermo è 1024x.... Come devo fare??

In realtà in caso di risoluzioni minori vorrei rimpicciolire tutti gli oggetti del form e il form stesso... ma siccome penso che sia troppo complesso per me mi accontento della prima soluzione cioè far partire il prog solo nel caso in cui la risoluzione sia 1024....




Vi ringrazio anticipatamente dell'aiuto

[buba88]

prova cosi:

Private Sub Form_Load()
Dim y As Integer, x As Integer
    x = Screen.Height / Screen.TwipsPerPixelX
    y = Screen.Width / Screen.TwipsPerPixelY
    If x = 768 And y = 1024 Then
        'risoluzione ok
    else
        Unload Me
    End If
    
End Sub

[cassano]

Screen.TwipsPerPixelX

è la risoluzione corrente dello schermo ???

[buba88]

no, la risoluzione dello schermo è data da screen.width e screen.height ma sono epsresse non in pixel, bensi in twips, percio per ottenere le dimenzioni in pixel batsa dividerle per il numero di ogni twips presente in un pixel.

[Il Pazzo]

Se io prima di "scaricare" il form voglio far comparire una finestra di arresto critico che istruzione devo inserire?

[buba88]

Private Sub Form_Load()
Dim y As Integer, x As Integer
    x = Screen.Height / Screen.TwipsPerPixelX
    y = Screen.Width / Screen.TwipsPerPixelY
    If x = 768 And y = 1024 Then
        'risoluzione ok
    else
        MsgBox "Attenzione: cambiare la risoluzione a 1024 X 768",vbCritical,"Attenzione"
        Unload Me
    End If
    
End Sub

[Il Pazzo]

Grazie un ultima delucidazione

perchè anche se c'è l'istruzione Unload il programma rimane aperto in memoria???

Faccio ctr + alt + canc e me lo ritrovo sempre lì....

[buba88]

al posto di 'unload me' metti 'end' senza virgolette :-)

[Il Pazzo]

Ok ora va grazie mille per l'aiuto e i suggerimenti

[buba88]

di niente ciao!!!