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

[cc莫默]

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

[hongqi162]

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

[jakefj]

同上修正
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;

[lgqTiger]

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

[haplake]

很简单，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

[SeaWave]

这里是DELPHI版。

[sanjianxia]

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