如何动态隐藏带功能的控件并实现位置变化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

如图：

图片点击可在新窗口打开查看此主题相关图片如下：控件.bmp

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

希望大家给个思路

谢谢

[此贴子已经被作者于2012-11-4 11:22:14编辑过]

以下是引用程兴刚在2012-11-4 2:14:00的发言：

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

窗口的全局时间代码：

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

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

end if

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

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

新的问题来了：

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

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

于是这样的问题来了

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:动态添加.rar

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

[此贴子已经被作者于2012-11-4 11:19:40编辑过]

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

以下是引用lin_hailun在2012-11-5 18:45:00的发言：
代码如下，至于保存信息，可以参考一下，太简单了。

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

下载信息 [文件大小：23.1 KB 下载次数：4]
点击浏览该文件:动态添加.zip

您的方法真是简单有效！

但是不能实现重新排列的效果，您看看我的例子。

我做了三天，也出来一样的效果了

实例如下：

但是我不知道怎么才能根据不同用户的选择情况，进行设置保存，因此我想了在用户表中增加一列setting，来记录这个设置，但是不知道怎么传递参数，还望指导，谢谢

我想保存的是一个设置的数组形式（1，0，1，1，0）这样的形式，用户设置之后保存这个数据，用户登陆的时候调用这个数据

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

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

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

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

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

[此贴子已经被作者于2012-11-6 9:43:41编辑过]

以下是引用lin_hailun在2012-11-6 9:35:00的发言：
楼主，赋值的话挺简单的吧。而且没有必要，你可以直接取出字符串的任意一个字符的。

比如，

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

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

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

楼主，还有什么疑问？

可能您没有明白我的意思，不过我用val转换一下解决了，谢谢

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