ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 14934|回复: 20

[分享] 类的声明、使用、继承,命名空间的声明、引用简单示例(vb.net)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-11-11 15:09 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 HHAAMM 于 2012-11-11 16:26 编辑

注:菜鸟作品,不保证完全正确哦
定义类用Class关键字,例如:
  1. Public Class vstojcA   ''''定义一个类
  2.         Public Sub xx()
  3.             MsgBox("我是A项目中的老子")
  4.         End Sub
  5.     End Class
复制代码
Public Class是Visual Basic.Net中用来定义类的语句,它是以class 开始以end class 结束,vstojcA是类名
Public/Private/Protected/Friend都可以作为访问修饰符
使用一个类必须使其实例化,用New关键字,例如

  1. Sub Main()
  2.         Dim A As vstojcA
  3.         A = New vstojcA
  4.         A.xx()
  5.     End Sub
复制代码
Dim A As vstojcA是声明,A = New vstojcA是实例化,A.xx()是使用类中的方法
也可以这样
  1. Sub Main()
  2.         Dim A = New vstojcA
  3.         A.xx()
  4.     End Sub
复制代码
运行结果如下
1.jpg


该贴已经同步到 HHAAMM的微博

评分

3

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-11 15:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 HHAAMM 于 2012-11-11 15:28 编辑

继承用Inherits关键字,例如
  1. Public Class vstojcB ''''再定义一个类
  2.     Inherits vstojcA    ''''继承vstojcA类,并发展壮大
  3.     Public Sub yy()    ''''发展壮大
  4.         MsgBox("我是A项目中的小子")
  5.     End Sub
  6. End Class
复制代码

vstojcB类的使用方法如下
  1. Sub Main()
  2.         Dim B = New vstojcB
  3.         B.xx()
  4.         B.yy()
  5.     End Sub
复制代码
运行结果如下
1.jpg 2.jpg


TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-11 15:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 HHAAMM 于 2012-11-11 15:40 编辑

声明命名空间用Namespace
  1. Namespace ABCD    ''''声明一个命名空间
  2.     Public Class vstojcA   ''''定义一个
  3.         Public Sub xx()
  4.             MsgBox("我是A项目中的老子")
  5.         End Sub
  6.     End Class

  7.     Public Class vstojcB ''''再定义一个类
  8.         Inherits vstojcA    ''''继承vstojcA类,并发展壮大
  9.         Public Sub yy()    ''''发展壮大
  10.             MsgBox("我是A项目中的小子")
  11.         End Sub
  12.     End Class
  13. End Namespace
复制代码

使用ABCD 命名空间中的类
  1. Sub Main()
  2.         Dim B = New ABCD.vstojcB
  3.         B.xx()
  4.         B.yy()
  5.     End Sub
复制代码

运行效果如楼上图

TA的精华主题

TA的得分主题

发表于 2012-11-11 15:20 | 显示全部楼层
本帖最后由 leolee82 于 2012-11-11 15:22 编辑

不懂,看热闹,MsgBox("我是A项目中的老子")
帮你占一楼

TA的精华主题

TA的得分主题

发表于 2012-11-11 15:30 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-11 15:55 | 显示全部楼层
本帖最后由 HHAAMM 于 2012-11-23 23:25 编辑

引用命名空间用Imports
  1. Imports A.ABCD    ''''引入A下的ABCD这个命名空间,为的是使用其中的类
复制代码

继承A.ABCD 中的vstojcB类并增加功能
  1. Class vstojC    ''''再次定义一个类
  2.         Inherits vstojcB    ''''继承A.ABCD下的vstojcB类,并发展壮大
  3.         Public Sub cc()
  4.             MsgBox("我在B项目,我是徒弟,和他们不是一家人。我也可以是老子、小子")
  5.         End Sub
  6.     End Class
复制代码

完整代码如下
  1. Imports A.ABCD    ''''引入A下的ABCD这个命名空间,为的是可以使用其中的类
  2. Module Module1    ''''先不用理会Module Module1
  3.     Sub Main()
  4.         Dim B = New vstojC
  5.         B.xx()
  6.         B.yy()
  7.         B.cc()
  8.     End Sub
  9.     Class vstojC    ''''再次定义一个类
  10.         Inherits vstojcB    ''''继承A.ABCD下的vstojcB类,并发展壮大
  11.         Public Sub cc()
  12.             MsgBox("我在B项目,我是徒弟,和他们不是一家人。我也可以是老子、小子")
  13.         End Sub
  14.     End Class
  15. End Module
复制代码
B.cc()的运行效果
3.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-11 16:11 | 显示全部楼层
本帖最后由 HHAAMM 于 2012-11-11 16:13 编辑

示例完毕!!
下次开帖 类属性类方法、构造函数、重载

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-11 16:12 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
leolee82 发表于 2012-11-11 15:20
不懂,看热闹,MsgBox("我是A项目中的老子")
帮你占一楼

你来说说接口继承什么的好吗,这些我很晕!!

TA的精华主题

TA的得分主题

发表于 2012-11-11 16:21 | 显示全部楼层
这个 需要慢慢消化。是否开始连载了?

TA的精华主题

TA的得分主题

发表于 2012-11-11 21:53 | 显示全部楼层
呵呵,这是最基本要懂的,不错,介绍的很祥细,受教了{:soso_e179:}
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-21 21:50 , Processed in 0.051914 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表