Newsgroup: it.comp.lang.visual-basic
Titolo: risoluzione schermo

Come faccio, mediante codice, a ridimensionare lo schermo e passare ad una
risoluzione 800x600 pixel???
Quale procedura utilizzo
Grazie
--
Posted from 
brain.sincretech.it
 [193.76.208.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
news:000001bf31c5$75b24940$3cd04cc1@gabrielf...


 risoluzione 800x600 pixel???
Quanto è bello il copia e incolla... ma mi sto quasi stufando di postarlo
due volte la settimana, e sul SC non lo trovo. Magari sono io...
STRACCAAAA ! Please inseriscilo, se non c'è davvero !  ;-))
Da un vecchio mex di Moreno Sirri:
____________________
...Oppure puoi utilizzare una procedura come quella che ti invio, che ridimensiona i controlli a
seconda del cambio di risoluzione.
____________________
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal
lpszDeviceName As Long,
ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA"
(lpDevMode As Any, ByVal
dwflags As Long) As Long
       Const CCDEVICENAME = 32
       Const CCFORMNAME = 32
       Const DM_PELSWIDTH = &H80000
       Const DM_PELSHEIGHT = &H100000
Private Type DEVMODE
       dmDeviceName As String * CCDEVICENAME
       dmSpecVersion As Integer
       dmDriverVersion As Integer
       dmSize As Integer
       dmDriverExtra As Integer
       dmFields As Long
       dmOrientation As Integer
       dmPaperSize As Integer
       dmPaperLength As Integer
       dmPaperWidth As Integer
       dmScale As Integer
       dmCopies As Integer
       dmDefaultSource As Integer
       dmPrintQuality As Integer
       dmColor As Integer
       dmDuplex As Integer
       dmYResolution As Integer
       dmTTOption As Integer
       dmCollate As Integer
       dmFormName As String * CCFORMNAME
       dmUnusedPadding As Integer
       dmBitsPerPel As Integer
       dmPelsWidth As Long
       dmPelsHeight As Long
       dmDisplayFlags As Long
       dmDisplayFrequency As Long
End Type
Dim DevM As DEVMODE
Sub ChangeRes(iWidth As Single, iHeight As Single)
       Dim a As Boolean
       Dim i&
       i = 0
              Do
                     a = EnumDisplaySettings(0&, i&, DevM)
                     i = i + 1
              Loop Until (a = False)
       Dim b&
       DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
       DevM.dmPelsWidth = iWidth
       DevM.dmPelsHeight = iHeight
       b = ChangeDisplaySettings(DevM, 1)
End Sub
Sub SetReso(frm As Form, RO!, RV!)
   On Error GoTo ErrH
' dimensione della form
    frm.Width = frm.Width * RO
    frm.Height = frm.Height * RV
' dimensione e posizione dei control
For i = 0 To frm.Controls.Count - 1
    frm.Controls(i).Left = frm.Controls(i).Left * RO
     frm.Controls(i).Top = frm.Controls(i).Top * RV
    frm.Controls(i).Width = frm.Controls(i).Width * RO
    frm.Controls(i).Height = frm.Controls(i).Height * RV
    frm.Controls(i).FontSize = frm.Controls(i).FontSize * RV
Next i
'posizione eventuali linee
   For i = 0 To frm.Linea.Count - 1
      frm.Linea(i).X1 = frm.Linea(i).X1 * RO
      frm.Linea(i).X2 = frm.Linea(i).X2 * RO
      frm.Linea(i).Y1 = frm.Linea(i).Y1 * RV
      frm.Linea(i).Y2 = frm.Linea(i).Y2 * RV
   Next
Exit Sub
ErrH:
    Resume Next
End Sub
Utilizzo:
Memorizzo in due variabili i valori di risoluzione attuali:
AttualeX=Screen.Width / Screen.TwipsPerPixelX
AttualeY=Screen.Height / Screen.TwipsPerPixelY
Poi cambio risoluzione:
ChangeRes(1024, 768)
E ridimensiono i controlli:
RapportoOres = (Screen.Width / Screen.TwipsPerPixelX) / AttualeX
RapportoVres = (Screen.Height / Screen.TwipsPerPixelY) / AttualeY
Call SetReso(me, RapportoOres, RapportoVres)
_________________
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Ho rivisitato (per necessita' del momento) l' ottimo programma, piu'
e piu' volte inviato da Paperino e avrei da farvi un paio di domande.
1) Qualcuno sa' come fare a determinare quale, tra gli n settings
ritornati da EnumDisplaySettings, e' quello correntemente impostato?
Il mio sistema grafico mi ritorna, per una risoluzione di 1024x768,
24 diverse combinazioni di profondita' di colore e frequenza di
rinfresco: quale' quella che sta' usando?
2) Qualcuno conosce i valori delle costanti da usare con DevM.dmFields
per cambiare profondita' di colore e frequenza di rinfresco?
Mi spiego meglio.
Nel sullodato programma sono riportate:
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
per cambiare risoluzione verticale e orizzontale e quindi mi
aspetto che esista qualcosa tipo:
Const DM_BITSPERPEL = &H????
Const DM_DISPLAYFREQUENCY = &H????
per cambiare gli altri due parametri, ma non sono riuscito a trovarne
il valore da nessuna parte.
Ciao a tutti e ringraziamenti.
Franco