Way to make whole form Read-Only

[nerdalert1]

Is there a way without looping through all the controls on a form to make the whole form read only? Thanks all

 

[ThatRickGuy]

Not that I know of.

dim ctl as control
for each ctl in me.ctl
  'use reflection to determin object type
  'set readonly/enabled respectively
next

-Rick

----------------------

http://www.ringdev.com

 

[nerdalert1]

Could you give me an example of the reflection Rick? Thanks

 

[ThatRickGuy]

    Dim ctl As Control
    For Each ctl In Me.Controls
      If ctl.GetType.GetMember("ReadOnly").GetUpperBound(0) = 0 Then
        CallByName(ctl, "ReadOnly", CallType.Set, "True")
      ElseIf ctl.GetType.GetMember("Enabled").GetUpperBound(0) = 0 Then
        CallByName(ctl, "enabled", CallType.Set, "False")
      End If
    Next

-Rick

----------------------

http://www.ringdev.com