Newsgroup: it.comp.appl.access
Titolo: Rilevare risoluzione video?!

Salve.
Avevo già postato in precedenza, ma dalle
risposte che ho ricevuto non sono riuscito a fare
gran che in merito al problema sopra citato.
Praticamente vorrei riuscire a far capire al mio
programma qual'è la risoluzione video adottata
al momento della sua esecuzione nella macchina
in cui si trova.
Credo sia possibile farlo, avendo anche visto come
riesce il componente presente nel sito comune a
gestire il tutto, ma non riesco a trovare il codice
giusto al mio scopo... sapreste aiutarmi?
Vi ringrazio in anticipo
Livio


Cosaintendi per:
...far capire al mio programma qual'è la risoluzione video adottata...
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 ...far capire al mio programma qual'è la risoluzione video adottata...
credo che da questo codice quasi autospiegante, possa ricavare i dati
che cerca, usando solo le costanti che gli interessano. (by Dev Ashish)
'***************** Code Start **********************
                     '
                     Private Declare Function apiGetSys Lib "user32" _
                         Alias "GetSystemMetrics" (ByVal nIndex As Long) As
Long
                     Private Const SM_CXSCREEN = 0
                     Private Const SM_CYSCREEN = 1
                     Private Const SM_CXVSCROLL = 2
                     Private Const SM_CYHSCROLL = 3
                     Private Const SM_CYCAPTION = 4
                     Private Const SM_CXBORDER = 5
                     Private Const SM_CYBORDER = 6
                     Private Const SM_CXDLGFRAME = 7
                     Private Const SM_CYDLGFRAME = 8
                     Private Const SM_CYVTHUMB = 9
                     Private Const SM_CXHTHUMB = 10
                     Private Const SM_CXICON = 11
                     Private Const SM_CYICON = 12
                     Private Const SM_CXCURSOR = 13
                     Private Const SM_CYCURSOR = 14
                     Private Const SM_CYMENU = 15
                     Private Const SM_CXFULLSCREEN = 16
                     Private Const SM_CYFULLSCREEN = 17
                     Private Const SM_CYKANJIWINDOW = 18
                     Private Const SM_MOUSEPRESENT = 19
                     Private Const SM_CYVSCROLL = 20
                     Private Const SM_CXHSCROLL = 21
                     Private Const SM_DEBUG = 22
                     Private Const SM_SWAPBUTTON = 23
                     Private Const SM_RESERVED1 = 24
                     Private Const SM_RESERVED2 = 25
                     Private Const SM_RESERVED3 = 26
                     Private Const SM_RESERVED4 = 27
                     Private Const SM_CXMIN = 28
                     Private Const SM_CYMIN = 29
                     Private Const SM_CXSIZE = 30
                     Private Const SM_CYSIZE = 31
                     Private Const SM_CXFRAME = 32
                     Private Const SM_CYFRAME = 33
                     Private Const SM_CXMINTRACK = 34
                     Private Const SM_CYMINTRACK = 35
                     Private Const SM_CXDOUBLECLK = 36
                     Private Const SM_CYDOUBLECLK = 37
                     Private Const SM_CXICONSPACING = 38
                     Private Const SM_CYICONSPACING = 39
                     Private Const SM_MENUDROPALIGNMENT = 40
                     Private Const SM_PENWINDOWS = 41
                     Private Const SM_DBCSENABLED = 42
                     Private Const SM_CMOUSEBUTTONS = 43
                     Private Const SM_CMETRICS = 44
                     Function fGetSysStuff(strWhat As String) As String
                     Dim strRet As String
                         Select Case LCase(strWhat)
                             Case "resolution": strRet =
apiGetSys(SM_CXSCREEN) & "x" _
                                                             &
apiGetSys(SM_CYSCREEN)
                             Case "windowsize": strRet =
apiGetSys(SM_CXFULLSCREEN) & "x" _
                                                             &
apiGetSys(SM_CYFULLSCREEN)
                         End Select
                         fGetSysStuff = strRet
                     End Function
                     '***************** Code End **********************
    Paolo

 [cut]
Qualcosa di simile c'e' sul SitoComune.
IMHO vuole ridimensionare i controlli in funzione della risoluzione.


Federico

 Livio
Sul Sito Comune trovi:
Download - Modificare la risoluzione video (Carlo
Costarella)
Tips - Ridimensionamento automatico dei controlli di una
maschera (Alberto Marchi)
direi che c'e' tutto quello che ti serve.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
