如何动态增加image控件！

各位兄弟：
        我现在想在FORM里面动态增加一个Image控件。PICTURE属性要动态重新设定。可是我不知道该怎么设定这个PICTURE属性，用绝对路径不行的。要怎么样才行啊？

解决方案 »

  1.   

    image(i).picture= loadpicture (app.path & "...")
    应该行吧。
      

  2.   

    Dim WithEvents ctlImage As VB.ImagePrivate Sub Form_Load()
    Set ctlImage = Controls.Add("VB.Image", "ctlImage1", Me)
    '设置Image的位置和尺寸
    ctlImage.Top = 400 + 200
    ctlImage.Left = 20
    '使可见
    ctlImage.Visible = True
    ctlImage.Picture = LoadPicture(App.Path & "\aa.bmp")
    'ctlImage.Picture = LoadPicture("f:\aa.gif")End Sub
      

  3.   

    Controls.Add！可以动态加载其它的控件的。只要你知道该控件的类型就OK了