Question

使用VB.Net

我有大约60个儿童表格

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

在Main表单中，我想设置活动子项的变量值。

这样做的一种方式就像

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

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

是否有其他方法可以做到。

我试过

Dim O as Object = Me.ActiveMdiChil

O.VariableName= 0

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

Answer 1

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

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

子表单的访问变量

1 个答案: