Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 4.20, 4.21

**********************
4.20 Retrieve the screen resolution
Problem
You want to retrieve the current resolution of the screen.
Solution
Copy the following code into the declaration section of a standard
module:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As 
Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Then you can call the API function e.g. in a function like:
Public Function fctResolution()
  fctResolution = "pixels horizontal: " & GetSystemMetrics(SM_CXSCREEN) & _
    "  vertical: " & GetSystemMetrics(SM_CYSCREEN)
End Function
************************
4.21 Adjust forms to the screen resolution
Problem
You want to adjust the size of your forms, position and size of the
controls etc. to the current resolution of the screen.
Solution
A technically simple method is to create several versions of a form
and open the right version according to the screen resolution.
Whereas the dynamical adjustment of forms needs a lot of code.
Often there are problems in detail with proportions, font sizes etc.
That can also happen with the various tools in the internet like
- ShrinkerStretcher 
http://www.peterssoftware.com
- Change97 
http://www.access-paradies.de
- ResizeStatic 
http://www.indus-gmbh.de/Access-Corner/access-corner.html
*************************
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:33l7qqF...@individual.net...

4.20 Determinare la risoluzione dello schermo.
Problema
vuoi determinare la risoluzione corrente dello schermo.
Soluzione
Copia il codice seguente nella sezione "dichiarazioni" di un nuovo modulo 
standard:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As 
Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
A questo punto potrai richiamare la funzione API, per esempio con una 
funzione, in questo modo:
Public Function fctResolution()
fctResolution = "pixels horizontal: " & GetSystemMetrics(SM_CXSCREEN) & _
"  vertical: " & GetSystemMetrics(SM_CYSCREEN)
End Function
************************
4.21 Adeguare le maschere alla risoluzione dello schermo
Problema
hai necessità di adeguare le dimensioni delle maschere, la posizione e la 
grandezza dei controlli, alla risoluzione corrente dello schermo.
Soluzione
una soluzione tecnicamente semplice è quella di creare più versioni di una 
stessa maschera e aprire quella che si adatta alla risoluzione corrente 
dello schermo.
Tieni presente :
che il dinamico ridimensionamento delle maschere necessita di molto codice;
che spesso ci sono problemi con le proporzioni, le dimensioni dei caratteri, 
ecc.;
quello che puoi  ottenere con vari strumenti che trovi in Internet, come:
- ShrinkerStretcher 
http://www.peterssoftware.com
- Change97 
http://www.access-paradies.de
- ResizeStatic 
http://www.indus-gmbh.de/Access-Corner/access-corner.html
*************************
Ciao, Carlo

 *************************
4.20 Recuperare la risoluzione dello schermo.
Problema
Vuoi recuperare la risoluzione corrente dello schermo.
Soluzione
Copia il seguente codice nella sezione dichiarazioni di un modulo standard:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As 
Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Quindi puoi richiamare la funzione API, p. e. in una funzione:
Public Function fctResolution()
fctResolution = "pixels horizontal: " & GetSystemMetrics(SM_CXSCREEN) & _
" vertical: " & GetSystemMetrics(SM_CYSCREEN)
End Function
++++
4.21 Adattare le maschere alla risoluzione dello schermo
Problema
Desideri adattare la dimensione delle tue maschere, la posizione e la 
dimensione dei controlli, alla risoluzione corrente dello schermo.
Soluzione
Un metodo tecnicamente semplice è creare più versioni di una maschera e
aprire quella giusta a secondo della risoluzione dello schermo.
Considera che l'adattamento dinamico delle maschere necessita di parecchio
codice.
Spesso ci sono problemi in dettaglio con le proporzioni, le dimensioni dei
caratteri,ecc.
Ciò può anche accadere con i vari strumenti su Internet come:
- ShrinkerStretcher 
http://www.peterssoftware.com
- Change97 
http://www.access-paradies.de
- ResizeStatic 
http://www.indus-gmbh.de/Access-Corner/access-corner.html
++++++++
Mi trovavo questi due link :
http://support.microsoft.com/default.aspx?scid=kb;en-us;138901
http://www.developershandbook.com/downloads.htm
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it