Inherited TextBox control

[Ralph]

Hello:

I'm trying to build a custom inherited control that changes location and
size on the screen when the user presses F1 and returns to it's original
size and location when the user presses ESC but I can't figure out what
fires when the control loads.

This worked with a user control but that has a load even that alows me to
store the original location in a variable.

Dim OrigLoc As Point
Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As
Boolean
MyBase.ProcessDialogKey(keyData)

If keyData = Keys.F1 Then
OrigLoc = Me.Location
Me.Location = New Point(0, 0)
Me.Size = New Size(686, 326)
PopText.Size = New Size(686, 326)
End If
If keyData = Keys.Escape Then
Me.Size = New Size(450, 20)
Me.Location = OrigLoc
End If
End Function

TIA

Ralph

[Bob]

Ralph:

Hmmm. I tried to replicate your issue but it seemed to work fine for me.

Sometimes things have to be refreshed.

Remove the control from you form and from your customize toolbox list, Close
both your control project and your destination project. Delete the
popuptextbox.dll and popuptextbox.pdb file from the bin folder in your
destination project. Readd the control to your Cutomize toolbox list and add
it to your form in your destination project. It should work

I even took the liberty of modifyinh your control so that it will also
return to it's original size when ESC is pressed

Dim OrigLoc As Point
Dim OrigSize As Size
Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As
Boolean
MyBase.ProcessDialogKey(keyData)
If keyData = Keys.F1 Then
OrigLoc = Me.Location
OrigSize = Me.Size
Me.Location = New Point(0, 0)
Me.Size = New Size(686, 326)
End If
If keyData = Keys.Escape Then
Me.Location = OrigLoc
Me.Size = OrigSize
End If
End Function

Hope this helps

Bob