نوشتن تابع تبدیل اندازه میلیمتر به Pixel



Option Explicit



Private Sub Form_Load&#40;&#41;

'

    MsgBox MillimeterToPixel&#40;10, Printer.TwipsPerPixelX&#41;

'

End Sub



Private Function MillimeterToPixel&#40;Millimeter As Single, TwipsPerPixel As Single&#41; As Single

'

    'There are approximately 1440 twips to an inch &#40;the length of a screen item measuring one inch when printed&#41;.

    'As there are 2.54 centimeters to 1 inch, then there are approximately 567 twips to a centimeter

    '&#40;the length of a screen item measuring one centimeter when printed&#41;.

    'Or in millimeters, as there are 25.4 millimeters to 1 inch, therefore there are approximately 56.7 twips to

    'a millimeter &#40;the length of a screen item measuring one millimeter when printed&#41;.



    Const sngTwipsPerMillimeter As Single = 56.7

    

    MillimeterToPixel = Millimeter * &#40;sngTwipsPerMillimeter / TwipsPerPixel&#41;

'

End Function