易截截图软件、单文件、免安装、纯绿色、仅160KB

vb textbox LostFocus等问题

vb textbox LostFocus等问题
状况：
现在有2个Textbox（A和B）可以输入值，但要求A和B中的值不能一样，如何一样不能是焦点离开此Textbox
我尝试在LostFocus处理，判断若A和B的值样则使用SetFocus方法。
问题：
因为A和B一样要求，所以我在A和B的LostFocus中加了类似的代码，但问题是：如果我在A中填写比如“2”，然后到B中写入"2",接着鼠标点击A，就会发生B的LostFocus把焦点改回B，但此时A又失去焦点，导致A的LostFocus触发。。。结果就是死循环。。。。
请哪位高人指点一下，谢谢了！！
vb textbox LostFocus的问题（上面的有错别字）
状况：
现在有2个Textbox（A和B）可以输入值，但要求A和B中的值不能一样，如果一样则不能使焦点离开此Textbox；我尝试在LostFocus处理，判断若A和B的值样则使用SetFocus方法。
问题：
因为A和B一样要求，所以我在A和B的LostFocus中加了类似的代码，但问题是：如果我在A中填写比如“2”，然后到B中写入"2",接着鼠标点击A，就会发生B的LostFocus把焦点改回B，但此时A得到焦点又失去焦点，导致A的LostFocus触发。。。结果就是死循环。。。。
请哪位高人指点一下，谢谢了！！

引用
textbox都缺省属性即可：

VB code

Private Sub Text1_Validate(Cancel As Boolean)
If Text1.Text = Text2.Text Then Cancel = True
End Sub

Private Sub Text2_Validate(Cancel As Boolean)
If Text1.T……

谢谢大哥，我好笨。。。。
引用
我好笨。。。。


反对!!!~


相关问答：

关于VB DIM ds as new DataSet问题 - VB / 基础类

DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.

dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......

vb - VB / 基础类

我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧？

我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号