如何动态添加复选框?

kamengwang 2005-09-13 01:20:18
我从数据库里提东西,如何动态的在窗体上添加复选框,比方说数据库里存了 爱好,性格,个性等等,
如何让他们一个项目跟一个项目的通过复选框方式排列出来,库里的东西是随时可能变的
...全文
214 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
winehero 2005-09-13
  • 打赏
  • 举报
回复
我的方法仅仅是添加一个CheckBOx啦,如果有多个,当然使用控件数组:)
WM_JAWIN 2005-09-13
  • 打赏
  • 举报
回复
viena(维也纳nn-实心木头人) 的方法简单.

我一直都用它!只以根据传入的index就知道是那个控件
kamengwang 2005-09-13
  • 打赏
  • 举报
回复
winehero(编程人生)你的方法测试中
viena 2005-09-13
  • 打赏
  • 举报
回复
Check1的Index属性设为0,就创建了一个CheckBox控件数组

Check1(0)可以直接使用

'运行时动态加载Check1(1)
Load Check1(1)
Check1(1).visible=True
'设置Check1(1)的位置

可在读取数据库记录的循环中,如上动态加载,数组下标递增

卸载使用Unload
wangdeshui 2005-09-13
  • 打赏
  • 举报
回复
楼上正解,如果要有时间
dim obj withevents as checkbox
winehero 2005-09-13
  • 打赏
  • 举报
回复
动态创建复选框:
Dim obj As CheckBox
Set obj = Me.Controls.Add("VB.CheckBox", "aaa")
obj.Visible = True
obj.Caption = 复选框显示名称
obj.Value = 1 '1为选中,0为未选中
。。。
调整位置等等
viena 2005-09-13
  • 打赏
  • 举报
回复
用控件数组啊

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧