Public Sub Form_KeyPress()
Me.Caption = Key.Shortcut
End
:ciao:
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:
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