当前位置:编程学习 > VB >>

一个加载vlc ActiveX控件的问题 在线等答案

VB里面,我要动态加载控件,我在form里面放了这个控件,我设他的index为0,然后,我在程序里面去动态加.下面是我的程序
Private Sub Command1_Click()
    Load mvlc(1)
    Load mvlc(2)
    With mvlc(1)
        .Visible = True
        .Top = 0
        .Left = 0
    End With
    With mvlc(2)
        .Visible = True
        .Top = mvlc(1).Height
        .Left = 0
    End WithEnd Sub

Private Sub Command2_Click()
    Unload mvlc(2)
    Unload mvlc(1)
End Sub
第一次点command1加载成功以后,再点command2成功卸载,但以后点command1就会程序无响应.
但我如果一次加载四个以上,再卸载就不会有问题,即如下程序:
Private Sub Command1_Click()
    Load mvlc(1)
    Load mvlc(2)
    Load mvlc(3)
    Load mvlc(4)
    With mvlc(1)
        .Visible = True
        .Top = 0
        .Left = 0
    End With
    With mvlc(2)
        .Visible = True
        .Top = mvlc(1).Height
        .Left = 0
    End With
    With mvlc(3)
        .Visible = True
        .Top = mvlc(1).Height + mvlc(2).Height
        .Left = 0
    End With
    With mvlc(4)
        .Visible = True
        .Top = 0
        .Left = mvlc(1).Width
    End With
End Sub

Private Sub Command2_Click()
    Unload mvlc(4)
    Unload mvlc(3)
    Unload mvlc(2)
    Unload mvlc(1)
End Sub
这是为什么,请大家帮一下忙,我使的控件就是那个VLC控件 --------------------编程问答-------------------- 大家快帮帮忙,我在线等答案 --------------------编程问答-------------------- 上面第一段代码我试了可以动态的添加(我添加的是Textbox,加上动态的一个3个),LZ 你在检查一下. --------------------编程问答-------------------- 关注,帮你顶顶。 --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 我没有灌水 我只是在帮顶 --------------------编程问答-------------------- --------------------编程问答--------------------
引用 2 楼 refine_xie 的回复:
上面第一段代码我试了可以动态的添加(我添加的是Textbox,加上动态的一个3个),LZ 你在检查一下.

我也试了,没有问题,自定义的控件也没有问题 --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- 只能帮顶~ --------------------编程问答-------------------- --------------------编程问答-------------------- 我想知道怎么添加VLC控件到VB中。求大虾指导 --------------------编程问答--------------------
引用楼主 drion 的回复:
VB里面,我要动态加载控件,我在form里面放了这个控件,我设他的index为0,然后,我在程序里面去动态加.下面是我的程序
Private   Sub   Command1_Click()
        Load   mvlc(1)
        Load   mvlc(2)
        With   mvlc(1)
                .Visible   =  ……


没设Index还能加载?
补充:VB ,  控件
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,