可用分押宝游戏火热进行中...	专题改版：Java Web 专题

在线急等！怎么样是button按钮失去焦点！

楼主wang7655（寂寞夜归人）2004-08-02 14:43:46 在 VB / 基础类提问

怎么样是button按钮失去焦点！

哪个有好的方法吗？？

我发觉没这个属性啊！问题点数：20、回复次数：12Top

1 楼LGYAN（紫衣随想）回复于 2004-08-02 14:50:19 得分 0

不是使Button失去焦点，

你窗体上还有别的控件，可以获取得焦点吗？

使用别的控件的SetFocus方法吧

注意：你的Button的Default和Cancel属性应为falseTop

2 楼adamcn（adamcn）回复于 2004-08-02 14:53:40 得分 0

你让别的控件获得焦点不就行了Top

3 楼wang7655（寂寞夜归人）回复于 2004-08-02 14:53:55 得分 0

我有别的控件啊！

但是，我的BUTTON按钮上写的是数字！

有三个TEXT框，我需要，焦点在不同的TEXT上的时候，按数字BUTTON，在不同的TEXT里面输入不同的数字，可是我每次按BUTTON的时候，焦点就跑到BUTTON上了，不是TEXT上了，所以没有办法输入数字！Top

4 楼of123（）回复于 2004-08-02 15:06:16 得分 20

将 3 个 TEXT 做成数组。在通用段：
Dim myIndex As Integer

Private Sub TEXT1_GotFocus(Byval Index As Integer)
myIndex = myIndex
End Sub

最好将你的按钮也做成数组：
Private Sub Button1_Click(Byval Index As Integer)
TEXT1(myIndex) = TEXT1(myIndex) & Button1(Index).Caption
TEXT1(myIndex).SetFocus
End Sub
Top

5 楼starsoulxp（星魂）回复于 2004-08-02 15:06:19 得分 0

//有三个TEXT框，我需要，焦点在不同的TEXT上的时候，按数字BUTTON，在不同的TEXT里面输入不同的数字，可是我每次按BUTTON的时候，焦点就跑到BUTTON上了，不是TEXT上了，所以没有办法输入数字！

---------------------------------
我有点晕

-----------------------------------
Private Sub cmd1_Click()
Text1.Text=cmd1.Caption
End Sub

其他的按钮同理，如果按钮很多的话用控件数组。Top

6 楼rainstormmaster（暴风雨 v2.0）回复于 2004-08-02 15:07:44 得分 0

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = Command1.Caption
End SubTop

7 楼starsoulxp（星魂）回复于 2004-08-02 15:08:09 得分 0

8 楼honght（）回复于 2004-08-02 15:10:17 得分 0

在按钮的Click事件里
TEXT.SetFocus
TEXT.SelStart=len(TEXT.Text)Top

9 楼ryuginka（一米八五的猪）回复于 2004-08-02 15:10:22 得分 0

给别的控件SETFOCUS不就好了吗?Top

10 楼wang7655（寂寞夜归人）回复于 2004-08-02 15:20:27 得分 0

这样好控制吗？

我是把按扭作成那种电话号码的样子，然后，左边有三个TEXT控件~！

也就是做，在不同的TEXT里面，我按按钮，需要输入数字！

问题是，我需要在按那些数字按钮的时候，让焦点还是在TEXT框上，而不是在BUTTON上！

这个，我就可以随着TEXT框的焦点改变，而输入的数字可以放在不同的TEXT里面！Top

11 楼wang7655（寂寞夜归人）回复于 2004-08-02 15:50:36 得分 0

好了，我按照数组的方式解决了！

谢谢，结帐咯Top

12 楼tyro1（栖息的飞鸟）回复于 2004-08-02 16:13:04 得分 0

不明白，在command_click事件里，text1.setfocus不能让text取得焦点么？然后可以输入数字啦。
我这样理解：比如在第一个文本框输入区号，第二个输入电话号码，
private sub command1_click()
dim i%
i=len(text1.text)
if i>4 then
text2.setfocus
text2.selstart=len(text2.text)
text2.text=text2.text+command1.caption
else
text1.setfocus
text1.selstart=len(text1.text)
text1.text=text1.text+command1.caption
end if
end sub
不知道楼主的意思是不是这个？Top