vb中使用者自订形态尚未定义?这是什麼原因?

Question

Option Explicit

Dim btFormat As BarTender.Format
Dim btApp As BarTender.Application

Private Sub Form_Unload(Cancel As Integer)

btFormat.Close btDoNotSaveChanges
btApp.Quit btDoNotSaveChanges
Set btFormat = Nothing
Set btApp = Nothing
End Sub

Private Sub txtBarcode_KeyPress(KeyAscii As Integer)
On Error GoTo err1
If KeyAscii >= 97 And KeyAscii <= 122 Then
KeyAscii = KeyAscii - 32
End If
If KeyAscii = 13 Then
'ゴ兵絏
Call PrintBarcode(txtBarcode.Text)

End If
Exit Sub
err1:
MsgBox "祘钵盽叫羛么恨瞶", vbCritical
End Sub

Private Sub PrintBarcode(ByVal snBarcode As String)
Dim bartenderFileName As String
bartenderFileName = App.Path & "\" & "1.btw"
Set btApp = New BarTender.Application
Set btFormat = btApp.Formats.Open(bartenderFileName, False, "")

With btFormat
.SetNamedSubStringValue "SN", snBarcode
.Activate
.PrintOut False, False
End With

End Sub

Answer 1

BarTender应该是一个类对象，整个代码未见所定义的类代码。

Format是BarTender类的一个属性或数据结构之一。
类，可用类模块“从零开始”创建自己的对象。
类模块的数据，是相对于类实例（也就是，由类创建的每一对象）而独立存在的。
如果是一位有经验的编程者，经过多年的编程已经积累了一个有用的函数库。对象并不会代替函数－ 实用程序的函数仍然需要编写和使用－
但对象对于组织过程和数据提供了一个方便和逻辑的方法。

特别是，借以创建对象的类能将数据和过程组织成一个整体。以下的主题解释了类如何增强代码的活力，如何导致新的编程方法的产生。

类：将用户定义类型和过程组织在一起
类是具有态的用户定义类型。封装将代码和数据组织在同一个模块中，使得对象能保护和验证其中数据的。
定制窗体类 多年前已创建过类－
当设计窗体时就创建了类。这对窗体设计都是有意义的成果。

类模块的循序渐进
简要介绍类模块，包括类的创建、从类创建的对象和对象的存活期规则。

调试类模块 描述类模块错误捕获选项中的断点，加上用 ALT+F8 键和 ALT+F5 键进行单步跟踪或运行先前的错误。

Visual Basic 窗体的存活期
窗体及其包含控件的存活期，与其它对象的存活期所遵循的规则有轻微的不同。

类模块与标准模块的比较
类模块和标准模块有显著的差别。理解这些差别有助于为对象编写更好的代码。追问

我是初学者，那应该怎麼定义BarTender，怎麼修改代码呢?

追答

这是个自定义的私有类，需要看需要解决啥问题来设置。

VB初学者VB一般不会先接触对象类建立。

至于如何建立对象类，建议安装MSDN6.0，从VB参考文档查看建立对象。请阅读上传的附件。

追问

谢谢你的解答，十分感谢

来自：求助得到的回答