Newsgroup: it.comp.appl.access
Titolo: POSIZIONAMENTO MASCHERE SULLO SCHERMO

E' possibile fare in modo che all'apertura di access la maschera da me
impostata come maschera iniziale si posizioni in un determinato punto dello
schermo, ad esempio, in alto a sinistra?
Grazie!

 ha scritto nel messaggio
news:Lkl18.1714$tl3....@twister2.libero.it...

Proprietà-Fomato-Centratura Automatica-No
Ciao Paolo

 ha scritto nel messaggio
news:Lkl18.1714$tl3....@twister2.libero.it...

si, ma se vuoi essere sicuro che la cosa funzioni sempre e bene è contorto.
Se disabiliti l'autocentratura in teoria dovrebbe salvare la posizione
mentre editi la maschera... ma a me ha sempre dato dei problemi (anche
l'autocentratura), allora me la son fatta da solo:
Di seguito ci sono farie funzioni di supporto, e l'ultima è quella che mi
centra la maschera, puoi personalizzarla per posizionarla dove vuoi.
L'ultima funzione è tratta da una di quelle presenti sul sito comune, che ho
poi modificato per i miei scopi: essa oltra a centrare la maschera (quello
che ho fatto io) ridimensiona la form in base ai suoi contenuti.
L'ultima riga di codice dell'ultima funzione è quella che "centra" la
maschera sullo schermo.
Declare Function GetSystemMetrics& Lib "User32" (ByVal nIndex&)
Declare Function GetDC% Lib "User32" (ByVal hw%)
Declare Function ReleaseDC% Lib "User32" (ByVal hw%, ByVal hDC%)
Declare Function GetDeviceCaps% Lib "Gdi32" (ByVal hDC%, ByVal iCapability%)
Public Function GetScreenX() 'risoluzione X dello schermo
GetScreenX = GetSystemMetrics(0)
End Function
Public Function GetScreenY() 'risoluzione Y dello schermo
GetScreenY = GetSystemMetrics(1)
End Function
Public Function GetScreenXtwip() 'risoluzione X dello schermo in twip
GetScreenXtwip = Pixel2Twip(GetSystemMetrics(0), 0)
End Function
Public Function GetScreenYtwip() 'risoluzione Y dello schermo in twip
GetScreenYtwip = Pixel2Twip(GetSystemMetrics(1), 1)
End Function
Function Twip2Pixel(lTwips As Long, Orientation As Long) As Long
Dim DC As Long
Dim PixelsPerInch As Long
Const TwipPerInch = 1440
Const WU_LOGPIXELSX = 88 'usate per convertire i twip in pixel
Const WU_LOGPIXELSY = 90 'usate per convertire i twip in pixel
DC = GetDC(0)  'Handle alla periferica
If (Orientation = 0) Then 'Hor
    PixelsPerInch = GetDeviceCaps(DC, WU_LOGPIXELSX)
Else                       'Vert
    PixelsPerInch = GetDeviceCaps(DC, WU_LOGPIXELSY)
End If
DC = ReleaseDC(0, DC)
Twip2Pixel = (lTwips / TwipPerInch) * PixelsPerInch
End Function
Function Pixel2Twip(lPix As Long, Orientation As Long) As Long
Dim DC As Long
Dim PixelsPerInch As Long
Const TwipPerInch = 1440
Const WU_LOGPIXELSX = 88 'usate per convertire i twip in pixel
Const WU_LOGPIXELSY = 90 'usate per convertire i twip in pixel
DC = GetDC(0)  'Handle alla periferica
If (Orientation = 0) Then 'Hor
    PixelsPerInch = GetDeviceCaps(DC, WU_LOGPIXELSX)
Else                       'Vert
    PixelsPerInch = GetDeviceCaps(DC, WU_LOGPIXELSY)
End If
DC = ReleaseDC(0, DC)
Pixel2Twip = (lPix / PixelsPerInch) * TwipPerInch
End Function
Public Sub formAutoResize(frm As Form)
    On Error Resume Next
    Dim intWindowHeight As Integer
    Dim intWindowWidth As Integer
    Dim intHeightHeader As Integer
    Dim intHeightDetail As Integer
    Dim intHeightFooter As Integer
    Dim intTotalFormHeight As Integer
    Dim intTotalFormWidth As Integer
       intHeightHeader = frm.Section(acHeader).Height
       intHeightDetail = frm.Section(acDetail).Height
       intHeightFooter = frm.Section(acFooter).Height
       intTotalFormHeight = intHeightHeader + intHeightDetail +
intHeightFooter
       intTotalFormWidth = frm.Width
    intWindowHeight = frm.InsideHeight
    intWindowWidth = frm.InsideWidth
    If intWindowWidth <> intTotalFormWidth Then
       frm.InsideWidth = intTotalFormWidth
    End If
    If intWindowHeight <> intTotalFormHeight Then
       frm.InsideHeight = intTotalFormHeight
    End If
    DoCmd.MoveSize (GetScreenXtwip() - frm.Width) / 2, (GetScreenYtwip() -
frm.InsideHeight) / 2
End Sub
Ciao, Max

 ha scritto nel messaggio
news:Lkl18.1714$tl3....@twister2.libero.it...

A fronte dell'evento 'Su apertura' scrivi
DoCmd.MoveSize (... per i parametri guarda l'Help)
Ciao
--
Alberto