13518219792
可以,但是变量不能用ClassA或B来定义,可以用Object,或ClassA,ClassB的基类,,使用类的成员时,再把变量类型转换成相应的类
成都创新互联公司为客户提供专业的成都网站设计、成都网站制作、外贸网站建设、程序、域名、空间一条龙服务，提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、成都做手机网站等网站方面业务。
首先窗口也是一个类，而显示出来的可以操作的那个窗口则是这个类的实例
你的意思是点击a的按钮之后单纯更新b的数据还是要改变b上面的控件显示的数据？
如果是前者，也就是b不用在显示上有任何变动的话，那么：
如果b是a的子窗口，那把b窗口的变量名变成是a的全局变量，然后再b把那个要变的数据设为全局并且是public，这样通过“b窗口变量名.要变的数据”就能访问到b里面的变量
如果b不是别人子窗口那么b就不具备变量名了（比如说你是要从子窗口改变主窗口的变量），那你只能通过b的类名（就是name属性）来访问它的数据，这时就只能把你要改的那个数据设为static了。
如果你懂了前面我说的，然后你问题是后者，就是说要通过a的按钮改变b的控件的状态的话，那么由于b上面的控件不是public的，所以没法访问，那么，
方法一：在实例化b之后，把b上面要改的那个控件作为变量传给a
方法二：有时因为各种原因无法使用方法一，那就只能把你将要做的修改做成b里面一个带变量的函数，但由于静态函数不能调用控件，所以要另外定义一个委托，然后设置一个该委托的静态全局变量，然后再b初始化的时候用这个函数作为变量执行构造函数，这样就能在a调用b的那个更改控件状态的函数了。
简单总结一下：把设计的窗体当成类，把实际操作的窗体看成这些类实体化后的变量，然后通过全局的公共变量、函数进行互动，由于主窗体是系统自动打开的，所以没有变量名，那就只能通过类名来访问，所以要把需要被访问的变量、函数设为静态，但由于静态函数无法访问控件，所以只能设置静态的委托变量并在窗体实例化的时候加载那个要访问的非静态函数。
'代码来源：代码街codejie.net
'由于在vb.net里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改
'在vb.net中,模块级变量的命名原则是以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
1.不正确
Dim abc As myClass，定义一个可以引用myClass类型对象的变量abc。这个abc变量存在于栈上。
abc=New myClass。New myClass创建myClass实例对象，这个对象存在于托管堆上。然后（同时）让abc引用（指向）这个对象。
abc变量在栈上，而对象在托管堆上。
abc储存的是对象的地址，而不是对象本身。
看下面的代码
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整个过程中只创建了一个myClass对象，位于托管堆上。
三个myClass类型的变量a、b、c位于栈上，都指向了这一个myClass对象
2.类的成员分 实例成员 和 静态成员
实例成员 必须在实例对象上调用
静态成员 可以直接调用，不需要实例对象。
在任意form类或模块中都可以创建类，跟建立函数和过程一样。
示例：
public class form1
‘创建一个属于form的子类，名称为【类名】。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量。
dim 类名1 as 类名
’定义一个过程，使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量，并实例化。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类，名称为【新类】
public class 新类
public sub new（）
end sub
public name as string
public age as integer
end class
在模块中使用：
public class module1
dim a as new form1.类名
end module
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()
以上代码是非法的。
呵呵##~
