5 // Chris J Breisch (cjbreisch@altavista.net)
6 // Francesco Delfino (pluto@tipic.com)
7 // Rafael Teixeira (rafaelteixeirabr@hotmail.com)
9 // (C) 2002 Chris J Breisch
10 // 2003 Tipic, Inc. (http://www.tipic.com)
11 // 2004 Rafael Teixeira
16 namespace Microsoft.VisualBasic
\r
18 [Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]
19 sealed public class Information {
25 public static Microsoft.VisualBasic.ErrObject Err () {
26 return Microsoft.VisualBasic.CompilerServices.ProjectData.Err;
29 [System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Never)]
30 public static System.Int32 Erl () { throw new NotImplementedException (); }
32 public static System.Boolean IsArray (System.Object VarName) { throw new NotImplementedException (); }
34 public static System.Boolean IsDate (System.Object Expression) { throw new NotImplementedException (); }
36 public static System.Boolean IsDBNull (System.Object Expression) { throw new NotImplementedException (); }
38 public static System.Boolean IsNothing (System.Object Expression) {
39 return (Expression == null);
43 public static System.Boolean IsError (System.Object Expression) { throw new NotImplementedException (); }
45 public static System.Boolean IsReference (System.Object Expression) { throw new NotImplementedException (); }
47 public static System.Boolean IsNumeric (System.Object Expression)
49 if (Expression == null || Expression is DateTime)
52 if (Expression is Int16 || Expression is Int32 || Expression is Int64 || Expression is Decimal ||
53 Expression is Single || Expression is Double)
57 if (Expression is string)
58 Double.Parse(Expression as string);
60 Double.Parse(Expression.ToString());
62 } catch {} // just dismiss errors but return false
68 public static System.Int32 LBound (System.Array Array, [System.Runtime.InteropServices.Optional] [System.ComponentModel.DefaultValue(1)] System.Int32 Rank) { throw new NotImplementedException (); }
70 public static System.Int32 UBound (System.Array Array, [System.Runtime.InteropServices.Optional] [System.ComponentModel.DefaultValue(1)] System.Int32 Rank) { throw new NotImplementedException (); }
72 public static System.String TypeName (System.Object VarName) { throw new NotImplementedException (); }
74 public static System.String SystemTypeName (System.String VbName) { throw new NotImplementedException (); }
76 public static System.String VbTypeName (System.String UrtName) { throw new NotImplementedException (); }
78 public static System.Int32 QBColor (System.Int32 Color) { throw new NotImplementedException (); }
80 public static System.Int32 RGB (System.Int32 Red, System.Int32 Green, System.Int32 Blue) { throw new NotImplementedException (); }
82 public static Microsoft.VisualBasic.VariantType VarType (System.Object VarName) { throw new NotImplementedException (); }