/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
objControl.Enabled = True
Fra : Thong Tri Nguyen


Dato : 06-12-00 19:27

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 (07-12-2000)
Kommentar
Fra : Niels G


Dato : 07-12-00 12:23

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




Tomas Christiansen (07-12-2000)
Kommentar
Fra : Tomas Christiansen


Dato : 07-12-00 14:36

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



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste