/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408825
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.