查看: 39  |  回复: 0
  VB6 一个简单的类的例子
楼主
发表于 2024年12月7日 14:59

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    '声明 初始化
    Dim x As clsStudent
    Set x = New clsStudent
    x.name = "Red"
    Debug.Print x.name
    
    Call x.ShowInfo
    
    Set x = Nothing
End Sub

新建类模块 clsStudent.cls,代码:

Private mstrname As String
Private mstrGrade As String

'类方法
Public Property Get name() As String
    name = mstrname
End Property

Public Property Let name(ByVal strName As String)
    mstrname = strName
End Property

Public Property Get Grade() As String
    Grade = mstrGrade
End Property

Public Property Let Grade(ByVal strGrade As String)
    mstrGrade = strGrade
End Property

Public Sub ShowInfo()
    Debug.Print "姓名:" & mstrname & vbCrLf & "年级:" & mstrGrade
End Sub

'类事件
Private Sub Class_Initialize()
    mstrGrade = "一年级"
End Sub

Private Sub Class_Terminate()
    Debug.Print "objStudent对象使用的内存及系统资源已经释放"
End Sub

运行结果:

Red
姓名:Red
年级:一年级
objStudent对象使用的内存及系统资源已经释放


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com