Image调用imagelist

Question

在窗体上有image控件和ImageList控件求:Image控件调用ImageList的方法.

Answer 1

Private Sub Form_Load()
  Me.Picture1.Picture = Me.ImageList1.ListImages(1).Picture
  DoEvents
End Sub
现在有个问题是.
图片是原大,不能自动调节,适应Picture1的窗口大小.
结果,只显示图片的局部,不能显示全部图片.

Answer 2

装到ImageList的图片的尺寸是
高541,宽951
在Me.Picture1.Picture只能显示局部,不能显示全部.

Answer 3

越绕越乱.
目标需求是
图片框一定Image一定时.装入的图片按自动调节适应到图片框中.

Answer 4

就是说图片不论多大,显示在图片框中只能和图片框一样大?
如是:则
Picture1.PaintPicture ImageList1.ListImages(1).Picture, 0, 0, Picture1.Width, Picture1.Height

Answer 5

谢谢,就是这个目标需求.
网上找的比较麻烦,没有这段语句简单明了直观.
        Dim picName
        picName = "C:\Documents and Settings\Administrator\桌面\压力容器制造\DWG\"
        picName = picName & "SO1.wmf"
        With Picture1
          .Picture = LoadPicture(picName) '这时加入背景图,使其一运行就充满窗体
          .PaintPicture .Picture, 0, 0, 1300, 2000
        End With

Answer 6

CAD配合应用程序.
Sub ls()
  On Error Resume Next
   Dim Ent As AcadEntity
   With ThisDrawing
     For Each Ent In .ModelSpace
       If Ent.Layer = "细实线" Then
         Ent.color = 0
       End If
     Next Ent
     .SelectionSets("*TlsDbx*").Delete
   End With
    Set ss = ThisDrawing.SelectionSets.Add("*TlsDbx*")
    ''ss.AddItems pObj
    Dim pathName, fileName
    pathName = "C:\Documents and Settings\Administrator\桌面\压力容器制造\VB\WMF\"
    fileName = "SO_MFM"
    ThisDrawing.Export pathName & fileName, "wmf", ss
    ss.DeleteEnd Sub