Good day/night friends!

I have to move on the fields in DW by key enter, not tab. It's not standart 
DW's behavior, so I extended user event ue_keydown from predefined PB's 
pbm_dwnkey event and put follow code into it.

/***********/
if key = keyenter! then
        this.event ue_keydown(keytab!, 0)
end if

if key = keytab! then
        messagebox("", "bla bla")//this line for test purpose only
end if
/***********/
As I see this script works (the message displays)when I stroke key enter, 
but the cursor dosent move to the next field in DW.
I cant use the setcolumn() function for that DW cause I have dynamic number 
of   fields, for example 4 in the first row, 6 in the second one and etc.

Please help to solve this problem.
Thank you for any help.

You must simulate Tab pressing via WinAPI function keybd_event.
there is declaratioon of this function in global external functions section:

subroutine keybd_event(char bVk, char bScan, long dwFlags, long dwExtraInfo)
library "user32.dll";

And there is script for simulation Tab (you must simulate also key release):

IF Key = KeyTab! THEN
  keybd_event(char(9),char(0),0,0)  // VK_TAB key down
    //KEYEVENTF_KEYUP = 2
  keybd_event(char(9),char(0),KEYEVENTF_KEYUP,0)  // VK_TAB key up
END IF

for more information about WinAPI, see MSDN (http://msdn.microsoft.com)

<Dmitry_Kovtun> wrote in message
news:F7526AC2B916A37500208EDE85256BCF.00208EEE85256BCF@webforums...
> Good day/night friends!
>
> I have to move on the fields in DW by key enter, not tab. It's not
standart
> DW's behavior, so I extended user event ue_keydown from predefined PB's
> pbm_dwnkey event and put follow code into it.
>
> /***********/
> if key = keyenter! then
>         this.event ue_keydown(keytab!, 0)
> end if
>
> if key = keytab! then
>         messagebox("", "bla bla")//this line for test purpose only
> end if
> /***********/
> As I see this script works (the message displays)when I stroke key enter,
> but the cursor dosent move to the next field in DW.
> I cant use the setcolumn() function for that DW cause I have dynamic
number
> of   fields, for example 4 in the first row, 6 in the second one and etc.
>
> Please help to solve this problem.
> Thank you for any help.

On Wed, 5 Jun 2002 10:24:24 +0300, "AlExis Glinski" <alexis@st.by>
wrote:

>You must simulate Tab pressing via WinAPI function keybd_event.
>there is declaratioon of this function in global external functions section:
>
>subroutine keybd_event(char bVk, char bScan, long dwFlags, long dwExtraInfo)
>library "user32.dll";
>
>And there is script for simulation Tab (you must simulate also key release):
>
>IF Key = KeyTab! THEN
>  keybd_event(char(9),char(0),0,0)  // VK_TAB key down
>    //KEYEVENTF_KEYUP = 2
>  keybd_event(char(9),char(0),KEYEVENTF_KEYUP,0)  // VK_TAB key up
>END IF
>
>for more information about WinAPI, see MSDN (http://msdn.microsoft.com)
>

Also, you need to put this code in the pbm_dwnprocessenter event, and
return 1 to prevent the default processing (which is to scroll to the
next row).

Simon

> >IF Key = KeyTab! THEN
> >  keybd_event(char(9),char(0),0,0)  // VK_TAB key down
> >    file://KEYEVENTF_KEYUP = 2
> >  keybd_event(char(9),char(0),KEYEVENTF_KEYUP,0)  // VK_TAB key up
> >END IF

....
IF Key = KeyEnter! THEN
....
of course ;)

> Also, you need to put this code in the pbm_dwnprocessenter event, and
> return 1 to prevent the default processing (which is to scroll to the
> next row).
>
> Simon
>

Try this:

Send (Handle(this), 256, 9, 0)



<Dmitry_Kovtun> escreveu na mensagem
news:F7526AC2B916A37500208EDE85256BCF.00208EEE85256BCF@webforums...
> Good day/night friends!
>
> I have to move on the fields in DW by key enter, not tab. It's not
standart
> DW's behavior, so I extended user event ue_keydown from predefined PB's
> pbm_dwnkey event and put follow code into it.
>
> /***********/
> if key = keyenter! then
>         this.event ue_keydown(keytab!, 0)
> end if
>
> if key = keytab! then
>         messagebox("", "bla bla")//this line for test purpose only
> end if
> /***********/
> As I see this script works (the message displays)when I stroke key enter,
> but the cursor dosent move to the next field in DW.
> I cant use the setcolumn() function for that DW cause I have dynamic
number
> of   fields, for example 4 in the first row, 6 in the second one and etc.
>
> Please help to solve this problem.
> Thank you for any help.

"AlExis Glinski" <alexis@st.by.NOSPAM> wrote in message
news:PGDjlyHDCHA.81@forums.sybase.com...
> > >IF Key = KeyTab! THEN
> > >  keybd_event(char(9),char(0),0,0)  // VK_TAB key down
> > >    file://KEYEVENTF_KEYUP = 2
> > >  keybd_event(char(9),char(0),KEYEVENTF_KEYUP,0)  // VK_TAB key up
> > >END IF
>
> ...
> IF Key = KeyEnter! THEN
> ...
> of course ;)
>

No, it needs to go in the processenter event, in which case the check for
keyEnter! is redundant.  Otherwise, you'll still get the default behaviour.

--
All views expressed in this message are my own and not necessarily those of
my employer

This is the method I use:

Create a user event for your datawindow called 'ue_enter' based on
pbm_dwnprocessenter.  Put the following code in the event:

Send( Handle(This), 256, 9, Long(0,0) )      // Sends message to process the
TAB key
RETURN 1                                              // Ignore processing
the ENTER key


<Dmitry_Kovtun> wrote in message
news:F7526AC2B916A37500208EDE85256BCF.00208EEE85256BCF@webforums...
> Good day/night friends!
>
> I have to move on the fields in DW by key enter, not tab. It's not
standart
> DW's behavior, so I extended user event ue_keydown from predefined PB's
> pbm_dwnkey event and put follow code into it.
>
> /***********/
> if key = keyenter! then
>         this.event ue_keydown(keytab!, 0)
> end if
>
> if key = keytab! then
>         messagebox("", "bla bla")//this line for test purpose only
> end if
> /***********/
> As I see this script works (the message displays)when I stroke key enter,
> but the cursor dosent move to the next field in DW.
> I cant use the setcolumn() function for that DW cause I have dynamic
number
> of   fields, for example 4 in the first row, 6 in the second one and etc.
>
> Please help to solve this problem.
> Thank you for any help.

Add these 2 line of code to the pbm_dwnprocessenter event

Send(Handle(this),256,9,Long(0,0))
return 1


Then remove your pbm_keydown event.


<Dmitry_Kovtun> wrote in message
news:F7526AC2B916A37500208EDE85256BCF.00208EEE85256BCF@webforums...
> Good day/night friends!
>
> I have to move on the fields in DW by key enter, not tab. It's not
standart
> DW's behavior, so I extended user event ue_keydown from predefined PB's
> pbm_dwnkey event and put follow code into it.
>
> /***********/
> if key = keyenter! then
>         this.event ue_keydown(keytab!, 0)
> end if
>
> if key = keytab! then
>         messagebox("", "bla bla")//this line for test purpose only
> end if
> /***********/
> As I see this script works (the message displays)when I stroke key enter,
> but the cursor dosent move to the next field in DW.
> I cant use the setcolumn() function for that DW cause I have dynamic
number
> of   fields, for example 4 in the first row, 6 in the second one and etc.
>
> Please help to solve this problem.
> Thank you for any help.