[其他] BatProject 插件开发教程 For VB

bxbian951122

标准类模块+参考模块
链接: https://pan.baidu.com/s/1FTzbtTVRI_QNG4-KCL3cFQ 提取码: gvyd

只需把类模块插入vb中
再在使用函数前插入以下字符就可以了

'--------
If Trim(Command()) = "" Then End
Dim BP As New ClsBP
BP.hText = CLng(Command())
'-------Bp插件声明

函数	功能	属性	示例
BP.Saved	是否已保存	只读	MsgBox "有否保存：" & BP.Saved
BP.SelStart	选取开始	可读 可写	MsgBox "选取开始：" & BP.SelStart BP.SelStart = 0 MsgBox "设置选取开始为：0"
BP.SelLength	选取长度	可读 可写	MsgBox "选取长度：" & BP.SelLength MsgBox "设置选取长度为：1" MsgBox "选取文字：" & BP.SelText
BP.SelText	选取文字	可读 可写	MsgBox "选取文字：" & BP.SelText BP.SelText = "123" MsgBox "设置选取文字为：123" （将选中文字置为”123”）
BP.Text	全文	可读 可写	MsgBox "文字：" & BP.Text BP.Text = "all" & vbCrLf & "kkk" MsgBox "设置文字为：all" & vbCrLf & "kkk"
BP.PIFunc	执行函数	只写	BP.PIFunc 68, 1 MsgBox "执行函数68，参数2：跳转到第2行" （为函数编辑器中的函数）

bxbian951122

我为什么觉得这个应该放到精品软件交流版去。。。。。

bat1152

回复 2# bxbian951122

啊对对对！