以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14063)
--  作者：bm
--  发布时间：2011/11/6 21:55:00
--  代码求助

Dim txtBox As WinForm.NumericComboBox
txtBox = e.Form.Controls("NumericComboBox1")
txtBox.ReadOnly = BooleanEnum.True

现在的情况是只有("NumericComboBox1")为只读，如果需要增加NumericComboBox2，NumericComboBox3。。。应该怎么改？
--  作者：狐狸爸爸
--  发布时间：2011/11/6 22:00:00
--  

现在你才问到点子上了，代码：

 

For Each c As WinForm.Control In e.Form.Controls
    c.ReadOnly = BooleanEnum.True
Next

 

参考这个：

http://www.foxtable.com/help/topics/1849.htm
--  作者：bm
--  发布时间：2011/11/6 22:05:00
--  很好用啊
继续实习，谢谢狐爸了。