在vb里可以自己建类吗？谁有这方面的资料？help!!

Question

'新建一个类模块,将这段代码放到类模块里
Option ExplicitPrivate vText As String'类的方法
Public Sub ShowText()
    MsgBox vText
End Sub'类的属性
Public Property Get Text() As String
    Text = vText
End PropertyPublic Property Let Text(ByVal vNewValue As String)
    vText = vNewValue
End Property'下列代码放到窗体里
'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-22
'Description:要试用本例请在窗体中填加 一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    '定义类变量
    Dim clsTest As Class1
    '建立类的实例
    Set clsTest = New Class1
    
    '使用类
    clsTest.Text = "阿木是小(...)"
    clsTest.ShowText
    
    '干掉类
    Set clsTest = Nothing
    
End Sub

Answer 1

to foolishtiger(吴文智):就是开了个玩笑说不介绍MM给你，你就这样报复我？损啊~~！！！

Answer 2

foolishtiger(吴文智)　,为什么d定义用Dim clsTest As Class1,而不用Dim clsTest As
vtext?   
    
    
    

Answer 3

Class1才是你要用的类的名字啊.
vText只是类中的一个局部变量,除了类中可以访问到,在类之外就看不见它啦.
具体点就是在类模块外,就不能用vText变量.

Answer 4

那要不要先说明一下class1为一个类呢？如果要申明两个类，那应该怎么说明？

Answer 5

怎么看出是类模块呀？
Option Explicit
Private vText As String
'类的方法
Public Sub ShowText()
    MsgBox vText
End Sub
'类的属性
Public Property Get Text() As String
    Text = vText
End Property
Public Property Let Text(ByVal vNewValue As String)
    vText = vNewValue
End Propertyproperty是属性的意思，可是怎么看出vtext是类的一个变量呢？

Answer 6

在类里头的变量是用PUBLIC定义的，那在类外是否可以看到

Answer 7

public 定义的在外面能够看到,private不能看到
这里的看到应该是在外面能够调用