Added type casting in some places and moved "optional" attribute to be AFTER that...
[mono.git] / mcs / class / Microsoft.VisualBasic / Microsoft.VisualBasic / Constants.cs
1 //
2 // Constants.cs
3 //
4 // Author:
5 //   Chris J Breisch (cjbreisch@altavista.net)
6 //
7 // (C) 2002 Chris J Breisch
8 //
9
10 //
11 // Copyright (c) 2002-2003 Mainsoft Corporation.
12 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
13 //
14 // Permission is hereby granted, free of charge, to any person obtaining
15 // a copy of this software and associated documentation files (the
16 // "Software"), to deal in the Software without restriction, including
17 // without limitation the rights to use, copy, modify, merge, publish,
18 // distribute, sublicense, and/or sell copies of the Software, and to
19 // permit persons to whom the Software is furnished to do so, subject to
20 // the following conditions:
21 // 
22 // The above copyright notice and this permission notice shall be
23 // included in all copies or substantial portions of the Software.
24 // 
25 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
26 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
27 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
28 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
29 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
30 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
31 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
32 //
33
34 using System;
35 using Microsoft.VisualBasic.CompilerServices;
36
37 namespace Microsoft.VisualBasic {
38         [StandardModule] 
39         sealed public class Constants {
40                 private Constants () {}
41
42                 // Declarations
43                 public const System.Int32 vbObjectError = (System.Int32)(-2147221504);
44                 public const System.String vbCrLf = "\r\n";
45                 public const System.String vbNewLine = "\r\n";
46                 public const System.String vbCr = "\r";
47                 public const System.String vbLf = "\n";
48                 public const System.String vbBack = "\b";
49                 public const System.String vbFormFeed = "\f";
50                 public const System.String vbTab = "\t";
51                 public const System.String vbVerticalTab = "\v";
52                 public const System.String vbNullChar = "\0";
53                 public const System.String vbNullString = "";
54
55                 public const AppWinStyle vbHide = AppWinStyle.Hide;
56                 public const AppWinStyle vbNormalFocus = AppWinStyle.NormalFocus;
57                 public const AppWinStyle vbMinimizedFocus = AppWinStyle.MinimizedFocus;
58                 public const AppWinStyle vbMaximizedFocus = AppWinStyle.MaximizedFocus;
59                 public const AppWinStyle vbNormalNoFocus = AppWinStyle.NormalNoFocus;
60                 public const AppWinStyle vbMinimizedNoFocus = AppWinStyle.MinimizedNoFocus;
61
62                 public const CallType vbMethod = CallType.Method;
63                 public const CallType vbGet = CallType.Get;
64                 public const CallType vbLet = CallType.Let;
65                 public const CallType vbSet = CallType.Set;
66
67                 public const CompareMethod vbBinaryCompare = CompareMethod.Binary;
68                 public const CompareMethod vbTextCompare = CompareMethod.Text;
69
70                 public const DateFormat vbGeneralDate = DateFormat.GeneralDate;
71                 public const DateFormat vbLongDate = DateFormat.LongDate;
72                 public const DateFormat vbShortDate = DateFormat.ShortDate;
73                 public const DateFormat vbLongTime = DateFormat.LongTime;
74                 public const DateFormat vbShortTime = DateFormat.ShortTime;
75
76                 public const FirstDayOfWeek vbUseSystemDayOfWeek = FirstDayOfWeek.System;
77                 public const FirstDayOfWeek vbSunday = FirstDayOfWeek.Sunday;
78                 public const FirstDayOfWeek vbMonday = FirstDayOfWeek.Monday;
79                 public const FirstDayOfWeek vbTuesday = FirstDayOfWeek.Tuesday;
80                 public const FirstDayOfWeek vbWednesday = FirstDayOfWeek.Wednesday;
81                 public const FirstDayOfWeek vbThursday = FirstDayOfWeek.Thursday;
82                 public const FirstDayOfWeek vbFriday = FirstDayOfWeek.Friday;
83                 public const FirstDayOfWeek vbSaturday = FirstDayOfWeek.Saturday;
84
85                 public const FileAttribute vbNormal = FileAttribute.Normal;
86                 public const FileAttribute vbReadOnly = FileAttribute.ReadOnly;
87                 public const FileAttribute vbHidden = FileAttribute.Hidden;
88                 public const FileAttribute vbSystem = FileAttribute.System;
89                 public const FileAttribute vbVolume = FileAttribute.Volume;
90                 public const FileAttribute vbDirectory = FileAttribute.Directory;
91                 public const FileAttribute vbArchive = FileAttribute.Archive;
92
93                 public const FirstWeekOfYear vbUseSystem = FirstWeekOfYear.System;
94                 public const FirstWeekOfYear vbFirstJan1 = FirstWeekOfYear.Jan1;
95                 public const FirstWeekOfYear vbFirstFourDays = FirstWeekOfYear.FirstFourDays;
96                 public const FirstWeekOfYear vbFirstFullWeek = FirstWeekOfYear.FirstFullWeek;
97
98                 public const VbStrConv vbUpperCase = VbStrConv.UpperCase;
99                 public const VbStrConv vbLowerCase = VbStrConv.LowerCase;
100                 public const VbStrConv vbProperCase = VbStrConv.ProperCase;
101                 public const VbStrConv vbWide = VbStrConv.Wide;
102                 public const VbStrConv vbNarrow = VbStrConv.Narrow;
103                 public const VbStrConv vbKatakana = VbStrConv.Katakana;
104                 public const VbStrConv vbHiragana = VbStrConv.Hiragana;
105                 public const VbStrConv vbSimplifiedChinese = VbStrConv.SimplifiedChinese;
106                 public const VbStrConv vbTraditionalChinese = VbStrConv.TraditionalChinese;
107                 public const VbStrConv vbLinguisticCasing = VbStrConv.LinguisticCasing;
108
109                 public const TriState vbUseDefault = TriState.UseDefault;
110                 public const TriState vbTrue = TriState.True;
111                 public const TriState vbFalse = TriState.False;
112
113                 public const VariantType vbEmpty = VariantType.Empty;
114                 public const VariantType vbNull = VariantType.Null;
115                 public const VariantType vbInteger = VariantType.Integer;
116                 public const VariantType vbLong = VariantType.Long;
117                 public const VariantType vbSingle = VariantType.Single;
118                 public const VariantType vbDouble = VariantType.Double;
119                 public const VariantType vbCurrency = VariantType.Currency;
120                 public const VariantType vbDate = VariantType.Date;
121                 public const VariantType vbString = VariantType.String;
122                 public const VariantType vbObject = VariantType.Object;
123                 public const VariantType vbBoolean = VariantType.Boolean;
124                 public const VariantType vbVariant = VariantType.Variant;
125                 public const VariantType vbDecimal = VariantType.Decimal;
126                 public const VariantType vbByte = VariantType.Byte;
127                 public const VariantType vbUserDefinedType = VariantType.UserDefinedType;
128                 public const VariantType vbArray = VariantType.Array;
129
130                 public const MsgBoxResult vbOK = MsgBoxResult.OK;
131                 public const MsgBoxResult vbCancel = MsgBoxResult.Cancel;
132                 public const MsgBoxResult vbAbort = MsgBoxResult.Abort;
133                 public const MsgBoxResult vbRetry = MsgBoxResult.Retry;
134                 public const MsgBoxResult vbIgnore = MsgBoxResult.Ignore;
135                 public const MsgBoxResult vbYes = MsgBoxResult.Yes;
136                 public const MsgBoxResult vbNo = MsgBoxResult.No;
137
138                 public const MsgBoxStyle vbOKOnly = MsgBoxStyle.OKOnly;
139                 public const MsgBoxStyle vbOKCancel = MsgBoxStyle.OKCancel;
140                 public const MsgBoxStyle vbAbortRetryIgnore = MsgBoxStyle.AbortRetryIgnore;
141                 public const MsgBoxStyle vbYesNoCancel = MsgBoxStyle.YesNoCancel;
142                 public const MsgBoxStyle vbYesNo = MsgBoxStyle.YesNo;
143                 public const MsgBoxStyle vbRetryCancel = MsgBoxStyle.RetryCancel;
144                 public const MsgBoxStyle vbCritical = MsgBoxStyle.Critical;
145                 public const MsgBoxStyle vbQuestion = MsgBoxStyle.Question;
146                 public const MsgBoxStyle vbExclamation = MsgBoxStyle.Exclamation;
147                 public const MsgBoxStyle vbInformation = MsgBoxStyle.Information;
148                 public const MsgBoxStyle vbDefaultButton1 = MsgBoxStyle.DefaultButton1;
149                 public const MsgBoxStyle vbDefaultButton2 = MsgBoxStyle.DefaultButton2;
150                 public const MsgBoxStyle vbDefaultButton3 = MsgBoxStyle.DefaultButton3;
151                 public const MsgBoxStyle vbApplicationModal = MsgBoxStyle.ApplicationModal;
152                 public const MsgBoxStyle vbSystemModal = MsgBoxStyle.SystemModal;
153                 public const MsgBoxStyle vbMsgBoxHelp = MsgBoxStyle.MsgBoxHelp;
154                 public const MsgBoxStyle vbMsgBoxRight = MsgBoxStyle.MsgBoxRight;
155                 public const MsgBoxStyle vbMsgBoxRtlReading = MsgBoxStyle.MsgBoxRtlReading;
156                 public const MsgBoxStyle vbMsgBoxSetForeground = MsgBoxStyle.MsgBoxSetForeground;
157
158                 // Constructors
159                 // Properties
160                 // Methods
161                 // Events
162         };
163 }