菜鸟请教:在用户控件中怎么定义全局变量或是引用其它窗体的变量?
学习例子中有个用户控件和模块,我想在窗体中得到用户控件中的一些参数,请教如何才能在窗体中使用用户控件中定义的变量?
[解决办法]
'以下是类或控件中增加属性的示例,即在其它引用的此类或控件的窗体\类\控件中对数据进行读取值
'以下示例在其它窗体\模块中对引用了此类的数据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