想请问下这个是什么控件

Question

 Dim objToken1 As clsToken    Set objToken1 = New clsToken
    Dim objToken2  As clsToken
    Set objToken2 = New clsToken
    
    objToken1.setText inLine    
    Dim str1 As String
    Dim str2 As String
    
    str1 = Trim(objToken1.GetToken(","))想请问下这个是什么控件 什么属性
对VB不熟  谢谢

Answer 1

clsToken 应当是自定义的类

Answer 2

clsToken看来是个类?有setText方法,难不成是个文本处理类?你自己看类的代码不就行了

Answer 3

下面是这样的
If str1 = "1" Then                                                                
        Set itmX = ListView1.ListItems.add(, , "R" & (ListView1.ListItems.Count + 1))
        itmX.Checked = True
        itmX.SubItems(ListView1.ColumnHeaders("PKEY").SubItemIndex) = "0"
        itmX.SubItems(ListView1.ColumnHeaders("TXTYPE").SubItemIndex) = "1"
        itmX.SubItems(ListView1.ColumnHeaders("TXDESC").SubItemIndex) = "1 IN"
        
        'LOCATION TO
        
        str1 = Trim(objToken1.GetToken(","))
        itmX.SubItems(ListView1.ColumnHeaders("LOCATIONTO").SubItemIndex) = str1
        
        ' PARTNO, SOURCE, GRADE,.....
        str1 = objToken1.GetToken(",")
        objToken2.setText str1
        str2 = objToken2.GetToken("_")
        itmX.SubItems(ListView1.ColumnHeaders("PARTNO").SubItemIndex) = str2
        str2 = objToken2.GetToken("_")
        itmX.SubItems(ListView1.ColumnHeaders("SPEC").SubItemIndex) = str2
        If itmX.SubItems(ListView1.ColumnHeaders("SPEC").SubItemIndex) = "0" Or _
                UCase(itmX.SubItems(ListView1.ColumnHeaders("SPEC").SubItemIndex)) = "NIL" Then
            itmX.SubItems(ListView1.ColumnHeaders("SPEC").SubItemIndex) = ""
要搞个条码  现在在拼命看代码 又看不怎么懂

Answer 4

右边“工程”（工程资源管理器）中“类模块”下找一下clsToken 

Answer 5

象是个自定义的类,这种情况应该有名称为clsToken的类模块,如果没有,还可能是引用的链接库的类,这在对象浏览器中应可以看到.