Help: Control loops & properties in VB .Net 2005

[Sugan]

Hi all,

I'm using Visual Basic 2005. I would like to loop through the controls
and wite or get some properties based on the controls.

This is the following piece of code in Visual Basic 6.0

For Each ctl In frm.Controls
sCtlType = TypeName(ctl)
If sCtlType = "Label" Then
ctl.Caption = objLocalizer.Ge tResourceString (CInt(ctl.Tag))
ElseIf sCtlType = "CommandBut ton" Then
nVal = 0
nVal = Val(ctl.Tag)
ElseIf sCtlType = "Menu" Then
ctl.Caption =
objLocalizer.Ge tResourceString (CInt(ctl.Capti on))
ElseIf sCtlType = "TabStrip" Then
For Each obj In ctl.Tabs
obj.Caption =
objLocalizer.Ge tResourceString (CInt(obj.Tag))
obj.ToolTipText =
objLocalizer.Ge tResourceString (CInt(obj.ToolT ipText))
Next
ElseIf sCtlType = "Toolbar" Then
For Each obj In ctl.Buttons
obj.ToolTipText =
objLocalizer.Ge tResourceString (CInt(obj.ToolT ipText))
Next
ElseIf sCtlType = "ListView" Then
For Each obj In ctl.ColumnHeade rs
obj.Text =
objLocalizer.Ge tResourceString (CInt(obj.Tag))
Next
ElseIf sCtlType = "ctList" Then
ctl.HeaderFont = fnt
Count = ctl.ColumnCount
For Index = 1 To Count
ctl.ColumnText( Index) =
objLocalizer.Ge tResourceString (CInt(ctl.Colum nText(Index)))
Debug.Print ctl.ColumnText( Index)
Next Index
ElseIf sCtlType = "SSTab" Then
For Index = 0 To ctl.Tabs
ctl.TabCaption( Index) =
objLocalizer.Ge tResourceString (CInt(ctl.TabCa ption(Index)))
Next Index
ElseIf sCtlType = "ActiveBar" Then
Dim i As Integer
Dim J As Integer
Dim BandCount As Integer
Dim ToolsCount As Integer
BandCount = ctl.Bands.Count
For i = 0 To BandCount
ToolsCount = ctl.Bands(Index ).Tools.Count
For J = 0 To ToolsCount
nVal = 0
nVal = Val(ctl.Bands(i ).Tools(J).Tag)
If nVal > 0 Then
ctl.Bands(i).To ols(J).Caption =
objLocalizer.Ge tResourceString (nVal)
End If
nVal = 0
nVal = Val(ctl.Bands(i ).Tools(J).Tool TipText)
If nVal > 0 Then
ctl.Bands(i).To ols(J).ToolTipT ext =
objLocalizer.Ge tResourceString (nVal)
End If
Next J
Next i
Else
nVal = 0
nVal = Val(ctl.Tag)
If nVal > 0 Then ctl.Caption =
objLocalizer.Ge tResourceString (nVal)
nVal = 0
nVal = Val(ctl.ToolTip Text)
If nVal > 0 Then ctl.ToolTipText =
objLocalizer.Ge tResourceString (nVal)
End If
Next





When the same code is to be converted to Visual Basic 2005, i would
like to know how to access
1. ctl.HeaderFont in case of "ctList"
2. ctl.ColumnCount in case of "ctList"
3. ctl.ColumnText( Index) in case of "ctList"
4. ctl.Tabs in case of ctl is a SSTab
5. ctl.TabCaption( Index) in case of a Tab in SSTab

Any Help in this regard would be appreciated


Thanks in advance,
Sugan

[Fred Hedges]

Re: Control loops & properties in VB .Net 2005

For Each theControl As Control In Me.Controls

If TypeOf theControl Is Label Then
MessageBox.Show ("Its a label")

ElseIf TypeOf theControl Is ListBox Then
MessageBox.Show ("Its a list box")

ElseIf TypeOf theControl Is ListView Then
MessageBox.Show ("Its a listview")

End If

Next

"Sugan" <vsugan@gmail.c om> wrote in message
news:1148300245 .358787.267940@ i39g2000cwa.goo glegroups.com.. .[color=blue]
> Hi all,
>
> I'm using Visual Basic 2005. I would like to loop through the controls
> and wite or get some properties based on the controls.
>
> This is the following piece of code in Visual Basic 6.0
>
> For Each ctl In frm.Controls
> sCtlType = TypeName(ctl)
> If sCtlType = "Label" Then
> ctl.Caption = objLocalizer.Ge tResourceString (CInt(ctl.Tag))
> ElseIf sCtlType = "CommandBut ton" Then
> nVal = 0
> nVal = Val(ctl.Tag)
> ElseIf sCtlType = "Menu" Then
> ctl.Caption =
> objLocalizer.Ge tResourceString (CInt(ctl.Capti on))
> ElseIf sCtlType = "TabStrip" Then
> For Each obj In ctl.Tabs
> obj.Caption =
> objLocalizer.Ge tResourceString (CInt(obj.Tag))
> obj.ToolTipText =
> objLocalizer.Ge tResourceString (CInt(obj.ToolT ipText))
> Next
> ElseIf sCtlType = "Toolbar" Then
> For Each obj In ctl.Buttons
> obj.ToolTipText =
> objLocalizer.Ge tResourceString (CInt(obj.ToolT ipText))
> Next
> ElseIf sCtlType = "ListView" Then
> For Each obj In ctl.ColumnHeade rs
> obj.Text =
> objLocalizer.Ge tResourceString (CInt(obj.Tag))
> Next
> ElseIf sCtlType = "ctList" Then
> ctl.HeaderFont = fnt
> Count = ctl.ColumnCount
> For Index = 1 To Count
> ctl.ColumnText( Index) =
> objLocalizer.Ge tResourceString (CInt(ctl.Colum nText(Index)))
> Debug.Print ctl.ColumnText( Index)
> Next Index
> ElseIf sCtlType = "SSTab" Then
> For Index = 0 To ctl.Tabs
> ctl.TabCaption( Index) =
> objLocalizer.Ge tResourceString (CInt(ctl.TabCa ption(Index)))
> Next Index
> ElseIf sCtlType = "ActiveBar" Then
> Dim i As Integer
> Dim J As Integer
> Dim BandCount As Integer
> Dim ToolsCount As Integer
> BandCount = ctl.Bands.Count
> For i = 0 To BandCount
> ToolsCount = ctl.Bands(Index ).Tools.Count
> For J = 0 To ToolsCount
> nVal = 0
> nVal = Val(ctl.Bands(i ).Tools(J).Tag)
> If nVal > 0 Then
> ctl.Bands(i).To ols(J).Caption =
> objLocalizer.Ge tResourceString (nVal)
> End If
> nVal = 0
> nVal = Val(ctl.Bands(i ).Tools(J).Tool TipText)
> If nVal > 0 Then
> ctl.Bands(i).To ols(J).ToolTipT ext =
> objLocalizer.Ge tResourceString (nVal)
> End If
> Next J
> Next i
> Else
> nVal = 0
> nVal = Val(ctl.Tag)
> If nVal > 0 Then ctl.Caption =
> objLocalizer.Ge tResourceString (nVal)
> nVal = 0
> nVal = Val(ctl.ToolTip Text)
> If nVal > 0 Then ctl.ToolTipText =
> objLocalizer.Ge tResourceString (nVal)
> End If
> Next
>
>
>
>
>
> When the same code is to be converted to Visual Basic 2005, i would
> like to know how to access
> 1. ctl.HeaderFont in case of "ctList"
> 2. ctl.ColumnCount in case of "ctList"
> 3. ctl.ColumnText( Index) in case of "ctList"
> 4. ctl.Tabs in case of ctl is a SSTab
> 5. ctl.TabCaption( Index) in case of a Tab in SSTab
>
> Any Help in this regard would be appreciated
>
>
> Thanks in advance,
> Sugan
>[/color]