Newsgroup: it.comp.appl.access
Titolo: centratura maschere

Ho creato un applicativo che dovrei vendere a diverse persone con diverse
tipi di video, mi chiedo come devo fare per fare in modo che le maschere
risultino tutte dimensionate e pertanto centrate in base alle diverse
dimensioni dello schermo.
Un grazie in anticipo a tutti coloro che vorrano rispondermi.
Ciao, Sergio

 wrote in message
news:HJMr7.44046$dJ3.3...@news1.tin.it...

Per centrarle c'è la possibilità di settare a True la proprietà 
Centra Automaticamente delle Form, costa anche poco....!
Per il Ridimensionamento secondo me hai 2 strade:
1)Forzare la Risoluzione del monitor all'apertura e ripristinarla alla
Chiusura.
2)Vedi Sito Comune sulle Routine di Ridimensionamento dei controlli.
Io preferirei la 1° da molte meno noie, la risoluzione 800x600 è diffusissima
e compatibile con tutti i Monitor, sul Sito Comune trovi anche come fare
per poter modificarla, in alternativa vai su 
www.mvps.org
 sessione Access
e trovi tutto....
@Alex. 
-- 
Posted from  [62.98.10.101] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:HJMr7.44046$dJ3.3...@news1.tin.it...

io ho provato usando il codice spiegato nella "bibbia" di access2000, ma con
scarsi risultati, qualche messaggio fa c'era l'url a un sito che vende il
codice per farlo (che poi magari è un tizio che lo vende) personalmente
anche io lavoro a 800X600, ma senza modificare le dimensioni dello schermo,
tanto ho visto che lavorando in fase di sviluppo a 1280X1024 si riesce
comunque ad utilizzarlo, se poi qualcuno usa la risoluzione VGA peggio per
lui... si becca le barre di scorrimento...
si incorrono in meno problemi in generale secondo me usando il mio metodo,
sicuramente sbaglio, ma mi da fastidio quando un programma mi cambia la
risoluzione, che poi sovente non torna come prima, mentre per il
ridimensionamento dei controlli alcune volta andava in crash il programma
(sicuramente per colpa mia...).
by
stwe

 dimensioni dello schermo.
Prova a smazzarti questo codice:
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
    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
La funzione da usare è AdattaAVideo(nomedellamaschera)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

Il l'ho risolto in questo modo: in modalità struttura della maschera,
proprietà, evento e, su corrente, generatore di macro (ingrandisci). Spero
che ti sia utile Michele.