Home » Tip Bank » XML » XML with Visual Basic and VB.NET

Language: VB.NET
Expertise: Beginner

Jun 14, 2005

Though .NET no longer supports twips, one twip is still 1/1440 inch. You can use the dpiX and dpiY properties of the Graphics class to obtain the horizontal or vertical resolution of a Graphics object in inches, and then multiply by 1440 to get the number of twips:

g.dpix * 1440 

Paste this algorithm into a form and it will work just like a twip:

Private Function fIntPixToTwips(ByVal intValInPix As Integer) As Integer

Dim g As Graphics = Me.CreateGraphics()

fIntPixToTwips = intValInPix / g.dpix * 1440

g.Dispose()

End Function