---

lige en hurtig spørgsmål ....hvor virker det her ikke

Dim objControl as Control

For Each objControl In Form1.Controls

objControl.Enabled = True

Next

/thong

---

Umiddelbart virker kode godt nok. Problemet er at ikke alle kontroller har
Enabled propertien.
Dette kan forkommer bl. a. på UserControls, da disse ikke er født med
Enabled propertien.

Man kan komme uden om problemet på to måder. Den nemmest og pæneste måde er
at tilføje Enabled propertien til UserControlen. Men dette er jo ikke altid
muligt (hvis kontollen
fx. ligger i en ocx man ikke har kontrol over), så man kan blive nødsaget
til at sætte en if sætning
om tildelingen.

Dim objControl as Control
For Each objControl In Form1.Controls
If TypeName(objControl) <> "UserControl1" Then
objControl.Enabled = False
End If
Next

MVH
Niels

"Thong Tri Nguyen" <thong@kampsax.dtu.dk> wrote in message
news:90m09e$cv2$1@eising.k-net.dk...
> lige en hurtig spørgsmål ....hvor virker det her ikke
>
> Dim objControl as Control
>
> For Each objControl In Form1.Controls
>
> objControl.Enabled = True
>
> Next
>
> /thong

---

Niels G skrev:
> Dim objControl as Control
> For Each objControl In Form1.Controls
> If TypeName(objControl) <> "UserControl1" Then
> objControl.Enabled = False
> End If
> Next

Alternativt, hvis man vil have det til at virke altid, uden at skulle rette
i sin kode hver gang, man støder ind i en ny kontrol, som ikke har enabled
egenskaben:

On Error Resume Next
Dim objControl as Control
For Each objControl In Form1.Controls
objControl.Enabled = False
Next

(jeg siger ikke at det er pænt - men at det virker)
-------
Tomas