现在你才问到点子上了,代码:
For Each c As WinForm.Control In e.Form.Controls c.ReadOnly = BooleanEnum.TrueNext
参考这个:
http://www.foxtable.com/help/topics/1849.htm