clsmyitemdata.cls

入侵检测是近几年发展起来的新型网络安全策略

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsMyItemData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2006/12/23
'描    述：非常专业的防火墙源代码
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
''  CMyItemData Class v1.3
''
''  Copyright Olivier Martin 2000
''
''  [e-mail]
''
''  This class will contain information about
''  a converted menu item.  It as the following
''  properties:
''
''  bAsCheck  : If the mark is a check
''  bAsMark   : If the item as a mark (no pic)
''  bMainMenu : If it's a main menu bar item
''  fType     : The type of menu item (flags)
''  iButton   : The index of the image list
''  sMenuText : The text of the menu item
''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

Private mvarsMenuText               As String 'local copy
Private mvarfType                   As Long 'local copy
Private mvariButton                 As Integer 'local copy
Private mvarbMainMenu               As Boolean 'local copy
Private mvarbAsCheck                As Boolean 'local copy
Private mvarbAsMark                 As Boolean 'local copy
Private mvarsMenuHelp               As String 'local copy
Private mvarbTrueSub                As Boolean 'local copy
Public Property Let bTrueSub(ByVal vData As Boolean)
    mvarbTrueSub = vData
End Property
Public Property Get bTrueSub() As Boolean
    bTrueSub = mvarbTrueSub
End Property
Public Property Let sMenuHelp(ByVal vData As String)
    mvarsMenuHelp = vData
End Property
Public Property Get sMenuHelp() As String
    sMenuHelp = mvarsMenuHelp
End Property
Public Property Let bAsMark(ByVal vData As Boolean)
    mvarbAsMark = vData
End Property
Public Property Get bAsMark() As Boolean
    bAsMark = mvarbAsMark
End Property
Public Property Let bAsCheck(ByVal vData As Boolean)
    mvarbAsCheck = vData
End Property
Public Property Get bAsCheck() As Boolean
    bAsCheck = mvarbAsCheck
End Property
Public Property Let bMainMenu(ByVal vData As Boolean)
    mvarbMainMenu = vData
End Property
Public Property Get bMainMenu() As Boolean
    bMainMenu = mvarbMainMenu
End Property
Public Property Let iButton(ByVal vData As Integer)
    mvariButton = vData
End Property
Public Property Get iButton() As Integer
    iButton = mvariButton
End Property
Public Property Let fType(ByVal vData As Long)
    mvarfType = vData
End Property
Public Property Get fType() As Long
    fType = mvarfType
End Property
Public Property Let sMenuText(ByVal vData As String)
    mvarsMenuText = vData
End Property
Public Property Get sMenuText() As String
    sMenuText = mvarsMenuText
End Property