Projects

QuickQuery Half-Life Edition

April 11, 2007 by Java

Browsing QuickQuery HL Edition/CMyItemData.cls (2.60 KB)

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CMyItemData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Description = "Existe un pour chaque �l�ment de menu OWNERDRAW"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

Option Explicit

Private mvarsMenuText As String
Private mvarfType As Long
Private mvarfState As Long
Private mvariButton As Integer
Private mvarbMainMenu As Boolean
Private mvarbAsCheck As Boolean
Private mvarbAsMark As Boolean
Private mvarsMenuHelp As String
Private mvarbTrueSub As Boolean

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)
Attribute iButton.VB_Description = "Indexe de l'image"
    mvariButton = vData
End Property

Public Property Get iButton() As Integer
    iButton = mvariButton
End Property

Public Property Let fType(ByVal vData As Long)
Attribute fType.VB_Description = "Type d'�l�ment (item type) original"
    mvarfType = vData
End Property

Public Property Let fState(ByVal vData As Long)
    mvarfState = vData
End Property

Public Property Get fType() As Long
    fType = mvarfType
End Property

Public Property Get fState() As Long
    fState = mvarfState
End Property

Public Property Let sMenuText(ByVal vData As String)
Attribute sMenuText.VB_Description = "Le texte du menu"
    mvarsMenuText = vData
End Property

Public Property Get sMenuText() As String
    sMenuText = mvarsMenuText
End Property

Download QuickQuery HL Edition/CMyItemData.cls

Back to file list

---

Back to project page