[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 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"
(为函数编辑器中的函数)
〓 Rijn 〓
Neoix

回复 2# bxbian951122

啊对对对!
一个爱好编程的小学生。

TOP

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

TOP

返回列表