设置焦点失败的问题。

hktkzyz

我想在TextBox4的exit事件后，如果是正整数，则使ScrollBar1的值产生变化，然后再将焦点返回给textbox4，但是运行后不能返回到textbox4，如设焦点到无关的textbox5则可以，请问：
1、为什么?
2、应该怎么做?（不要设cancel=true，因为我还想通过变化ScrollBar1的值来相应改变textbox4的值）

另外，如果我在textbox4中输入的不是正整数，我设置了弹出msgbox“请输入0至100内的正整数！”，我使用了cancel=true，这时我点x号关闭窗口时，还会再弹出msgbox“请输入0至100内的正整数！”，
我知道是因为点x号也会响应textbox4的exit事件，那请问

3、如何避免这种情况?（也就是说当点x号时，不是相当于unload me，而是相当于end，该如何做?）

yyyydddd8888

期待高手解决！

孔梦茵

好好学习

sliang28

TextBox的获取焦点属性对在自身事件中不起作用。
不太明白你什么意思，我小动一下，你看看是不是满足你的要求。

hktkzyz

感谢4楼老师指出问题所在，我在另一个贴子中也看到兰版说“TextBox的获取焦点属性对在自身事件中不起作用。”但是你的改动我动行了一下，和原来的一样啊，我也在ScrollBar1_Change里设置过获取焦点，是不成功的。因为ScrollBar1_Change也是在textbox4的exit中激活的。
继续期待

hktkzyz

经过别人的帮助已解决，跟大家分享一下。
1、可能因为TextBox的获取焦点属性对在自身事件中不起作用。
2、设一个全局变量，另加一个判断来设置cancel=true：
     dim s
     ............
     If TextBox4.Value <> s Then Cancel = True: s = TextBox4.Value
     .............
     以此达到当textbox4不发生变化时，焦点可转移，而发生变化时，则阻止转移。
3、在UserForm_QueryClose事件中，设当closemode值=0时，end。
    If CloseMode = 0 Then End