inotify.cls

来自「VB圣经」· CLS 代码 · 共 31 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "IQuickNotify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit

Public Sub ListString(ByVal Index As Long, Text As String)
Attribute ListString.VB_Description = "Called when an item is drawn if the StoreStrings property is False."

End Sub
Public Sub QuerySetSelection(ByVal Index As Long, ByVal SelState As Boolean, Cancel As Boolean, Message As String, MessageTitle As String, MessageFlags As VBA.VbMsgBoxStyle)
Attribute QuerySetSelection.VB_Description = "Called when the selection of an item  is about to change for a simple multiselect ListBox.  Set cancel to True to prevent selection.  Fill in Message parameters to show a message (don't show a message box yourself)."

End Sub