Board logo

标题: [其他] BatProject 插件开发教程 For VB [打印本页]

作者: bxbian951122    时间: 2010-1-25 14:03     标题: BatProject 插件开发教程 For VB

标准类模块+参考模块
链接: 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    时间: 2010-1-25 14:17

我为什么觉得这个应该放到精品软件交流版去。。。。。
作者: bat1152    时间: 2023-1-3 11:56

回复 2# bxbian951122

啊对对对!




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2