难题请教:动态加载控件

zodane

好不容易学会了动态加载控件.
      dim withevents Fram as frame
      Set Fram = Me.Controls.Add("VB.Frame", "frame1")
     fram.visible=true
     以下设置语句略过. .  
以上能在form中生成控件frame  并能写事件.

然后 ,我将此移植到类中.

    因为需要频繁的使用某窗体的复制品     所以也就写成了一个类 , 然后在类中动态加载控件.
这是问题出来了.   
    我使用了timer , image  ,等多个动态加载的控件 , 好不容易不报错了, 但是程序运行, 还是没有看到控件加载的效果.
   

    以下为代码 ;  代码写在类中 , 并申明类中frm  为  new  frm6  (工程中的一个实例窗体)
    Private WithEvents CloseImg As Image

    Private Sub CloseImg_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If X > 0 And X < CloseImg.Width And Y > 0 And Y < CloseImg.Height Then
     CloseImg.Picture = LoadPicture(App.Path & "\界面图片\界面\co3.bmp")
  Else
     CloseImg.Picture = LoadPicture(App.Path & "\界面图片\界面\co1.bmp")
  End If
End Sub

   Private Sub SetImg() ' 设置按钮画片.
  Set CloseImg = Frm.Controls.Add("VB.Image", "image1")
  Set Light = Frm.Controls.Add("vb.timer", "timer1")
  With CloseImg
    .Visible = True
    .ZOrder 0
    .Width = 100
    .Height = 100
    .Stretch = True
    .Left = Frm.Width - 100
    .TOP = Frm.Height - 100
    .TooltipText = "xinghebaye"
    .Picture = LoadPicture(App.Path & "\界面图片\界面\co1.bmp")
  End With
End Sub

   

jyc8778

写在类或摸块里面的你要先定一下控件所加载的窗体。

你的代码不全，SetImg过程是在哪里有调用？

zodane

楼上, 你就说你弄成果过没吧.

   Set CloseImg = Frm.Controls.Add("VB.Image", "image1")
  Set Light = Frm.Controls.Add("vb.timer", "timer1")
  这是调用语句 , 窗体编码中有用的  

jyc8778

zodane: Re:难题请教:动态加载控件

楼上, 你就说你弄成果过没吧.

   Set CloseImg = Frm.Controls.Add("VB.Image", "image...

你就说你弄成果过没吧
这句话什么意思？不通顺。是成功的意思么？
我没考到VB里调试，没用过这样的句子。

zodane

  算了, 更换方法, 程序大片换.
  NND, 别的没有 ,有的就是时间.

jyc8778

加载控件还有个方法是用 load 事件，不知道你用过没？

zodane

最开始就是用它了. 这一招只对动态控件数组有用.

jyc8778

你的这招是做什么用的呢？

zodane

凭空生成一个控件.  
可以用程序画窗体.
昨天cj大侠完善了这个程序 ,可以任意画窗体了.  

jyc8778

zodane: Re:难题请教:动态加载控件

凭空生成一个控件.  
可以用程序画窗体.
昨天cj大侠完善了这个程序 ,可以任意画窗体了.  

哦，VB还可以凭空生成窗体吗？