Textbox in Form and Passing Control Focus.

[knowbodynow]

Hello, I have a modeless box containing a text field I'd like it so that after a number is entered into the textbox and enter is pressed control is returned to the main CorelDraw application (I'm using version 12). This is the code I have for the text box (named mmMove):

Private Sub mmMove_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc(13)
        BringWindowToTop AppWindow.Handle
    Case Else
        KeyAscii = 0
        BringWindowToTop AppWindow.Handle
End Select
End Sub

This limits the textbox to receiving numbers and if a non-number key is pressed then CorelDraw resumes focus. The bit that's not working is when I press Enter. This doesn't hand control back to CorelDraw. Instead of Case Asc(13) I've also tried Case AscW(13) and Case vbKeySpace, but they haven't worked. How can I pass control back to CorelDraw when Enter is pressed from the textbox?

Thanks,

Chris (Hunt)

[SteveDude]

Don't use VBA that much, but did you try the API SetActiveWindow? Is KeyAscii returned as 13 on KeyPress? I had some problems with this in X4 (Never did in 12), but got around them by displaying dialogs via the API instead of using VB 6's .Show.

[knowbodynow]

Thanks for the reply. I don't know anything about API SetActiveWindow. How can I use it?

Chris

[Alex]

You shouldn't be using Asc(13). 13 is already a character code. If you do this, VBA would convert your number 13 into a string "13" and then get the character code of the first letter "1".

You should just put

Case 13
         ...

Alex

[knowbodynow]

Hi Alex, I tried that but it doesn't work. Perhaps something is wonky with my installation.

Chris