c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
44 lines
671 B
Text
44 lines
671 B
Text
' Gambas class file
|
|
|
|
Public myThing As CThing
|
|
|
|
Public Sub btnCreateThing_Click()
|
|
|
|
myThing = New CThing
|
|
|
|
With mything
|
|
.Name = "Dummy-Thing"
|
|
.X = 11
|
|
.Y = 22
|
|
.ID = 33
|
|
End With
|
|
|
|
txtCheckResult.Visible = True
|
|
|
|
End
|
|
|
|
Public Sub btnCheckThing_Click()
|
|
|
|
If myThing Then
|
|
|
|
With mything
|
|
txtCheckResult.Text = Subst("&1, X= &2, Y= &3, ID= &4", .Name, .X, .Y, .ID)
|
|
End With
|
|
|
|
Else
|
|
Message.Warning(("You need to create the Thing first!"))
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub btnDestroy_Click()
|
|
|
|
If Not mything Then
|
|
Message.Warning(("You need to create the Thing first!"))
|
|
Return
|
|
Endif
|
|
|
|
myThing = Null
|
|
txtCheckResult.Visible = False
|
|
|
|
End
|