VBS 类
VBS类学习
Class Student '创建一个学生类
Public sName '创建一个公有变量 学生名称
Private sAge '创建一个私有变量 学生年龄
Public Property Let SetSName(ByVal name) '定义公有的Let属性
sName=name
End Property
Public Property Get GetSName() '定义公有的Set属性
GetSName=sName 'VBS是弱类型的,将sName的赋值给GetSName返回
End Property
Private Sub Class_Initalize '设置类的初始化事件
sAge=18
End Sub
Private Sub Class_terminate '设置类的清空事件
Response.Write("类已经注销")
End Sub
Public Function GetStudent(ByVal name) 'Function过程可以有返回值
call SetSName(name)
GetStudent="姓名是"&GetSName&"年龄是"&sAge '&代表字符串拼接
End Function
Public Sub OutPutStudent() 'Sub过程没有返回值,但是可以调用系统的输入函数 InputBox 消息函数 MesBox 消息函数
name=InputBox("请输入名称")
call SetSName(name)
Response.Write(姓名是"&GetSName&"年龄是"&sAge )
End Sub
End Class
转载于:https://www.cnblogs.com/birchlee/archive/2010/11/23/1885100.html
- 点赞
- 收藏
- 分享
- 文章举报
- VBS基础篇 - 常用函数
- redis清除全部数据vbs脚本
- Vbs获取两个日期天数间隔
- Vbs-Js_Vir
- vbs教程《当前目录》
- vbs socket
- Slmgr.vbs 参数说明
- VBS 基本常用对象类
- VBS记录集快速导出到Excel的方法(转载学习,感谢网友)
- 华为云硬盘备份(VBS)服务
- Windows下通过bat批处理文件和vbs脚本实现守护进程
- 如何停止VBS永久循环
- win7中vbs修改本地连接名称
- VBS基础篇 - vbscript class类的定义与使用
- vbs
- IIS日志清理(CMD版,VBS版,JS版,WSH版)
- vbs后台运行bat删除自身的代码
- 用vbs实现的强制杀进程的脚本
- 一个可以删除指定天数文件的vbs脚本
- VBS中通过调用CAPICOM对象实现SHA1&MD5加密