关于vb中的screen.activecontrol如何转换为vb.net代码

[dbcxbj]

现在在做代码转换的时候发现一句vb代码。screen.activecontrol.name我把他转换为vb.net的me.activecontrol.name。
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？

[dbcxbj]

bValidateFlg = False
Select Case Screen.ActiveControl.Name
Case "txtTiku"
Call txtTiku_Validate(bValidateFlg)
Case "txtMinkyo"
Call txtMinkyo_Validate(bValidateFlg)
Case "txtMinsei"
Call txtMinsei_Validate(bValidateFlg)
Case "txtFukusi"
Call txtFukusi_Validate(bValidateFlg)
End Select

If bValidateFlg = True Then
Exit Sub
End If

[yanlongwuhui]

在控件的Validated事件中调用函数

[dbcxbj]

我知道可以怎么替代上面的写法。但我做的是转换，能找到替代的最好找到替代的。

[晓轩]

bValidateFlg = False
Select Case Me.ActiveControl.Name
Case "txtTiku"
Call txtTiku_Validate(bValidateFlg)
Case "txtMinkyo"
Call txtMinkyo_Validate(bValidateFlg)
Case "txtMinsei"
Call txtMinsei_Validate(bValidateFlg)
Case "txtFukusi"
Call txtFukusi_Validate(bValidateFlg)
End Select

If bValidateFlg = True Then
Exit Sub
End If

[晓轩]

[Quote=引用楼主 dbcxbj 的帖子:]
现在在做代码转换的时候发现一句vb代码。screen.activecontrol.name我把他转换为vb.net的me.activecontrol.name。
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？
[/Quote]
你这样转换没有问题。达不到效果是其他关联代码的问题，建议把其他效果代码也贴上来。

[dbcxbj]

6楼的你如果试一下vb的screen.activecontrol.name你就会发现和vb.net的me.activecontrol.name是不一样的
我详细的讲解一下吧。比如画面上有一个textbox和一个工具栏。vb中光标在textbox上。然后点击工具栏上的按钮
这时候screen.activecontrol.name取的是textbox的名。而vb.net的me.activecontrol.name取的是工具栏的名。
我觉得这样说应该很清楚了。

[晓轩]

[Quote=引用 7 楼 dbcxbj 的回复:]
6楼的你如果试一下vb的screen.activecontrol.name你就会发现和vb.net的me.activecontrol.name是不一样的
我详细的讲解一下吧。比如画面上有一个textbox和一个工具栏。vb中光标在textbox上。然后点击工具栏上的按钮
这时候screen.activecontrol.name取的是textbox的名。而vb.net的me.activecontrol.name取的是工具栏的名。
我觉得这样说应该很清楚了。
[/Quote]
而vb.net的me.activecontrol.name取的是工具栏的名。

你所说的工具栏是什么vb.net里的toolbar?
你亲自测试过吗？
我的测试结果怎么和vb6的效果一样？

[dbcxbj]

我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。

[晓轩]

[Quote=引用 9 楼 dbcxbj 的回复:]
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
[/Quote]
真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。

[yanlongwuhui]

[Quote=引用 10 楼 xiaoxuanZhu 的回复:]
引用 9 楼 dbcxbj 的回复:
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。

真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。
[/Quote]
[Quote=引用 7 楼 dbcxbj 的回复:]
点击工具栏上的按钮
[/Quote]

[晓轩]

不点按钮我玩那，LS啥意思

[yanlongwuhui]

附上代码看看

[dbcxbj]

大家帮帮忙呀。我好想知道为什么？从来没见过。很好奇。

[dbcxbj]

虽然没解决。但我的原则向来有贴就结。给分喽。