我在代码中动态添加了一个控件数组如下:
Dim x(5) As Object 
For i = 0 To 5
    Set x(i) = Me.Controls.Add("vb.textbox", "text1" & i)
    x(i).Visible = True
Next
现在我想动态的卸载这个控件数组,怎样弄啊
For i = 0 To 5
Unload x(i)
Next
我试过这样弄,可是总是出错“不能卸载该对象”
希望大家帮帮忙

解决方案 »

  1.   

    Dim I As LongFor I = 0 To 5
        Me.Controls.Remove X(I)
    Next
      

  2.   

    恩  那个问题还没有解决 所以没有结贴
    那个语音识别的程序,我现在做的只能在VB窗口中使用,也就是模拟程序
    功能描述:程序运行,VB窗口中以光标为原点有个坐标轴,不管光标移动到哪里,都是以光标为原点的坐标轴
    可以通过坐标轴上的刻度,语音控制光标的移动。
    比如:move right 5,move up 5 使光标移到到指定的位置
    设计:两个LINE做坐标轴,用FORM.PSET描点当刻度,动态添加LABEL控件数组显示刻度值
    至于怎么在WINDOWS桌面上实现同样功能,现在还是一头雾水啊
    你有没有做过类似的项目啊,怎么才能在windows桌面上实现相同的功能,怎么在桌面上显示坐标轴
    如果我用API函数画坐标轴的话,能不能在桌面上画咧,或者能不能显示在桌面上啊 
    希望指点,谢谢
      

  3.   

    对于屏幕上的坐标,我有个思路及相应代码可提供给你:建立一个屏幕等大窗体,拥有鼠标穿透+总在最前+一定程度的透明效果.这样就应该OK了:http://www.m5home.com/blog2/blogview.asp?logID=180&cateID=2