problemi con risoluzione schermo e Access

[otrebor81]

Ciao

ho fatto un dabase in access ottimizzato per una certa risoluzione..
ora montato su un pc che non ha la stessa risoluzione...e ceh non puo' raggiungerlo
non riesco piu' a visualizzare correttamente il database...
che è piu' grande del mio schermo ed ora bisogna usare le barre di scorrimento per vederlo tutto...

ci sono soluzioni???

Grazie

Roberto

[otrebor81]

nessuno??

[Misterxxx]

Originariamente inviato da otrebor81
nessuno??

Devi rifare le maschere a misura, non c'è altra soluzione.

[longline]

Un'altra soluzione c'è, visto che una maschera si può ridimensionare e i controlli si possono anch'essi ridimensionare e spostare via codice.
Ma sarebbe decisamente un lavoro immane, per cui fai veramente molto prima a modificare le maschere a mano.

[fabio309]

prova ad adattare questa funzione

Dim objService, objDisSet
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objDisSet = objWMIService.InstancesOf("Win32_DisplayConfiguration")
Dim intGetFirst
intGetFirst = 0
Dim objInst


For Each objInst In objDisSet
    If intGetFirst = 0 Then Set objDis = objInst
    intGetFirst = intGetFirst + 1
Next
Dim ctrl
If objDis.PelsWidth & "x" & objDis.PelsHeight = "1280x960" Then
    For Each ctrl In Controls
        ctrl.Width = ctrl.Width * 1.2
        ctrl.Height = ctrl.Height * 1.2
        ctrl.Top = ctrl.Top * 1.2
        ctrl.Left = ctrl.Left * 1.2
    Next
else
    For Each ctrl In Controls
        ctrl.Width = ctrl.Width / 1.2
        ctrl.Height = ctrl.Height / 1.2
        ctrl.Top = ctrl.Top / 1.2
        ctrl.Left = ctrl.Left / 1.2
    Next
End If

[Misterxxx]

Originariamente inviato da fabio309
prova ad adattare questa funzione

Dim objService, objDisSet
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objDisSet = objWMIService.InstancesOf("Win32_DisplayConfiguration")
Dim intGetFirst
intGetFirst = 0
Dim objInst


For Each objInst In objDisSet
    If intGetFirst = 0 Then Set objDis = objInst
    intGetFirst = intGetFirst + 1
Next
Dim ctrl
If objDis.PelsWidth & "x" & objDis.PelsHeight = "1280x960" Then
    For Each ctrl In Controls
        ctrl.Width = ctrl.Width * 1.2
        ctrl.Height = ctrl.Height * 1.2
        ctrl.Top = ctrl.Top * 1.2
        ctrl.Left = ctrl.Left * 1.2
    Next
else
    For Each ctrl In Controls
        ctrl.Width = ctrl.Width / 1.2
        ctrl.Height = ctrl.Height / 1.2
        ctrl.Top = ctrl.Top / 1.2
        ctrl.Left = ctrl.Left / 1.2
    Next
End If

A parte che mi sembra che manchi qualcosa, non è sufficiente.
Non basta ridurre le dimesioni dei controlli ma spesso vanno anche riposizionati.

[fabio309]

Originariamente inviato da Misterxxx
A parte che mi sembra che manchi qualcosa, non è sufficiente.

infatti ho premesso che la funzione deve essere adattata

Originariamente inviato da Misterxxx Non basta ridurre le dimesioni dei controlli ma spesso vanno anche riposizionati.

        ctrl.Top = ctrl.Top / 1.2
        ctrl.Left = ctrl.Left / 1.2

sbaglio o avevamo già discusso di questo problema in passato?

[Misterxxx]

Originariamente inviato da fabio309
sbaglio o avevamo già discusso di questo problema in passato?

Non ricordo.
Cmq, la nuova posizione va valutata.
Io ho avuto lo stesso prb e alla fine è stato molto più semplice ridisegnare le maschere.