Newsgroup: it.comp.appl.access
Titolo: MoveSize non mi funziona ?

In apertura della maschera ho scritto:
Docmd.Movesize , , 7371,5103
La maschera a quel punto sarebbe dovuta essere di 13 cm X 9 cm (  1 cm
= 567 twip )
Invece la maschera veniva ingrandita al massimo.
Per risolvere ho aggiustato la maschera  e ho usato :
Docmd.Restore
Tutto ha cosě l'aspetto che volevo , rimane fermo il quesito: 
dove ho sbagliato con MoveSize ?
Ciao. Fabrizio

 Per risolvere ho aggiustato la maschera  e ho usato :
Prova ad inserire i valori in Pixel........!!
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:5a18qu8sej1e52bf1...@4ax.com...

Pensa al Biso che non gli funziona un'altra cosa....
;-P
ciao MAssimiliano



MA , MA non dire cosě , cosa ne puoi sapere tu ? oppure sai , ma a
quel punto sono io a non voler sapere . :-))) 
Ciao. Fabrizio

@Alex
Help in linea:
--------------------------
Metodo MoveSize
.....
espressione.MoveSize(Destra, InBasso, Larghezza, Altezza)
....
Gli argomenti vengono espressi in twip (twip: Unità di misura
equivalente a 1/20 di un punto oppure a un 1/1440 di pollice. Un
centimetro contiene 567 twip.).
--------------------------
Cmq ho provato a fare ( tanto per vedere cosa faceva):
Docmd.MoveSize , , 12, 12
ma è sempre la stessa cosa , mi ingrandisce la maschera al massimo.
Dov'è l'errore ?
Ciao. Fabrizio



Che versione di Access usi? con AccXP funziona
Mat.

 Che versione di Access usi? con AccXP funziona
Anche con le precedenti :-)

On Wed, 09 Oct 2002 12:35:44 GMT, "Potone" <mborr...@SPAMinwind.it>
wrote:

Access XP, tra l'altro adesso e saltato fuori un altro problema sul
ridimensionamento .
Tornando a bomba: tale metodo funziona se il DB č ridimensionato , se
invece č al massimo non funziona : lo dico adesso perchč la scoperto
adesso.
Non solo:
-Apro frmPrincipale :
-----------
Private Sub Form_Open(Cancel As Integer)
    DoCmd.Maximize
End Sub
-----------
e va tutto bene.
-Da frmPrincipale apro un'altra maschera frmInvioSchede:
-----------
Private Sub Form_Open(Cancel As Integer)
    DoCmd.MoveSize , , 7371, 5103
End Sub
---------
frmInvioSchede si dimensiona al massimo e si ridimensiona
frmPrincipale ( su misure sconosciute : NO 7371,5103 , come avessi
messo un Restore ).
-Quando chiudo e poi riapro frmInvioSchede , la maschera si dimensiona
come gli ho detto io con MoveSize.
Adesso cerco qlc sui ridimensionamenti , mi pare di aver visto qlc sul
NG una volta: non č un quesito nuovo, mi pare.
Ti faccio sapere.
Ciao. Fabrizio

 Dov'è l'errore ?
non lo so. Cmq per giocare prova questo
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
Call Ridimensiona
End Sub
Private Sub Chiudi_Click()
DoCmd.Close
End Sub
Private Sub Ridimensiona()
Dim bflag As Boolean
Dim lX As Long
Dim lY As Long
Dim aOriz As Variant
Dim aVert As Variant
Dim iCnt As Integer
Dim iInd As Integer
aOriz = Array(0, 20, 20)
aVert = Array(10, 0, 10)
bflag = True
For iInd = 0 To 2
    lX = 1
    lY = 1
    For iCnt = 1 To 700
    'Do While bflag
      If iCnt = 1 Then Me.Visible = True
      DoCmd.MoveSize , , lX + (iCnt * aOriz(iInd)), lY + (iCnt *
aVert(iInd))
    'Loop
    Next
Next
End Sub
;<)
--
a.cara

;<)
Tagliati sti' capelli !! :-))
Ciao. Fabrizio

Provo
E' una cosa un po' buffa : diciamo che l'ho trovata ... numble... come
dire ...... "lentuccia" e laboriosa : cmq era divertente.
Senti tale codice va bene sulle maschere continue come la mia , avrei
dovuto dirlo prima ?
Ciao. Fabrizio

 dovuto dirlo prima ?
Veramente certe "puttanate" non le uso.
Pero' se vuoi possiamo farla partire dal:
1) Centro
2) Basso-alto
3) sx-dx
4) farla rarrotolare all'indietro
tie' questa e' piu' semplice con l'effetto di riarrotolamento
Private Sub Form_Open(Cancel As Integer)
Call SimpleRedim("+")
End Sub
Private Sub Chiudi_Click()
Call SimpleRedim("-")
DoCmd.Close
End Sub
Private Sub SimpleRedim(Direzione As String)
Dim bflag As Boolean
Dim lX As Long
Dim lY As Long
Dim iCnt As Integer
Dim iDupl As Integer
Dim iVolte As Integer
iVolte = 700
If Direzione = "+" Then
    iDupl = 1
    lX = 1
    lY = 1
    For iCnt = 1 To iVolte
      If iCnt = 1 Then Me.Visible = True
      DoCmd.MoveSize , , lX + (iCnt * (20 * iDupl)), lY + (iCnt * (10 *
iDupl))
    Next
Else
    iDupl = -1
    lX = iVolte * 20 + 1
    lY = iVolte * 10 + 1
    For iCnt = 1 To iVolte
      DoCmd.MoveSize , , lX, lY + (iCnt * (10 * iDupl))
    Next
End If
End Sub
--
a.cara

tie' questa e' piu' semplice con l'effetto di riarrotolamento
Basta , basta Ale ti prego .  :-)))
Abbi pietą! :-))
p.s. me l'hai fatta .
Ciao. Fabrizio