
686
|
Appendix C: Constants and Enumerations
This is the Title of the Book, eMatter Edition
Copyright © 2006 O’Reilly & Associates, Inc. All rights reserved.
Hidden = 2 ' vbHidden
System = 4 ' vbSystem
Volume = 8 ' vbVolume
Directory = 16 ' vbDirectory
Archive = 32 ' vbArchive
End Enum
FirstDayOfWeek Enumeration
Enum FirstDayOfWeek
System = 0 ' vbUseSystemDayOfWeek
Sunday = 1 ' vbSunday
Monday = 2 ' vbMonday
Tuesday = 3 ' vbTuesday
Wednesday = 4 ' vbWednesday
Thursday = 5 ' vbThursday
Friday = 6 ' vbFriday
Saturday = 7 ' vbSaturday
End Enum
FirstWeekOfYear Enumeration
Enum FirstWeekOfYear
System = 0 ' vbUseSystem
Jan1 = 1 ' vbFirstJan1
FirstFourDays = 2 ' vbFirstFourDays
FirstFullWeek = 3 ' vbFirstFullWeek
End Enum
MsgBoxResult Enumeration
Enum MsgBoxResult
OK = 1 ' vbOK
Cancel = 2 ' vbCancel
Abort = 3 ' vbAbort
Retry = 4 ' vbRetry
Ignore = 5 ' vbIgnore
Yes = 6 ' vbYes
No = 7 ' vbNo
End Enum
MsgBoxStyle Enumeration
Enum MsgBoxStyle
DefaultButton1 = &H00000000 ' vbDefaultButton1
ApplicationModal = &H00000000 ' vbApplicationModal
OKOnly = &H00000000 ' vbOKOnly
OKCancel = &H00000001 ' vbOKCancel
AbortRetryIgnore = &H00000002 ' vbAbortRetryIgnore
YesNoCancel = &H00000003 ' vbYesNoCancel
YesNo = &H00000004 ' vbYesNo
RetryCancel = &H00000005 ' vbRetryCancel
Critical = &H00000010 ' vbCritical
Question = &H00000020 ' vbQuestion