批处理之家 » 第三方命令行 » BatProject 插件开发教程 For VB

bxbian951122 发表于 2010-1-25 14:03

BatProject 插件开发教程 For VB

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

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

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


[table][tr][td=1,1,115][size=3][font=宋体]函数[/font][/size]
[/td][td=1,1,96][size=3][font=宋体]功能[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]属性[/font][/size]
[/td][td=1,1,309][size=3][font=宋体]示例[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.Saved[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]是否已保存[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]只读[/font][/size]
[/td][td=1,1,309][size=3][font=Times New Roman]MsgBox "[/font][font=宋体]有否保存：[/font][font=Times New Roman]" & BP.Saved[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.SelStart[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]选取开始[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]可读[/font][/size]
[size=3][font=宋体]可写[/font][/size]
[/td][td=1,1,309][size=3][font=Times New Roman]MsgBox "[/font][font=宋体]选取开始：[/font][font=Times New Roman]" & BP.SelStart[/font][/size]
[font=Times New Roman][size=3] [/size][/font]
[font=Times New Roman][size=3]BP.SelStart = 0[/size][/font]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]设置选取开始为：[/font][font=Times New Roman]0"[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.SelLength[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]选取长度[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]可读[/font][/size]
[size=3][font=宋体]可写[/font][/size]
[/td][td=1,1,309][size=3][font=Times New Roman]MsgBox "[/font][font=宋体]选取长度：[/font][font=Times New Roman]" & BP.SelLength[/font][/size]
[font=Times New Roman][size=3] [/size][/font]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]设置选取长度为：[/font][font=Times New Roman]1"[/font][/size]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]选取文字：[/font][font=Times New Roman]" & BP.SelText[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.SelText[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]选取文字[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]可读[/font][/size]
[size=3][font=宋体]可写[/font][/size]
[/td][td=1,1,309][size=3][font=Times New Roman]MsgBox "[/font][font=宋体]选取文字：[/font][font=Times New Roman]" & BP.SelText[/font][/size]
[font=Times New Roman][size=3] [/size][/font]
[font=Times New Roman][size=3]BP.SelText = "123"[/size][/font]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]设置选取文字为：[/font][font=Times New Roman]123"[/font][/size]
[size=3][font=宋体]（将选中文字置为[/font][font=Times New Roman]”123”[/font][font=宋体]）[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.Text[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]全文[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]可读[/font][/size]
[size=3][font=宋体]可写[/font][/size]
[/td][td=1,1,309][size=3][font=Times New Roman]MsgBox "[/font][font=宋体]文字：[/font][font=Times New Roman]" & BP.Text[/font][/size]
[font=Times New Roman][size=3] [/size][/font]
[font=Times New Roman][size=3]BP.Text = "all" & vbCrLf & "kkk"[/size][/font]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]设置文字为：[/font][font=Times New Roman]all" & vbCrLf & "kkk"[/font][/size]
[/td][/tr][tr][td=1,1,115][font=Times New Roman][size=3]BP.PIFunc[/size][/font]
[/td][td=1,1,96][size=3][font=宋体]执行函数[/font][/size]
[/td][td=1,1,48][size=3][font=宋体]只写[/font][/size]
[/td][td=1,1,309][font=Times New Roman][size=3]BP.PIFunc 68, 1[/size][/font]
[size=3][font=Times New Roman]MsgBox "[/font][font=宋体]执行函数[/font][font=Times New Roman]68[/font][font=宋体]，参数[/font][font=Times New Roman]2[/font][font=宋体]：跳转到第[/font][font=Times New Roman]2[/font][font=宋体]行[/font][font=Times New Roman]"[/font][/size]
[font=宋体][size=3]（为函数编辑器中的函数）[/size][/font]
[/td][/tr][/table]

bxbian951122 发表于 2010-1-25 14:17

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

bat1152 发表于 2023-1-3 11:56

**** 作者被禁止或删除 内容自动屏蔽 ****

查看完整版本: BatProject 插件开发教程 For VB