[已解决]窗体中：在上一个命令按扭处按回车键后光标如何能跳到下一个命令按扭处

csmctjg · 发表于 2010-9-15 09:24

窗体中的命令按扭如何设置成如下效果：在上一个命令按扭处按回车键后跳到下一个命令按扭。

如附件中在“添加”命令按扭处按了回车键后光标仍在“添加”命令按扭处，而不能跳到下一个命令按扭----“重置”命令按扭处。

wfPlrKxd.rar (18.12 KB, 下载次数: 9)

csmctjg · 发表于 2010-9-15 09:25

菜鸟求教高手了！

那么的帅 · 发表于 2010-9-15 09:37

命令按钮上按回车键的操作时执行命令按钮的单击事件。

可以用TAB键完成命令按钮的切换。

搁浅2008 · 发表于 2010-9-15 09:41

Private Sub CommandButton1_Click()
Dim a As Integer
a = Range("a1040000").End(xlUp).Row + 1
Sheets("sheet1").Range("a" & a) = TextBox1.Text
Sheets("sheet1").Range("b" & a) = TextBox2.Text
Sheets("sheet1").Range("c" & a) = TextBox3.Text
Sheets("sheet1").Range("d" & a) = TextBox4.Text
CommandButton2.SetFocus
End Sub

后边加一句CommandButton2.SetFocus

那么的帅 · 发表于 2010-9-15 09:44

Private Sub CommandButton1_Click()
  Dim a As Integer
  a = Range("a1040000").End(xlUp).Row + 1
  Sheets("sheet1").Range("a" & a) = TextBox1.Text
  Sheets("sheet1").Range("b" & a) = TextBox2.Text
  Sheets("sheet1").Range("c" & a) = TextBox3.Text
  Sheets("sheet1").Range("d" & a) = TextBox4.Text
  CommandButton2.SetFocus  '加上此句代码
End Sub

Private Sub CommandButton2_Click()
  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox3.Text = ""
  TextBox4.Text = ""
  TextBox1.SetFocus  '加上此句代码
End Sub

eaU8OON4.rar (17.21 KB, 下载次数: 27)

fjmxwrs · 发表于 2010-9-15 09:52

按你的文件写了一个。达到你的要求。

BuS29yrE.rar (10.91 KB, 下载次数: 38)

csmctjg · 发表于 2010-9-15 09:58

谢谢大家啦！

fjmxwrs · 发表于 2010-9-15 10:06

这个最佳答案由 fjmxwrs 给出，感谢 fjmxwrs 的回答。

单击隐藏图章

再进行修改，增加自动加边框，选择输入性别两项，键盘直接操作

gqnF38GW.rar (11.2 KB, 下载次数: 98)

csmctjg · 发表于 2010-9-15 10:10

谢谢大家，我在自学摸索，碰到问题常来请教。

叶定明 · 发表于 2013-7-4 16:28

十万分感谢！

		自动登录	找回密码
密码			注册