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

Citazione da: Gianluigi - 15 Dicembre 2023, 23:55:10

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

Citazione da: Gianluigi - 16 Dicembre 2023, 16:10:34

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: