Newsgroup: it.comp.appl.access
Titolo: help me access zoom

Qualcumo sa dirmi come posso fare per ingrandire unamaschera di access ?
mi spiego meglio : lavoro con una risoluzione a 1024 * 768 e vorrei tramite
un comando poter ingradire tutta l'applicazione del 200% come accade nei
report quando uso la lente di ingrandimento

 wrote in message
news:903m1h$v5$1...@lacerta.tiscalinet.it...

Esiste un esempio per questo: "MagnifyVer2" - 200k
In pratica crea una maschera che visualizza, ingrandita, l'area sulla quale
passa il mouse.
Se ti interessa te lo spedisco.


Prova cosě:
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
Public Function AdattaAVideo(f As Form) As Boolean
    On Error Resume Next
    Dim risp, rapporto As Double, fsize As Integer
    Dim ctl As Control
    risp = Val(fGetSysStuff("resolution"))
    rapporto = risp / 640
    if rapporto = 1 Then Exit Function
    For Each ctl In f.Controls
      ctl.Height = ctl.Height * rapporto
      ctl.Width = ctl.Width * rapporto
      ctl.Top = ctl.Top * rapporto
      ctl.Left = ctl.Left * rapporto
      fsize = ctl.FontSize * rapporto
      risp = DMax("DimCarat", "T_DimensioniCaratteri", "[DimCarat] <= val("
& fsize & ")")
      ctl.FontSize = risp
    Next
End Function
Function fGetSysStuff(strWhat As String) As String
' ritorna con "resolution" la risoluzione dello schermo
' ritorna con "windowsize" la dimensione massima ottenibile in finestra
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
Sbatti tutto in un modulo e quando ti serve la richiami
Dim foo As Boolean
foo= AdattaAVideo(NomeForm)
' se fosse la maschera corrente puoi usare
' foo= AdattaAVideo(Me)
Parte dalla considerazione che la maschera sia stata creata in 640x480 e la
ridimensiona alla risoluzione corrente.
Ho creato una tabella T_DimensioniCaratteri con un unico campo DimCarat dove
ho inserito le dimensioni comuni dei font che utilizzo (scartando quelle che
rendono brutti i caratteri), in modo che possa adattare automaticamente la
dimensione del font alla prima disponibile.
Ciao
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 >
