16,722
社区成员
发帖
与我相关
我的任务
分享关于vb中的screen.activecontrol如何转换为vb.net代码
现在在做代码转换的时候发现一句vb代码。screen.activecontrol.name我把他转换为vb.net的me.activecontrol.name。
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？
...全文
请发表友善的回复…
发表回复
dbcxbj 2009-02-05
- 打赏
- 举报
虽然没解决。但我的原则向来有贴就结。给分喽。
dbcxbj 2009-02-04
- 打赏
- 举报
大家帮帮忙呀。我好想知道为什么？从来没见过。很好奇。
yanlongwuhui 2009-02-02
- 打赏
- 举报
附上代码看看
晓轩 2009-02-02
- 打赏
- 举报
不点按钮我玩那，LS啥意思
yanlongwuhui 2009-02-02
- 打赏
- 举报
[Quote=引用 10 楼 xiaoxuanZhu 的回复:]
引用 9 楼 dbcxbj 的回复:
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。
[/Quote]
[Quote=引用 7 楼 dbcxbj 的回复:]
点击工具栏上的按钮
[/Quote]
引用 9 楼 dbcxbj 的回复:
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。
[/Quote]
[Quote=引用 7 楼 dbcxbj 的回复:]
点击工具栏上的按钮
[/Quote]
晓轩 2009-02-02
- 打赏
- 举报
[Quote=引用 9 楼 dbcxbj 的回复:]
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
[/Quote]
真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
[/Quote]
真不敢相信，我也是刚刚测试完的怎么和你说的不一样？
toolbar根本就不接受焦点。所以active显示的是他之前的controlname.为什么你的测试结果和我的不一样？
真是诡异。
dbcxbj 2009-02-02
- 打赏
- 举报
我当然亲自测试过。要不然我就不会提问了。但结果确实和我说的一样我也很迷惑。。
晓轩 2009-02-02
- 打赏
- 举报
[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的效果一样？
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 2009-02-02
- 打赏
- 举报
6楼的你如果试一下vb的screen.activecontrol.name你就会发现和vb.net的me.activecontrol.name是不一样的
我详细的讲解一下吧。比如画面上有一个textbox和一个工具栏。vb中光标在textbox上。然后点击工具栏上的按钮
这时候screen.activecontrol.name取的是textbox的名。而vb.net的me.activecontrol.name取的是工具栏的名。
我觉得这样说应该很清楚了。
我详细的讲解一下吧。比如画面上有一个textbox和一个工具栏。vb中光标在textbox上。然后点击工具栏上的按钮
这时候screen.activecontrol.name取的是textbox的名。而vb.net的me.activecontrol.name取的是工具栏的名。
我觉得这样说应该很清楚了。
晓轩 2009-02-02
- 打赏
- 举报
[Quote=引用楼主 dbcxbj 的帖子:]
现在在做代码转换的时候发现一句vb代码。screen.activecontrol.name我把他转换为vb.net的me.activecontrol.name。
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？
[/Quote]
你这样转换没有问题。达不到效果是其他关联代码的问题，建议把其他效果代码也贴上来。
现在在做代码转换的时候发现一句vb代码。screen.activecontrol.name我把他转换为vb.net的me.activecontrol.name。
达不到原来的效果。请问vb的这句话如何转换为vb.net的相应代码？
[/Quote]
你这样转换没有问题。达不到效果是其他关联代码的问题，建议把其他效果代码也贴上来。
晓轩 2009-02-02
- 打赏
- 举报
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
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
dbcxbj 2009-02-02
- 打赏
- 举报
我知道可以怎么替代上面的写法。但我做的是转换，能找到替代的最好找到替代的。
yanlongwuhui 2009-02-02
- 打赏
- 举报
在控件的Validated事件中调用函数
dbcxbj 2009-02-02
- 打赏
- 举报
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
