Question

VBA，EXCEL 我有一个按钮一个文本框，如何按了按钮以后焦点回到文本框？

我查了一下，使用SetFocus属性就可以，但是提示没有改属性，还有别的方法可以实现吗

Answer 1

窗体里吗？如果是，在按键click里加textbox1.setfocus 即可。

追问

没有这个属性，不认这个属性的

追答

传到qq28540685,我来弄

追问

我做的是工控的，ifix软件，不是excel。上传不安装也不能用

追答

vba的基础是vb而不是excel，所以，setfocus是有的。你可以先看一下textbox1有没有setfocus这个方法。

追问

嗯。这个我知道，但是好像这个工控软件限制了这个属性，把文本框放到这个里面没有这个属性，但是在vba里面就存在

追答

那帮不了你了。这两个api可以做，但我不知道怎么查到textbox1的Hwnd，你可以研究一下。
Public Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

追问

好的！谢谢了！我用别的办法实现了！

Answer 2

Me.TextBox1.Activate

追问

也不行啊，这个属性也不行。其实我不是在EXCEL中用VBA，不过这个软件的后台也是vba代码。请问还有别的办法吗？

追答

EXCEL里的控件，用Activate可以
窗体里的，用SetFocus应该可以

不知你是什么情况，所以没法建议

追问

好的，谢谢