日期:2014-05-16 浏览次数:21072 次
Option Explicit
Public Property Get ImgPath() As String
ImgPath = ImgEdit1.Image
End Property
Public Property Let ImgPath(ByVal ImgPathValue As String)
ImgEdit1.Image = ImgPathValue
End Property
Private Sub UserControl_Initialize()
ImgEdit1.Display
End Sub
<HTML>
<HEAD>
</HEAD>
<BODY>
<OBJECT id="ImgEdit1" classid="clsid:1E145DD7-C017-4C8B-A126-B9C049AC99AB" width="600" height="450">
<param name="ImgPath" ImgPathValue="image/0006.tif">
</OBJECT>
</BODY>
</HTML>