RichG wrote:
With the help of Cor Ligthert [MVP] in a pryor post I was able to make this
sub:
Public Sub disableControls (ByVal frm As Form)
'this is to create a read only form that has active buttons
Dim x As Long 'used for doing nothing
For Each ctr As Control In frm.Controls
If TypeOf ctr Is ComboBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is DateTimePicker Then
ctr.Enabled = False
ElseIf TypeOf ctr Is TextBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is GroupBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is Label Then
x = x
ElseIf TypeOf ctr Is Button Then
x = x
ElseIf TypeOf ctr Is TabControl Then
For Each tabctr As Control In System.Windows. Forms.TabContro l
'?????????????? ?
Next
End If
Next
This works great eccept for the TabControl. I need the TextBoxs, etc in the
TabControl disabled but not the Tabs or Buttons within the TabControl.
I can't seem to find the syntax I need to step through this collection (if
it is a collection). I will probably need the syntax to do the same with a
Group (which I was unable at first pass to do).
You would do it the same way you would with a form. You would probably
be better off by creating a method that takes as it's parameter a
ControlCollecti on and then disables the controls. This sub can call
itself if the control is working on also has controls (such as a Panel
or TabPage):
Public Sub disableControls (ByVal container As ControlCollecti on)
For Each ctr As Control In container
If TypeOf ctr Is ComboBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is DateTimePicker Then
ctr.Enabled = False
ElseIf TypeOf ctr Is TextBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is GroupBox Then
ctr.Enabled = False
ElseIf TypeOf ctr Is Panel
'If we're dealing with a Panel, then pass its control
collection
'recursively back into this sub to process it's controls.
Dim tmpPanel As Panel = DirectCast(ctr, Panel)
disableControls (tmpPanel.Contr ols)
ElseIf TypeOf ctr Is TabControl Then
'If we're working with a TabControl, then we need to loop
through its
'tab pages to get at the controls on each page.
Dim tmpCtrl As TabControl = DirectCast(ctr, TabControl)
For Each tab As TabPage In tmpCtrl
disableControls (tab.Controls)
Next
End If
Next
End Sub
Notice that I changed the argument to the Sub to be a ControlCollecti on
since that what the Form controls collection is as well as a Panel and
TabPage. Notice that for a TabControl, I looped through the tab pages
and then passed it's control collection back into this sub. You could
call this from a button click by using this:
disableControls (MyForm.Control s)
Hope this helps
Chris
