论坛 › 『 提问交流 』 › 怎么样把VB代码改成autoit,（调用bartender）

scorpio1102 发表于 2014-3-14 18:22:35

怎么样把VB代码改成autoit,（调用bartender）

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

查看完整版本: 怎么样把VB代码改成autoit,（调用bartender）