How to use left function in VB2005

[emsik1001]

Hi

I want to change ForeColor but only for control names starting with letters lbl


I've got something like this

Dim x as control

For each x in controls

' how can I use function left in here to check only the first three letters?see below

If left(x.name,3) = "lbl" then 'this of course doesn't work
x.forecolor = color.orange
End if
Next

Many thanks in advance

[kadghar]

Hi
' how can I use function left in here to check only the first three letters?see below

If left(x.name,3) = "lbl" then 'this of course doesn't work
x.forecolor = color.orange
End if
Next

Many thanks in advance

yeah, some sintax changes =( so sad
use mid(x.name,1,3)
HTH

[Killer42]

What, they've removed the Left() function in VB2005? That's a little disappointing.

[mafaisal]

hello

I think
this is working by importing microsoft.visua lbasic

Microsoft.Visua lBasic.Strings. left(x.name,3)

Hi

I want to change ForeColor but only for control names starting with letters lbl


I've got something like this

Dim x as control

For each x in controls

' how can I use function left in here to check only the first three letters?see below

If left(x.name,3) = "lbl" then 'this of course doesn't work
x.forecolor = color.orange
End if
Next

Many thanks in advance

[emsik1001]

Thanks for that, I think I will just use mid instead :)

Just wondering does VB8 have right function?

[emsik1001]

Now I have also a different problem,

For some reason when I use For each x in controls (on everything) it is omitting some controls.

The only thing I found is that I have change the forecolor in them but there are still the same (controltext) only there are in bold in the properties pane for some reason.

So if I change a forecolor property (originally controltext (not in bold)) to different one and back to original it is bold and it stops working with the for each x in controls??????? ???????????

[Killer42]

I'm afraid I didn't follow you very well, there. But are you sure they're not just being processed in a different sequence to what you expect?

[QVeen72]

For some reason when I use For each x in controls (on everything) it is omitting some controls.

Controls that are placed on the Containers like (Frame, GroupBox or Picture Box) are Omitted, they are not Part of the Form's Controls Group.
In such cases, you have to first loop thru all the Frames, Change the properties of these child controls .. some thing like this :

[code=vbnet]
Dim ctl As System.Windows. Forms.Control
Dim ctl1 As System.Windows. Forms.Control
'
For Each ctl In Me.Controls
If VB.Left(ctl.Nam e, 5) = "Label" Then
ctl.ForeColor = Me.ForeColor
ElseIf VB.Left(ctl.Nam e, 5) = "Frame" Then
For Each ctl1 In ctl.Controls
ctl1.ForeColor = Me.ForeColor
Next
End If
Next ctl
[/code]

Note I have Imported Visual Basic:

Imports VB = Microsoft.Visua lBasic

Regards
Veena