长度单位续

Question

   用IMAGE控件就可以啦。

Answer 1

'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-15
'Description:要试用本例请在窗体中填加一个PictureBox和一个按钮,并将Picture1的BorderStyle设为0 - None
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    With Picture1
        '对于Picture对象(注意是对象)的长宽与PictureBox长宽的转换要用SCaleX和SCaleY
        MsgBox "Box's Width:" & .ScaleX(.Width, vbTwips, vbHimetric) & vbCrLf & "Pic's Width:" & .Picture.Width, vbInformation
        MsgBox "Box's Width:" & CLng(.ScaleX(.Width, vbTwips, vbHimetric)) & vbCrLf & "Pic's Width:" & .Picture.Width, vbInformation
    End With
End Sub