Gambas-it

Gambas dal mondo esterno => Spagna => Topic aperto da: vuott - 15 Dicembre 2023, 22:15:25

Titolo: Non riesco a intercettare l'evento _KeyPress()
Inserito da: vuott - 15 Dicembre 2023, 22:15:25
https://gambas-es.org/showthread.php?tid=1573
Titolo: Re:Non riesco a intercettare l'evento _KeyPress()
Inserito da: Gianluigi - 15 Dicembre 2023, 23:55:10
Codice: [Seleziona]
Public Sub Form_KeyPress()

  Me.Caption = Key.Shortcut

End

 :ciao:
Titolo: Re:Non riesco a intercettare l'evento _KeyPress()
Inserito da: Gianluigi - 16 Dicembre 2023, 16:10:34
Codice: [Seleziona]
Public Sub Form_KeyPress()

  Me.Caption = Key.Shortcut

End

 :ciao:

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
Titolo: Re:Non riesco a intercettare l'evento _KeyPress()
Inserito da: vuott - 16 Dicembre 2023, 18:35:00
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 !   :rotfl: