如何实现vb中按回车控件焦点向下一个按tab顺序下移

Question

如何实现vb中按回车控件焦点向下一个按tab顺序下移

Answer 1

http://www.cdjiafu.com/pph/dispbbs.asp?BoardID=3&replyID=2906&ID=991&skin=1

Answer 2

form的KeyPreview设为true
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if (key = #13)  then
      begin
        SelectNext(ActiveControl, true, true);
      end;
end;

Answer 3

同上修正
if key=#13 then
    if not (activecontrol is tdbgrid) then
      begin
        key:=#0;
        perform(WM_NEXTDLGCTL,0,0);
      end
    else if (activecontrol is tdbgrid) then
       begin
         with tdbgrid(activecontrol) do
         if selectedindex < (fieldcount-1) then
         selectedindex:=selectedindex+1
         else selectedindex:=0;
       end;

Answer 4

你可以这样
***************************************************
procedure TForm1.目前的控键KeyPress(...........);
begin
   if (key = #13)  then
      目标控键名称.SetFocus;      
end;
***************************************************
有问题可以和我在联系！！！！

Answer 5

很简单，VB代码如下
设置form的KeyPreview属性为true
form的KeyDown事件中写下：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
   SendKeys "{tab}+{home}"
End If
End Sub