21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
21 lines
339 B
Text
21 lines
339 B
Text
' Gambas class file
|
|
|
|
Public Sub _new(Message As String)
|
|
|
|
txaMesage.Text = Message
|
|
|
|
End
|
|
|
|
Public Sub Form_KeyPress()
|
|
|
|
If Key.Code = Key.Esc Then Me.Close()
|
|
|
|
End
|
|
|
|
Public Sub txaMesage_KeyPress()
|
|
|
|
If Key.Code = 81 Then '81 is q (in lowercase)
|
|
If Key.Alt Then txaMesage.Text &= "\n\n\n" & modMain.$Connection.MySQL.Query
|
|
Endif
|
|
|
|
End
|