File: Microsoft\VisualBasic\Globals.vb
Web Access
Project: src\src\libraries\Microsoft.VisualBasic.Core\src\Microsoft.VisualBasic.Core.vbproj (Microsoft.VisualBasic.Core)
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
 
Imports System
 
Namespace Global.Microsoft.VisualBasic
 
    Public Enum VariantType
        Empty = 0
        Null = 1
        [Short] = 2
        [Integer] = 3
        [Single] = 4
        [Double] = 5
        Currency = 6
        [Date] = 7
        [String] = 8
        [Object] = 9
        [Error] = 10
        [Boolean] = 11
        [Variant] = 12
        [DataObject] = 13
        [Decimal] = 14
        [Byte] = 17
        [Char] = 18
        [Long] = 20
        UserDefinedType = 36
        Array = 8192
    End Enum
 
    Public Enum AppWinStyle As Short
        Hide = 0
        NormalFocus = 1
        MinimizedFocus = 2
        MaximizedFocus = 3
        NormalNoFocus = 4
        MinimizedNoFocus = 6
    End Enum
 
    Public Enum CallType
        Method = 1
        [Get] = 2
        [Let] = 4
        [Set] = 8
    End Enum
 
    Public Enum CompareMethod
        [Binary] = 0
        [Text] = 1
    End Enum
 
    Public Enum DateFormat
        GeneralDate = 0
        LongDate = 1
        ShortDate = 2
        LongTime = 3
        ShortTime = 4
    End Enum
 
    Public Enum FirstDayOfWeek
        System = 0
        Sunday = 1
        Monday = 2
        Tuesday = 3
        Wednesday = 4
        Thursday = 5
        Friday = 6
        Saturday = 7
    End Enum
 
    <Flags()> Public Enum FileAttribute
        [Normal] = 0
        [ReadOnly] = 1
        [Hidden] = 2
        [System] = 4
        [Volume] = 8
        [Directory] = 16
        [Archive] = 32
    End Enum
 
    Public Enum FirstWeekOfYear
        System = 0
        Jan1 = 1
        FirstFourDays = 2
        FirstFullWeek = 3
    End Enum
 
    <Flags()> Public Enum VbStrConv
        [None] = 0
        [Uppercase] = 1
        [Lowercase] = 2
        [ProperCase] = 3
        [Wide] = 4
        [Narrow] = 8
        [Katakana] = 16
        [Hiragana] = 32
        '[Unicode]      = 64 'OBSOLETE
        '[FromUnicode]   = 128 'OBSOLETE
        [SimplifiedChinese] = 256
        [TraditionalChinese] = 512
        [LinguisticCasing] = 1024
    End Enum
 
    Public Enum TriState
        [False] = 0
        [True] = -1
        [UseDefault] = -2
    End Enum
 
    Public Enum DateInterval
        [Year] = 0
        [Quarter] = 1
        [Month] = 2
        [DayOfYear] = 3
        [Day] = 4
        [WeekOfYear] = 5
        [Weekday] = 6
        [Hour] = 7
        [Minute] = 8
        [Second] = 9
    End Enum
 
    Public Enum DueDate
        EndOfPeriod = 0
        BegOfPeriod = 1
    End Enum
 
    Public Enum OpenMode
        [Input] = 1
        [Output] = 2
        [Random] = 4
        [Append] = 8
        [Binary] = 32
    End Enum
 
    Friend Enum OpenModeTypes
        [Input] = 1
        [Output] = 2
        [Random] = 4
        [Append] = 8
        [Binary] = 32
        [Any] = -1
    End Enum
 
    Public Enum OpenAccess
        [Default] = -1
        [Read] = System.IO.FileAccess.Read
        [ReadWrite] = System.IO.FileAccess.ReadWrite
        [Write] = System.IO.FileAccess.Write
    End Enum
 
    Public Enum OpenShare
        [Default] = -1
        [Shared] = System.IO.FileShare.ReadWrite
        [LockRead] = System.IO.FileShare.Write
        [LockReadWrite] = System.IO.FileShare.None
        [LockWrite] = System.IO.FileShare.Read
    End Enum
 
    <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)>
    Public Structure TabInfo
        Public Column As Short
    End Structure
 
    <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)>
    Public Structure SpcInfo
        Public Count As Short
    End Structure
 
    Public Enum MsgBoxResult
        Ok = 1
        Cancel = 2
        Abort = 3
        Retry = 4
        Ignore = 5
        Yes = 6
        No = 7
    End Enum
 
    <Flags()>
    Public Enum MsgBoxStyle
        'You may BitOr one value from each group
        'Button group: Lower 4 bits, &H00F 
        OkOnly = &H0I
        OkCancel = &H1I
        AbortRetryIgnore = &H2I
        YesNoCancel = &H3I
        YesNo = &H4I
        RetryCancel = &H5I
 
        'Icon Group: Middle 4 bits &H0F0
        Critical = &H10I     'Same as Windows.Forms.MessageBox.IconError
        Question = &H20I     'Same As Windows.MessageBox.IconQuestion
        Exclamation = &H30I  'Same As Windows.MessageBox.IconExclamation
        Information = &H40I  'Same As Windows.MessageBox.IconInformation
 
        'Default Group: High 4 bits &HF00
        DefaultButton1 = 0
        DefaultButton2 = &H100I
        DefaultButton3 = &H200I
        'UNSUPPORTED IN VB7
        'DefaultButton4 = &H300I
 
        ApplicationModal = &H0I
        SystemModal = &H1000I
 
        MsgBoxHelp = &H4000I
        MsgBoxRight = &H80000I
        MsgBoxRtlReading = &H100000I
        MsgBoxSetForeground = &H10000I
    End Enum
 
End Namespace