今想实现这样一功能,当在新增一方法、过程或是事件时,能自动写上错语处理语句
Private Sub Command1_Click()
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox Err.Description, , "Command1_Click"
End Sub如上,当新建Command1_Click事件时,能自动写出里面的错语处理语句。
谢谢!
Private Sub Command1_Click()
On Error GoTo ErrHand
Exit Sub
ErrHand:
MsgBox Err.Description, , "Command1_Click"
End Sub如上,当新建Command1_Click事件时,能自动写出里面的错语处理语句。
谢谢!
免费的没找到。
帮你顶了~~我不会
dbcontrols的方法如果针对没有任何错误处理代码的代码可能还可以,否则可能会引起重复
插入自己代码的插件代码如下:
Dim lPos As Long
On Error Resume Next
lPos = VBInstance.ActiveCodePane.CodeModule.ProcCountLines("过程名称", vbext_pk_Proc)
VBInstance.ActiveCodePane.CodeModule.InsertLines lPos + 1, "需要插入的代码"
需要注意,一定要加上On Error Resume Next,因为指定过程名称不存在时会报错。
http://vsaddin.googlecode.com/files/VB6_InsertErrHand_Addin.zip没有按楼主的做到一双击进入就自动加入,需要手动点菜单,已经很方便了。
谁要实现这样的效果可以修改下,代码:
http://blog.csdn.net/sysdzw/archive/2010/12/01/6047719.aspx安装方法和一般插件一样,很简单:
1.点击菜单“工程-引用”,选择这个dll
2.然后点击菜单“外接程序-外接程序管理器”,选择“Insert Error Hand”,把右下角两个框框都勾起来
3.这样你的菜单“外接程序”中就会多出“Insert Error Hand”这一项使用方法也很简单:
将要处理的代码编辑器窗口打开,保持活动窗口状态,然后点击菜单“外接程序-Insert Error Hand”即可。
建议所有的错误处理的要么都自己处理,要么就都交给插件处理。过会修改下如果过程的第一行有类似on error goto/resume xxx就直接不处理了。
虽然没有完全自动,但是只需要点一个工具条的按钮,也够方便了。又:并不是所有的过程都需要添加错误处理的。
http://code.google.com/p/vsaddin/downloads/list
下载其中的VB6IDE_InsertErrHand_Addin_1.0.2.zip(带源码src目录)
列表中不少很实用的vb和vc插件,大家可以下载用了看看。
先研究一下sysdzw提供的代码
* 双击控件到代码编辑器或者添加新过程、函数自动添加错误处理语句(但是总是觉得这样有点不妥,打算在下一版本中加入配置让用户决定是否关闭自动添加错误处理的功能。)
* 修正了之前版本不能处理Property Let/Set/Get这样的属性过程
* 修正了之前版本不能处理函数声明时参数用多行表示的情况下载地址:
http://code.google.com/p/vsaddin/downloadsv1.0.6属性设置界面预览:
VB6IDEMouseWheelAddin这个插件我都用了好几年了,原来也是你做的
谢谢sysdzw及各位朋友
有些方法或过程是不需或是不能有错误信息提示出来的,所以如果能有可选性那将是...
不知能否做到在代码窗口点右键弹出此界面,然后再点确定就能给当前过程加上错误处理,如果光标不在一过程内,则不做处理。
期待sysdzw兄的更新版本,谢谢!
得到当前鼠标所在的行可以通过CodePane对象的GetSelection方法得到,然后用CodeModule的ProcOfLine方法得到过程名,这样就简单了。我程序里已经封装了dealMethod方法,直接传入过程名差不多就行了。只是右击菜单的不知道怎么搞,方法是肯定有的。你自己找了看看,找到的话自己实现下吧,每个版本都开源的,呵呵。