一条语句设置多个控件的属性和方法

wxg600308 2005-10-03 10:59:17
如checkbox1、checkbox2、checkbox3和optionbution1、optionbution2、optionbution3
能不能作一个集合同时用一条语句设置他们的visible属性。
谢谢各位大虾帮忙
...全文
118 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-10-04
  • 打赏
  • 举报
回复
Private Sub FORM_Click()
Dim CTL As Control
For Each CTL In Me.Controls
If TypeOf CTL Is CheckBox Or TypeOf CTL Is OptionButton Then CTL.Visible = Not CTL.Visible
Next
End Sub
wxg600308 2005-10-04
  • 打赏
  • 举报
回复
楼上大虾:
我是初学者,很多不明白,还请具体名示.
我的目的是n个CheckBox和n个OptionButton
在Form_Initialize时它们的Visible = false
再用togglebutton切换控件来分别改变CheckBox和OptionButton它们的Visible
CheckBox.Visible = true ,OptionButton.Visible = false(交替变化)
虽然我能实现这个,但是,是一个一个的设置,我想学习更好的方法
比如:
range("a1").value = "ssss"
range("c1").value = "ssss"
range("e1").value = "ssss"
range("g1").value = "ssss"
可以
dim myrange as range
set myrange = range("a1,c1,e1,g1")
myrange.value = "ssss"
多个控件也能不能如此
king_ 2005-10-03
  • 打赏
  • 举报
回复
更正一下,属性和方法 不能同时设置,只能, 属性或方法,不好意思啊!
king_ 2005-10-03
  • 打赏
  • 举报
回复
小弟不是大虾,但我用的方法是:
把相同的控件做成数组,再用个循环,呵呵,我喜欢用 while.....wend .后用item(index).属性和方法就可以了!!

参考一下啦^O^

1,451

社区成员

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

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