Newsgroup: it.comp.appl.access
Titolo: Posizionare una Form....

--------------------------------------------------------------------------<

 Ho guardato le opzioni, ma credo si debba ricorrere ad API.
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
' 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
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 Ho guardato le opzioni, ma credo si debba ricorrere ad API.
Hai provato a scaricare dal sito comune il Sample sulle Forms?
Mi pare che ci fosse qualcosa a riguardo.
Ciao, Simone


Ciao Silvio e Simone, grazie per la Tempestività....
Provo a verificare sul sito il consiglio di Simone, poi vi sapro dire anche
per questo.....
In riferimento al post di Silvio: avevo già scaricato questa Routine da MVPS
sessione Access, ma mi sono accorto che ho qualche difficoltà:
1) La funzione restituisce solo ed esclusivamente dati riguardo alla
risoluzione nel mio caso 1024x768, e qui
    devo convertirli in Twips, non sarebbe un problema se avessi risoluzione
costante, ma il rapporto di trasformazione
    varia anche in base alla Risoluzione, poi mo sono accorto che dipende
anche dalla Modalità Popup delle Form in gioco
    in quanto fanno riferimento con Popup=false alla MDI di Access.
    Tolte queste problematiche funzionicchia....
Ora però approfondendo gli studi e le ricerche ho trovato sul CD di
Access2000(Manuale di Programmazione) della Sybex una Classe di Ken Getz e
soci che è fantastica, c'è qualcosa di utile anche nel sito dell'autore
Linkato da MVPS....
ma il mio problema ora diventa, visto che sono coperte da "Copyright 1999
All rights reserved" posso lasciando inalterato
il codice con tutte le Copyright del caso utilizzarle e divulgarle.....???
Grazie ancora per la consulenza.
@Alex


Scusa della risposta ritardata, ma ho provato a scaricare il DEMO, è OK, e
funziona molto bene.
Sai se è possibile utilizzare le stesse API per modificare le Dimensioni
della Form.
Per quanto riguarda Form.Width non è un problema è una proprietà
accessibile, ma Form.Height è composta da n riferimenti
alle varie parti della Form.....!!!
Sono inaccontentabile.......!
Ciao Grazie mille per la disponibilità.
@Alex

 alle varie parti della Form.....!!!
Non ho mai avuto l'esigenza di modificare a Runtime le dimensioni di una
Form... però l'idea è molto interessante.
Non ti posso aiutare, dato anche i tempi ridotti a disposizione in questo
periodo, ma se ci riesci spedisci subito a Federico Luciani  ;-))
CIAO, Simone