Globale variabele?

[TimCallebaut]

Ik wil een getal uit een textvak declareren als een globale variabele om het in een tweede formulier te kunnen gebruiken. Voor de duidelijkheid: wanneer deze waarde verandert, moet de nieuwe waarde ook meteen megegeven worden.

Specifieker: ik wil een getal in een textvak kunnen gebruiken in een progressbar in een tweede formulier.

 

[That Guy]

maak een module en stop er deze code in, OF zet deze code helemaal bovenaan in 1 formulier (die van de textbox bijvoorbeeld):

Public lGetal as long

en in je textvak, omdat het 'instant' moet veranderen:

Private sub text1_change()
   lGetal = Clng(val(text1.text))
end sub

zoiets moet werken.


[edit] Wat je ook kan doen, is zonder variabele werken, en de value gelijk doorgeven. Dat doe je door zoiets te doen:

Private sub text1_change()
   FormWithProgressBarOnIt.ProGressBarObject.valueProperty = val(text1.text)
[COLOR="SeaGreen"]'je krijgt dan zoiets:
'   Form2.progressbar.value = val(text1.text)[/COLOR]
end sub

[/edit]