首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

初学者请问:在用户控件中如何定义全局变量或是引用其它窗体的变量

2013-08-01 
菜鸟请教:在用户控件中怎么定义全局变量或是引用其它窗体的变量?学习例子中有个用户控件和模块,我想在窗体

菜鸟请教:在用户控件中怎么定义全局变量或是引用其它窗体的变量?
学习例子中有个用户控件和模块,我想在窗体中得到用户控件中的一些参数,请教如何才能在窗体中使用用户控件中定义的变量?
[解决办法]

'以下是类或控件中增加属性的示例,即在其它引用的此类或控件的窗体\类\控件中对数据进行读取值
'以下示例在其它窗体\模块中对引用了此类的数据Data进行操作
''增加一个类,类名 Class1 , 以下代码在类中

Private Data As String '申明要操作的数据 采用私有


'读取Data的数据
Public Property Get Value() As String
   Value = Data
End Property

'对Data进行赋值
Public Property Let Value(ByVal vNewValue As String)
   Data = vNewValue
End Property




'以下是引用的窗体或类或模块中的代码

Private NewClass1 As New Class1

Private Sub Express()
    NewClass1.Value = "示例数据" '
    MsgBox NewClass1.Value
End Sub

热点排行