[Gambas-user] Recond question for TextBox only accepts alphabetic and numbers

[Hasan Merkit]

This code is working fine:

Public Sub CheckInput(sAllowed As String)
  Select Case Key.Code
    Case Key.Left, Key.Right, Key.BackSpace, Key.Delete, Key.End, Key.Home, Key.Enter, Key.Return, Key.ControlKey
      Return
    Default
      If Key.Text And If InStr(sAllowed, Key.Text) Then
         Return
      Endif
  End Select
  Stop Event
End

But CTRL + A no longer working for selecting all texts.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20210510/acf3f557/attachment.htm>