23 lines
232 B
Text
23 lines
232 B
Text
|
' Gambas class file
|
||
|
|
|
||
|
|
Export
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub WebButton1_Click()
|
||
|
|
|
||
|
|
Message("This is a message box.")
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub WebTimer1_Timer()
|
||
|
|
|
||
|
|
WebLabel1.Text = Format(Now, "hh:nn:ss")
|
||
|
|
|
||
|
|
End
|
||
|
|
|
||
|
|
Public Sub WebForm_Open()
|
||
|
|
|
||
|
|
WebTimer1_Timer
|
||
|
|
|
||
|
|
End
|