从模块访问表单控件

时间:2018-04-09 14:45:12

标签: vb.net ms-access hide panel member

我正在尝试在模块中创建一个sub,它只是隐藏了一个Form的许多面板,它作为参数传递给它。基本上,我有一个名为学生的按钮和一个名为科目的按钮,我希望当我点击它时,让我们说,学生按钮ALL我在函数中定义的面板被隐藏,只有学生面板仍然可见。

当我运行此代码时,我得到:

System.MissingMemberException: 'Public member 'pnlAlumnos' on type 'Ventana_Principal' not found.'

我的模块中的代码

Module Modulo_Comportamiento_Ventanas
 Public Sub Esconder_todos_los_paneles(ventana As Object)
        ventana.pnlAlumnos.Hide()
        ventana.pnlMaterias.Hide()
 End Sub
End Module

主窗体上的代码单击

Private Sub btnAlumnos_Click(sender As Object, e As EventArgs) Handles btnAlumnos.Click
        Esconder_todos_los_paneles(Me)
        Me.pnlAlumnos.Show()
    End Sub

如何修改代码以便能够访问面板并隐藏它们? 提前谢谢!

注意:BTW,我知道我可以这样做,但我想知道为什么它不能像我这样做,我的意思是下面的代码看起来很糟糕(不是我的其他路径看起来更好):

Public Sub Esconder_todos_los_paneles()
        WindowsApp1.Ventana_Principal.pnlAlumnos.Hide()
        WindowsApp1.Ventana_Principal.pnlMaterias.Hide()
    End Sub

0 个答案:

没有答案