vb.net 的get ,set方法

#######建立模块 Module ，不是类class #########不用NEW 实力化
Module mdl_Code

    Private dgdRowCode1 As Integer

    ''' <summary>
    ''' 右键grid当前行的Code取得
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property dgdRowCode() As Integer
        Get
            Return dgdRowCode1
        End Get
        Set(ByVal value As Integer)
            dgdRowCode1 = value
        End Set
    End Property

End Module

 

例如:

把窗体A的变量a,传递给窗体B的变量b,步骤为

mdl_Code.dgdRowCode=a(窗体A 代码)
b=mdl_Code.dgdRowCode(窗体B 代码)