找回密码
 加入
搜索
查看: 2503|回复: 0

[AU3基础] 怎么样把VB代码改成autoit,(调用bartender)

[复制链接]
发表于 2014-3-14 18:22:35 | 显示全部楼层 |阅读模式
Public BtApp As BarTender.Application
Public BtFormat As BarTender.Format

Private Sub Command1_Click()
Set BtFormat = BtApp.Formats.Open("d:\kailide_1.btw")
BtFormat.SetNamedSubStringValue "code1", "S/N:11033000000011"
BtFormat.PrintOut
BtFormat.SetNamedSubStringValue "code1", "S/N:11033000000022"
BtFormat.PrintOut
BtFormat.Close (BarTender.BtSaveOptions.btDoNotSaveChanges)

End Sub

Private Sub Form_Load()
Set BtApp = CreateObject("BarTender.Application")
End Sub

Private Sub Form_Unload(Cancel As Integer)
BtApp.Quit
End Sub

Private Sub Text1_keypress(keyascii As Integer)
If keyascii = 13 Then Call Command1_Click
End Sub
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 00:05 , Processed in 0.103344 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表