189 8069 5689
可以,但是变量不能用ClassA或B来定义,可以用Object,或ClassA,ClassB的基类,,使用类的成员时,再把变量类型转换成相应的类
创新互联公司专注于义乌企业网站建设,响应式网站设计,商城网站开发。义乌网站建设公司,为义乌等地区提供建站服务。全流程按需网站制作，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
new
就是实例化，比如实例化一个类，你才能访问，，
好比，你是张三，把你的地址告诉了我，我在能找到你家在哪，这个过程就可以称为实例化。
使用New关键字建立一个新的对象和用它属的类来定义是一样的。New关键字可以被用作来建立一个窗体、类模块以及集合的实例。用户在设计的时候建立的每一个窗体都是一个类。New关键字能够用来建立一个类的实例。
可以通过以下步骤来建立一个类的实例：
(1)在窗体上画一个按钮和几个其他的控件。
(2)按钮的Click事件过程加入以下代码：
Dim
x
AS
New
Form1
x.Show
(3)运行程序，并且点击几次按钮，把最前面的窗体移开，因为窗体是一个有可视界面的类，此时可以看见有很多窗体的拷贝，每一个窗体具有相同的控件，并且出现在一个地方。
(4)将列代码加到按钮的click事件过程中：
Dim
f
As
Form1
f=New
Form1
f.text="hello"
f.Show
使用New关键字可以从类模块中定义的类中建立一个新的集合和对象，要知道它们怎样工作，可以参考下面的例子：
(1)建立一个新的工程，并且在一个名为Form1的窗体上画一个按钮控件。
(2)在Project(项目)菜单下，选择"Add
Class"给工程添加一个类
(3)把新的类命名为ShowMe.VB
(4)在该新类中加入如下代码：
PUblic
Class
ShowMe
Sub
ShowFrm()
Dim
frmNew
As
Form1
frmNew=New
Form1
frmNew.Show()
frmNew.WindowState=1
End
Sub
End
Class
(5)在Button1_click事件的过程中加入如下代码：Protected
Sub
Button1_Click(Byval
sender
As
System.Object,_
Byval
AS
System.EventArgs)
Dim
clsNew
As
New
ShowMe()
clsNew.ShowFrm()End
Sub
运行程序，并且点击几次按钮，将看见每创建一个ShowMe类的新的实例时，在桌面上有一个最小化的窗体的图标。
New关键字只能用来建立一个类的对象，不能建立一个基于基本的数据类型的对象，例如Integer。而且，不能建立一个基于一个具体对象的对象。例如，下面的代码根据一个名为SomeClass的类，建立了一个名为Objx的对象，面后又错误地企图根据对象Objx再建立一个其他的对象：
Dim
Objx
As
New
SomeClass()
Dim
Objx
AS
New
Objx()
以上代码是非法的。
呵呵##~
'代码来源：代码街codejie点虐
'由于在vb点虐 里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改
'在vb点虐 中,模块级变量的命名原则是以m_开头
Public Class Student
Private m_stuNo As String '学生号字段
Private m_stuName As String '学生姓名字段
Private m_stuAge As Integer '学生年龄字段
Private m_stuAddress As String '学生住址字段
'无参构造方法
Public Sub New()
End Sub
'有参构造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'学生号属性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'学生姓名属性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'学生年龄属性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'学生住址属性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class
这属于装箱拆箱。我举个例子你就明白了：
Dim x As Integer = 5
Dim o As Object = x '装箱
Dim y As Integer = CType(o, Integer) '拆箱（在Option Strict Off的情况下，直接用o给y赋值，会发生自动转换，也就是说在这种情况下，你不必显式调用CType函数）
另外：VB.NET支持后期绑定，所以你也可以不进行拆箱，直接在Object类型下就可以调用它的属性和方法
比如，下面的语句在Option Strict Off是是合法的
Dim s As String = 886
Dim i As Integer = "53"
Dim f As Object = New Form()
f.Show() '注意，f是Object类型的
总之，VB.NET的语法要比C#灵活得多