+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Tutorials (https://mirage-engine.uk/forums/forumdisplay.php?fid=13)
+------ Thread: [Function] Basic twips/pixels conversion (/showthread.php?tid=3155)
[Function] Basic twips/pixels conversion - Robin - 24-09-2009
Code:
Public Function TwipsToPixels(ByVal twip_val As Long, ByVal XorY As Byte) As Long
If XorY = 0 Then
TwipsToPixels = twip_val / Screen.TwipsPerPixelX
ElseIf XorY = 1 Then
TwipsToPixels = twip_val / Screen.TwipsPerPixelY
End If
End Function
Public Function PixelsToTwips(ByVal pixel_val As Long, ByVal XorY As Byte) As Long
If XorY = 0 Then
PixelsToTwips = pixel_val * Screen.TwipsPerPixelX
ElseIf XorY = 1 Then
PixelsToTwips = pixel_val * Screen.TwipsPerPixelY
End If
End Function