Conversione pixel in mm? (proprietà .left)

di il
1 risposte

Conversione pixel in mm? (proprietà .left)

Ciao a tutti ho un problema che non riesco bene ad inquadrare..
Ho una maschera singola che contiene :
-un campo numerico percentuale (OvScR)
-un oggetto immagine rettangolare orizzontale largezza 40mm.
-un oggetto riga verticale (OvScArw) allineato a sinistra con l'oggetto rettangolare sopra descritto.
Tramite codice VBA all'apertura della maschera, il campo OvScR viene utilizzato per posizionare la riga verticale OvScArw orizzontalmente sul rettangolo colorato , a simulare un indicatore (da 0 a 100%) agendo sulla proprietà .Left dell'oggetto riga verticale.

All'inizio avevo scritto il codice senza applicare nessun fattore di conversione, moltiplicando il valore percentuale del campo per la larghezza dell'oggetto rettangolare, considerando erroneamente che , essendo la proprietà .left espressa in mm non fosse necessario, ma la riga verticale andava molto oltre la posizione corretta..

Il tutto funziona, ma a volte mi capita di trovare l'indicatore verticale completamente sballato perchè il fattore di conversione che ho usato non è corretto e devo ricalcolare il fattore di conversione)

Vorrei capire perchè accade , posto il codice. Grazie
Private Sub 
Form_Open(Cancel As Integer)
Dim sConvOvr, sFact, sFactSm, sConvMkt, sConvMktPot, sConvReal, sNr As Single

sFact = 56.699 * 40  ' fattore conversione moltiplicato per larghezza barra)

sConvOvr = sFact * Me.OvScR 'calcolo le coordinate dove posizionare la freccia
Me.OvscArw.Left = Me.OvscArw.Left + sConvOvr

1 Risposte

Devi accedere o registrarti per scrivere nel forum
1 risposte