主题：[分享]动态添加按钮

版友“布莱克朱”提了一个隐藏按钮的问题，后来看到他说动态添加按钮不好弄，其实我觉得挺好弄的，而且好用

因为用代码隐藏了按钮以后，后期修改维护很麻烦，动态的就方便，这个用户以前是员工权限，现在改经理了，

你只要设置一下就行了，或者以前他负责“增加”，现在负责“修改”了。

 

这个例子可以结合帮助里面的可视化权限控制，只要设置不同的权限，就会呈现不同的按钮。

按钮的代码可以放在全局事件里面。

 

优点：

1.结合权限控制，维护快捷方便

2.自动排列，美观

 

此主题相关图片如下：qq截图20111030100116.png

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

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

呵。分享就要顶！

我看看噻.

这个不错,值得考虑!

我顶

不错的东西,我已经参照了.

Dim btn As WinForm.Button
btn = Forms("窗口1").Controls("Button1")
btn.Image = GetImage("Accept.Ico")

这个代码怎么写?我需要动态添加图标,但是位置默认是居中的.所以我必须要 文本位置的代码,图标位置 相对位置等的代码

BottomCenter  垂直靠下，水平居中
BottomLeft    垂直靠下，水平靠左
BottomRight   垂直靠下，水平靠右
MiddleCenter  垂直居中，水平居中
MiddleLeft    垂直居中，水平靠左
MiddleRight   垂直居中，水平靠右
TopCenter     垂直靠上，水平居中
TopLeft       垂直靠上，水平靠左
TopRight      垂直靠上，水平靠右

 

 

BottomCenter  垂直靠下，水平居中
BottomLeft    垂直靠下，水平靠左
BottomRight   垂直靠下，水平靠右
MiddleCenter  垂直居中，水平居中
MiddleLeft    垂直居中，水平靠左
MiddleRight   垂直居中，水平靠右
TopCenter     垂直靠上，水平居中
TopLeft       垂直靠上，水平靠左
TopRight      垂直靠上，水平靠右

 

 

参见帮助吧

找到图标的对齐代码了