主题：如何动态隐藏带功能的控件并实现位置变化

如何动态添加，移除带功能的控件呢

如图：

 

 
此主题相关图片如下：控件.bmp

 

点击应用之后，那些带代码的按钮就会自动移除或者添加进来了

 

希望大家给个思路

 

谢谢

代码写在自定义函数中，函数命名和控件text相同，控件命名要有自己的特征：比如万年历命名为“sys万年历”

 

窗口的全局时间代码：

 

If left(e.Sender.name,3) = “sys”

       Functions.Execute(e.Sender.text），点击不同的控件，调用不同的函数

end if

 

动态添加和删除控件的代码我就不给您写了，自己研究，有问题再说！

  

2楼正解

按照您的提示，已经做好了，各个按钮的点击事件。

新的问题来了：

动态添加按钮需要动态添加函数，这个对于我来讲难度太大，暂时回避，我想了一个折中的办法：

把所有按钮先写好，到时候隐藏；

 

于是这样的问题来了

 

选中的时候，下面的panel2中就显示按钮图标，未选中的时候就隐藏图标；
我的解决办法是：用按钮的隐藏功能实现，但是控件的位置不会变化啊？
例如：button1的位置是left15，top15，button2的位置是120，15；
当把button1移除之后，button2的位置应该未15，15，但是仅仅隐藏的办法不能实现

 

做了个小测试，麻烦大家帮我看看

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态添加.rar

此主题相关图片如下：88.jpg

另外，我感觉还需要设置一个保存的代码，我每个用户保存设置，一点思路都没有呢

 代码如下，至于保存信息，可以参考一下，太简单了。

http://www.foxtable.com/help/topics/1544.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态添加.zip

可以做到的。楼主，你的完整的例子呢？弄上来看看吧，这样才能改。

 

我现在的问题，写在窗口1中的全局代码注释中了

 

问题就是如何把读出来的数据_nms ，例如1，0，1，0

写入到xianshi()这个整数数组中

 

另外，这个用户登陆完了，设置好了，需要把设置的数据，在存到数据表中

 

这样基本就实现了，每个用户登陆窗口1的时候显示每个用户自定义的设置了。

 楼主，赋值的话挺简单的吧。而且没有必要，你可以直接取出字符串的任意一个字符的。

 比如，

 Dim str As String = "1011"
 msgbox(str(0))

 For Each s As String In str
     msgbox(s)
 Next

----------------------------------------------------------

 楼主，还有什么疑问？