VB.Net思路：检查控件，设置控件权限

最新推荐文章于 2025-06-20 14:04:12 发布

原创最新推荐文章于 2025-06-20 14:04:12 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文介绍了一个使用VB.NET编写的窗体类，该类包含了初始化构造函数、权限检查功能及系统功能ID属性等关键部分，并展示了如何在窗体加载事件中进行初始化设置。

Public Class NFWindowsControl
    Inherits Windows.Forms.Form

    Public Sub New()
        checkPermission()
        '
        '
        '
    End Sub

    Public Function checkPermission()

    End Function

    Protected _SystemFunctionID As String

    Public Property SystemFuntionID() As String
        Get
            Return _SystemFunctionID
        End Get
        Set(value As String)
            _SystemFunctionID = value
        End Set
    End Property

    Private Sub NFWindowsControl_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    End Sub
End Class

    Dim mitButton As ToolStripMenuItem	
            For Each obj In Me.Controls	
                If TypeOf (obj) Is ToolStripMenuItem Then	
                    mitButton = obj	

                    Dim s() As String	

                    s = Split(mitButton.Tag, ";")	

                End If	
            Next

if typeof(obj) is … Then
select case typeof(obj)
case label or button
.visible or .enable

case textbox
.readonly
.visible

case button

end select 
end if