您的位置:程序门 -> vb -> 多媒体



动态加载activex控件问题


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


动态加载activex控件问题
发表于:2007-08-16 15:56:12 楼主
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控件


快速检索

最新资讯
热门点击