利用VB.NET设计Web菜单组件

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文介绍了如何利用VBasic.Net强大的组件开发功能，开发一个Web菜单组件

作者：LIYU 来源：yesky 2007年11月9日

关键字：

三、定义公共类MenuView，该类定义菜单的主体，属性，方法

　　1、定义MenuView类，该类继承WebControl类。由于MenuView类是一个用户自定义类，我们要自定义自己的事件。所以它还需要引用INamingContainer(唯一命名空间接口), IPostBackEventHandler(自定义事件接口)

　　代码如下：

Public Class MenuView : Inherits WebControl
Implements INamingContainer
Implements IPostBackEventHandler

　　2、定义MenuView类的一些属性

'背景图片
Dim _BackGround As String
'风格类型
Dim _Type As Int16
'集合下标从1开始，用集合来存放菜单项
Public Shared coll As New Collection()
'定义菜单项的类型：图标型、检测型、检测背景型、普通型
Enum EType
IsImageBackColor = 0
IsCheckBackColor = 1
IsCheck = 2
None = 3
End Enum

'菜单表
Public Shared Index As Int16
'所选择的菜单项指针
Dim _SelectIndex As Int16
'所选择的菜单项背景色
Dim _SelectBackColor As System.Drawing.Color
'图标背景色
Dim _IconBackColor As System.Drawing.Color

Public Property SelectIndex() As Int16
Get
Return _SelectIndex
End Get
Set(ByVal Value As Int16)
End Set
End Property

Public Property SelectBorderStyle() As BorderStyle
Get
Return ViewState("_SelectBorderStyle")
End Get
Set(ByVal Value As BorderStyle)
ViewState("_SelectBorderStyle") = Value
End Set
End Property

Public Property SelectBackColor() As System.Drawing.Color
Get
Return ViewState("_SelectBackColor")
End Get
Set(ByVal Value As System.Drawing.Color)
ViewState("_SelectBackColor") = Value
End Set
End Property
Public Property IconBackColor() As System.Drawing.Color
Get
Return ViewState("_IconBackColor")
End Get
Set(ByVal Value As System.Drawing.Color)
ViewState("_IconBackColor") = Value
End Set
End Property
'
Public Property Type() As EType
Get
Return ViewState("_Type")
End Get
Set(ByVal Value As EType)
ViewState("_Type") = Value
End Set
End Property

Public Property BackGround() As String
Get
Return ViewState("_BackGround")
End Get
Set(ByVal Value As String)
ViewState("_BackGround") = Value
End Set
End Property

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

利用VB.NET设计Web菜单组件

业界热点: