Read Only Form

[HDSoftware]

Heisan.

 

Jeg har en FORM som viser innholdet i en record. Når denne formen startes så setter jeg en property som skal fortelle formen hvordan innholdet skal behandles og hva som skal stå på selve vindu headingen

 

En av statusese formen kan ha er ReadOnly. I Clarion kan jeg dermed gjøre noe slik:

 

Loop i# = FirstField() to LastField()
 i#{PROP:Disabled} = TRUE
End!Loop
?btnOK{PROP:Disabled} = False

 

Dette betyr at loopen går igjennom ALLE kontroller på vinduet og setter propertien ReadOnly til TRUE for så å oppheve OK knappen. Formen jeg skal gjøre dette på har MANGE kontroller av forskjellig art og er fordelt på tab sheets. Er det en enkel måte å gjøre dette i VB2005?

 

 

MVH

Ole

[GeirGrusom]

Du kan jo gjøre det samme som i Clarion,

 

Public Sub SetControlState(state As Boolean)
 For Each Control ctrl In Me.Controls
   ctrl.Enabled = state
 Next
 btnOk.Enabled = True
End Sub

 

Hvis en TabControl blir disabled, kan du ikke bruke den lenger, og dermed ikke endre innholdet i noen av tabene.

Endret 12. oktober 2006 av GeirGrusom

[HDSoftware]

Du kan jo gjøre det samme som i Clarion,

 

Public Sub SetControlState(state As Boolean)
 For Each Control ctrl In Me.Controls
   ctrl.Enabled = state
 Next
 btnOk.Enabled = True
End Sub

 

Hvis en TabControl blir disabled, kan du ikke bruke den lenger, og dermed ikke endre innholdet i noen av tabene.

7055856[/snapback]

 

AHHHH!! Perfekt!!

 

For Each kan vist brukes til mer en bare lese i lister ;-) Eller me.Controls er kansje en liste?

 

 

Ole

[GeirGrusom]

For each kan bruke i alt som implementerer IEnumerator interface, som er:

Arrays, Collection, List, LinkedList, Queue, Stack... pluss pluss.

Du kan implementere det også i dine egne klasser, så fungerer For Each på dem også

[HDSoftware]

For each kan bruke i alt som implementerer IEnumerator interface, som er:

Arrays, Collection, List, LinkedList, Queue, Stack... pluss pluss.

Du kan implementere det også i dine egne klasser, så fungerer For Each på dem også

7057356[/snapback]

 

Genialt!! Gjett om jeg har savna den i Clarion ;-)

 

Ole