equivalencia de pixeles a centimetros

[Troyano]

como puedo saber la equivalencia de pixeles a centimetros en visual basic?

[Beakdan]

Troyano:
Utiliza los métodos ScaleX y ScaleY
Lo usarías más o menos así:

Código:

Dim nPixPerCentX As Single
Dim nPixPerCentY As Single
 
	nPixPerCentX = Me.ScaleX(1, vbCentimeters, vbPixels)
	nPixPerCentY = Me.ScaleY(1, vbCentimeters, vbPixels)

Saludos

[Troyano]

Perdona pero que es lo que debuelve la funcion ScaleX y ScaleY

¿la equivalencia de un cm en pixeles?

[Beakdan]

En este caso sí.
Los métodos ScaleX y ScaleY te permiten realizar rápidamente conversiones entre las escalas definidas en VB:

Pixels en un centímetro -> Me.ScaleX(1, vbCentimeters, vbPixels)
Milímetros en un pixel -> Me.ScaleX(1, vbPixels, vbMillimeters)
Ancho de la pantalla en centímetros -> Me.ScaleX(Screen.Width, vbTwips, vbCentimeters)

Como ya sabes, VB mide todo en twips por defecto; pero las funciones de la API esperan pixels... Con ScaleX y ScaleY, puedes transformar rápidamente los valores (aunque yo prefiero, cambiar el modo de la escala)

Para obtener el valor en pixels del ancho de un formulario podrias hacer esto:

Ancho = Me.ScaleWidth / Screen.TwipsPerPixelX

Pero también esto:

Ancho = Me.ScaleX(Me.ScaleWidth, vbTwips, vbPixels)

Saludos.