c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 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
|