shortcircuit
New member
- Joined
- Dec 20, 2004
- Messages
- 3
- Programming Experience
- 10+
'how can i access this class, without putting a timer of the form, i.e the form 'loads and continues to read label.text
PrivateClass clock
Inherits Time
PublicFunction systemtime()
IfMe.Enabled = FalseThen
Me.Interval = 500
Me.Enabled = True
EndIf
systemtime = Now.Second
EndFunction
PrivateSub Test_Tick(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.Tick
systemtime()
EndSub
EndClass
FriendClass Count
Dim test AsNew clock
Dim timer1 AsNew clock
PublicFunction displaytime() AsString
displaytime = timer1.systemtime
EndFunction
EndClass
PrivateSub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim test AsNew Count
Label1.Text = test.displaytime() 'this only happens once
EndSub
EndClass
'is there a way of running this class and passing the data to the label withing the timer class?
PrivateClass clock
Inherits Time
PublicFunction systemtime()
IfMe.Enabled = FalseThen
Me.Interval = 500
Me.Enabled = True
EndIf
systemtime = Now.Second
EndFunction
PrivateSub Test_Tick(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.Tick
systemtime()
EndSub
EndClass
FriendClass Count
Dim test AsNew clock
Dim timer1 AsNew clock
PublicFunction displaytime() AsString
displaytime = timer1.systemtime
EndFunction
EndClass
PrivateSub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim test AsNew Count
Label1.Text = test.displaytime() 'this only happens once
EndSub
EndClass
'is there a way of running this class and passing the data to the label withing the timer class?