子窗体的访问变量答案

【问题标题】：Access variable of child form子窗体的访问变量
【发布时间】：2012-01-03 13:01:49
【问题描述】：

使用 VB.Net

我有大约 60 个子表单

每个都有一个同名的变量。

在主窗体中我想设置活动子变量的值。

这样做的一种方法是

Select Case Me.ActiveMdiChild.Name
  Case "formName"
    frmformName.Variable=0

我不想这样做，因为它涉及编写很多案例，我可能会错过一些。

还有其他方法吗？

我试过了

Dim O as Object = Me.ActiveMdiChil

O.VariableName= 0

及其各种变体，但不起作用

【问题讨论】：

请参阅您最喜欢的 vb.net 语言书籍，了解 Interface 关键字。所有这六十种形式（呃）都应该实现相同的接口。

标签： vb.net forms variables set

【解决方案1】：

另一种方法是使用接口，例如：

Public Interface IChildVariable
  Property Variable() As Integer
End Interface

Public Class Form1
  Implements IChildVariable

  Private _MyVariable As Integer

  Public Property Variable() As Integer Implements IChildVariable.Variable
    Get
      Return _MyVariable
    End Get
    Set(ByVal value As Integer)
       _MyVariable = value
    End Set
  End Property
End Class

那么你可以只有一个检查点：

If TypeOf Me.ActiveMdiChild Is IChildVariable Then
  DirectCast(Me.ActiveMdiChild, IChildVariable).Variable = 0
Else
  ''Throw Exception
End If

【讨论】：