Non riesco a intercettare l'evento _KeyPress()

[vuott]

https://gambas-es.org/showthread.php?tid=1573

[Gianluigi]

Codice: [Seleziona]

Public Sub Form_KeyPress()

  Me.Caption = Key.Shortcut

End

 

[Gianluigi]

Codice: [Seleziona]

Public Sub Form_KeyPress()

  Me.Caption = Key.Shortcut

End

 

Vorreste forse insinuare che il mio codice era un tantino criptico? Ma non era questo lo spirito di una volta! Comunque:

Codice: [Seleziona]

Private $sCaption As String

Public Sub Form_Open()

  Dim hArea As TextArea
  Dim hEdit As TextEdit

  With Me
    .Arrangement = Arrange.Horizontal
    .Margin = True
    .Spacing = True
  End With
  With hArea = New TextArea(Me) As "TextArea1"
    .Expand = True
  End With
  With hEdit = New TextEdit(Me) As "TextEdit1"
    .Expand = True
  End With
  TextArea1_Enter

End

Public Sub TextArea1_Enter()
  
  $sCaption = "TextArea1"
  
End

Public Sub TextEdit1_Enter()
  
  $sCaption = "TextEdit1"
  
End

Public Sub Form_KeyPress()
  
  Me.Text = $sCaption & " " & Key.Shortcut
  
End

[vuott]

Vorreste forse insinuare che il mio codice era un tantino criptico? Ma non era questo lo spirito di una volta!

Sembra quasi che parli da solo !