VB.NET to C# Differences

by Fred Mastro 11. March 2010 16:05

Found this great link today by Dr. Frank McCown over at Harding University Computer Science Dept from 2009.

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

VB.NET

Program Structure

Imports System
Namespace Hello
   Class HelloWorld
      Overloads Shared Sub Main(ByVal args() As String)
         Dim name As String = "VB.NET"
'See if an argument was passed from the command line
          If args.Length = 1 Then name = args(0)
          Console.WriteLine("Hello, " & name & "!")
      End Sub
   End Class
End Namespace

using System;
namespace Hello {
   public class HelloWorld {
      public static void Main(string[] args) {
         string name = "C#";
// See if an argument was passed from the command line
         if (args.Length == 1)
            name = args[0];
         Console.WriteLine("Hello, " + name + "!");
      }
   }
}

VB.NET

Comments

' Single line only
REM Single line only
''' <summary>XML comments</summary>

// Single line
/* Multiple
line */
/// <summary>XML comments on single line</summary>
/** <summary>XML comments on multiple lines</summary> */

VB.NET

Data Types

Value Types
Boolean
Byte, SByte
Char
Short, UShort, Integer, UInteger, Long, ULong
Single, Double
Decimal
Date

Reference Types
Object
String

Initializing
Dim correct As Boolean = True
Dim b As Byte = &H2A 'hex
Dim o As Byte = &O52 'octal
Dim person As Object = Nothing
Dim name As String = "Dwight"
Dim grade As Char = "B"c
Dim today As Date = #12/31/2007 12:15:00 PM#
Dim amount As Decimal = 35.99@
Dim gpa As Single = 2.9!
Dim pi As Double = 3.14159265
Dim lTotal As Long = 123456L
Dim sTotal As Short = 123S
Dim usTotal As UShort = 123US
Dim uiTotal As UInteger = 123UI
Dim ulTotal As ULong = 123UL

Type Information
Dim x As Integer
Console.WriteLine(x.GetType())          ' Prints System.Int32
Console.WriteLine(GetType(Integer))   ' Prints System.Int32
Console.WriteLine(TypeName(x))        ' Prints Integer

Type Conversion
Dim d As Single = 3.5
Dim i As Integer = CType(d, Integer) ' set to 4 (Banker's rounding)
i = CInt(d) ' same result as CType
i = Int(d) ' set to 3 (Int function truncates the decimal)

Value Types
bool
byte, sbyte
char
short, ushort, int, uint, long, ulong
float, double
decimal
DateTime (not a built-in C# type)

Reference Types
object
string

Initializing
bool correct = true;
byte b = 0x2A; // hex
object person = null;
string name = "Dwight";
char grade = 'B';
DateTime today = DateTime.Parse("12/31/2007 12:15:00");
decimal amount = 35.99m;
float gpa = 2.9f;
double pi = 3.14159265;
long lTotal = 123456L;
short sTotal = 123;
ushort usTotal = 123;
uint uiTotal = 123;
ulong ulTotal = 123;

Type Information
int x;
Console.WriteLine(x.GetType());              // Prints System.Int32
Console.WriteLine(typeof(int));               // Prints System.Int32
Console.WriteLine(x.GetType().Name);   // prints Int32

Type Conversion
float d = 3.5f;
int i = (int)d; // set to 3 (truncates decimal)

VB.NET

Constants

Const MAX_STUDENTS As Integer = 25

' Can set to a const or var; may be initialized in a constructor
ReadOnly MIN_DIAMETER As Single = 4.93

const int MAX_STUDENTS = 25;

// Can set to a const or var; may be initialized in a constructor
readonly float MIN_DIAMETER = 4.93f;

VB.NET

Enumerations

Enum Action
Start
[Stop]   ' Stop is a reserved word
Rewind
Forward
End Enum
Enum Status
Flunk = 50
Pass = 70
Excel = 90
End Enum

Dim a As Action = Action.Stop
If a <> Action.Start Then _
   Console.WriteLine(a.ToString & " is " & a)     ' Prints "Stop is 1"
Console.WriteLine(Status.Pass)     ' Prints 70
Console.WriteLine(Status.Pass.ToString())     ' Prints Pass

enum Action {Start, Stop, Rewind, Forward};
enum Status {Flunk = 50, Pass = 70, Excel = 90};
Action a = Action.Stop;
if (a != Action.Start)
Console.WriteLine(a + " is " + (int) a);    // Prints "Stop is 1"
Console.WriteLine((int) Status.Pass);    // Prints 70
Console.WriteLine(Status.Pass);      // Prints Pass

VB.NET

Operators

Comparison
= < > <= >= <>

Arithmetic
+ - * /
Mod
\ (integer division)
^ (raise to a power)

Assignment
= += -= *= /= \= ^= <<= >>= &=

Bitwise
And Or Xor Not << >>

Logical
AndAlso OrElse And Or Xor Not

Note: AndAlso and OrElse perform short-circuit logical evaluations

String Concatenation
&

Comparison
== < > <= >= !=

Arithmetic
+ - * /
% (mod)
/ (integer division if both operands are ints)
Math.Pow(x, y)

Assignment
= += -= *= /= %= &= |= ^= <<= >>= ++ --

Bitwise
& | ^ ~ << >>

Logical
&& || & | ^ !

Note: && and || perform short-circuit logical evaluations

String Concatenation
+

VB.NET

Choices

' Ternary/Conditional operator (Iff evaluates 2nd and 3rd expressions)
greeting = If(age < 20, "What's up?", "Hello")

' One line doesn't require "End If"
If age < 20 Then greeting = "What's up?"
If age < 20 Then greeting = "What's up?" Else greeting = "Hello"

' Use : to put two commands on same line
If x <> 100 AndAlso y < 5 Then x *= 5 : y *= 2

' Preferred
If x <> 100 AndAlso y < 5 Then
x *= 5
y *= 2
End If

' To break up any long single line use _
If whenYouHaveAReally < longLine And _
itNeedsToBeBrokenInto2 > Lines Then _
UseTheUnderscore(charToBreakItUp)

'If x > 5 Then
x *= y
ElseIf x = 5 OrElse y Mod 2 = 0 Then
x += y
ElseIf x < 10 Then
x -= y
Else
x /= y
End If

Select Case color   ' Must be a primitive data type
Case "pink", "red"
    r += 1
Case "blue"
    b += 1
Case "green"
    g += 1
Case Else
    other += 1
End Select

// Ternary/Conditional operator
greeting = age < 20 ? "What's up?" : "Hello";

if (age < 20)
greeting = "What's up?";
else
greeting = "Hello";

// Multiple statements must be enclosed in {}
if (x != 100 && y < 5) {
x *= 5;
y *= 2;
}

No need for _ or : since ; is used to terminate each statement.

if (x > 5)
x *= y;
else if (x == 5 || y % 2 == 0)
x += y;
else if (x < 10)
x -= y;
else
x /= y;

// Every case must end with break or goto case
switch (color) {                          // Must be integer or string
case "pink":
case "red":    r++;    break;
case "blue":   b++;   break;
case "green": g++;   break;
default:    other++; break; // break necessary on default
}

VB.NET

Loops

Pre-test Loops:
While c < 10 c += 1 End While	Do Until c = 10 c += 1 Loop
Do While c < 10 c += 1 Loop	For c = 2 To 10 Step 2 Console.WriteLine(c) Next
Post-test Loops:
Do c += 1 Loop While c < 10	Do c += 1 Loop Until c = 10

' Array or collection looping
Dim names As String() = {"Fred", "Sue", "Barney"}
For Each s As String In names
Console.WriteLine(s)
Next

' Breaking out of loops
Dim i As Integer = 0
While (True)
If (i = 5) Then Exit While
i += 1
End While

' Continue to next iteration
For i = 0 To 4
If i < 4 Then Continue For
Console.WriteLine(i) ' Only prints 4
Next

Pre-test Loops:

// no "until" keyword
while (c < 10)
c++;
for (c = 2; c <= 10; c += 2)
Console.WriteLine(c);

Post-test Loop:
do
c++;
while (c < 10);

// Array or collection looping
string[] names = {"Fred", "Sue", "Barney"};
foreach (string s in names)
Console.WriteLine(s);

// Breaking out of loops
int i = 0;
while (true) {
if (i == 5)
break;
i++;
}

// Continue to next iteration
for (i = 0; i < 5; i++) {
if (i < 4)
continue;
Console.WriteLine(i); // Only prints 4
}

VB.NET

Arrays

Dim nums() As Integer = {1, 2, 3}
For i As Integer = 0 To nums.Length - 1
Console.WriteLine(nums(i))
Next
' 4 is the index of the last element, so it holds 5 elements
Dim names(4) As String
names(0) = "David"
names(5) = "Bobby" ' Throws System.IndexOutOfRangeException
' Resize the array, keeping the existing values (Preserve is optional)
ReDim Preserve names(6)

Dim twoD(rows-1, cols-1) As Single
twoD(2, 0) = 4.5
Dim jagged()() As Integer = { _
New Integer(4) {}, New Integer(1) {}, New Integer(2) {} }
jagged(0)(4) = 5

int[] nums = {1, 2, 3};
for (int i = 0; i < nums.Length; i++)
Console.WriteLine(nums[i]);
// 5 is the size of the array
string[] names = new string[5];
names[0] = "David";
names[5] = "Bobby"; // Throws System.IndexOutOfRangeException
// C# can't dynamically resize an array. Just copy into new array.
string[] names2 = new string[7];
Array.Copy(names, names2, names.Length); // or names.CopyTo(names2, 0);

float[,] twoD = new float[rows, cols];
twoD[2,0] = 4.5f;

int[][] jagged = new int[3][] {
new int[5], new int[2], new int[3] };
jagged[0][4] = 5;

VB.NET

Functions

' Pass by value (in, default), reference (in/out), and reference (out)
Sub TestFunc(ByVal x As Integer, ByRef y As Integer, ByRefz As Integer)
x += 1
y += 1
z = 5
End Sub

Dim a = 1, b = 1, c As Integer ' c set to zero by default
TestFunc(a, b, c)
Console.WriteLine("{0} {1} {2}", a, b, c) ' 1 2 5

' Accept variable number of arguments
Function Sum(ByVal ParamArray nums As Integer()) As Integer
Sum = 0
For Each i As Integer In nums
Sum += i
Next
End Function ' Or use Return statement like C#
Dim total As Integer = Sum(4, 3, 2, 1) ' returns 10

' Optional parameters must be listed last and must have a default value
Sub SayHello(ByVal name As String, Optional ByVal prefix As String = "")
Console.WriteLine("Greetings, " & prefix & " " & name)
End Sub
SayHello("Strangelove", "Dr.")
SayHello("Madonna")

// Pass by value (in, default), reference (in/out), and reference (out)
void TestFunc(int x, ref int y, out int z) {
x++;
y++;
z = 5;
}

int a = 1, b = 1, c; // c doesn't need initializing
TestFunc(a, ref b, out c);
Console.WriteLine("{0} {1} {2}", a, b, c); // 1 2 5

// Accept variable number of arguments
int Sum(params int[] nums) {
int sum = 0;
foreach (int i in nums)
sum += i;
return sum;
}

int total = Sum(4, 3, 2, 1); // returns 10

/* C# doesn't support optional arguments/parameters. Just create two different versions of the same function. */
void SayHello(string name, string prefix) {
Console.WriteLine("Greetings, " + prefix + " " + name);
}
void SayHello(string name) {
SayHello(name, "");
}

VB.NET

Strings

Special character constants (all also accessible from ControlChars class)
vbCrLf, vbCr, vbLf, vbNewLine
vbNullString
vbTab
vbBack
vbFormFeed
vbVerticalTab
""

' String concatenation (use & or +)
Dim school As String = "Harding" & vbTab
school = school & "University" ' school is "Harding (tab) University"

' Chars
Dim letter As Char = school.Chars(0)   ' letter is H
letter = Convert.ToChar(65)                ' letter is A
letter = Chr(65)                                 ' same thing
Dim word() As Char = school.ToCharArray() ' word holds Harding

' No string literal operator
Dim msg As String = "File is c:\temp\x.dat"

' String comparison
Dim mascot As String = "Bisons"
If (mascot = "Bisons") Then   ' true
If (mascot.Equals("Bisons")) Then   ' true
If (mascot.ToUpper().Equals("BISONS")) Then ' true
If (mascot.CompareTo("Bisons") = 0) Then   ' true

' String matching with Like - Regex is more powerful
If ("John 3:16" Like "Jo[Hh]? #:*") Then 'true

' Substring
s = mascot.Substring(2, 3)) ' s is "son"

' Replacement
s = mascot.Replace("sons", "nomial")) ' s is "Binomial"

' Split
Dim names As String = "Frank,Becky,Ethan,Braden"
Dim parts() As String = names.Split(",".ToCharArray()) ' One name in each slot

' Date to string
Dim dt As New DateTime(1973, 10, 12)
Dim s As String = "My birthday: " & dt.ToString("MMM dd, yyyy") ' Oct 12, 1973

' Integer to String
Dim x As Integer = 2
Dim y As String = x.ToString() ' y is "2"

' String to Integer
Dim x As Integer = Convert.ToInt32("-5") ' x is -5

' Mutable string
Dim buffer As New System.Text.StringBuilder("two ")
buffer.Append("three ")
buffer.Insert(0, "one ")
buffer.Replace("two", "TWO")
Console.WriteLine(buffer) ' Prints "one TWO three"

Escape sequences
\r    // carriage-return
\n    // line-feed
\t    // tab
\\    // backslash
\"    // quote

// String concatenation
string school = "Harding\t";
school = school + "University"; // school is "Harding (tab) University"

// Chars
char letter = school[0];            // letter is H
letter = Convert.ToChar(65);     // letter is A
letter = (char)65;                    // same thing
char[] word = school.ToCharArray();   // word holds Harding

// String literal
string msg = @"File is c:\temp\x.dat";
// same as
string msg = "File is c:\\temp\\x.dat";

// String comparison
string mascot = "Bisons";
if (mascot == "Bisons")    // true
if (mascot.Equals("Bisons"))   // true
if (mascot.ToUpper().Equals("BISONS"))   // true
if (mascot.CompareTo("Bisons") == 0)    // true

// String matching - No Like equivalent, use Regex

// Substring
s = mascot.Substring(2, 3)) // s is "son"

// Replacement
s = mascot.Replace("sons", "nomial")) // s is "Binomial"

// Split
string names = "Frank,Becky,Ethan,Braden";
string[] parts = names.Split(",".ToCharArray()); // One name in each slot

// Date to string
DateTime dt = new DateTime(1973, 10, 12);
string s = dt.ToString("MMM dd, yyyy"); // Oct 12, 1973

// int to string
int x = 2;
string y = x.ToString(); // y is "2"

// string to int
int x = Convert.ToInt32("-5"); // x is -5

// Mutable string
System.Text.StringBuilder buffer = new System.Text.StringBuilder("two ");
buffer.Append("three ");
buffer.Insert(0, "one ");
buffer.Replace("two", "TWO");
Console.WriteLine(buffer); // Prints "one TWO three"

VB.NET

Regular Expressions

Imports System.Text.RegularExpressions

' Match a string pattern
Dim r As New Regex("j[aeiou]h?. \d:*", RegexOptions.IgnoreCase Or _
        RegexOptions.Compiled)
If (r.Match("John 3:16").Success) Then   'true
    Console.WriteLine("Match")
End If

' Find and remember all matching patterns
Dim s As String = "My number is 305-1881, not 305-1818."
Dim r As New Regex("(\d+-\d+)")
Dim m As Match = r.Match(s)     ' Matches 305-1881 and 305-1818
While m.Success
    Console.WriteLine("Found number: " & m.Groups(1).Value & " at position " _
            & m.Groups(1).Index.ToString)
    m = m.NextMatch()
End While

' Remeber multiple parts of matched pattern
Dim r As New Regex("(\d\d):(\d\d) (am|pm)")
Dim m As Match = r.Match("We left at 03:15 pm.")
If m.Success Then
    Console.WriteLine("Hour: " & m.Groups(1).ToString)       ' 03
    Console.WriteLine("Min: " & m.Groups(2).ToString)         ' 15
    Console.WriteLine("Ending: " & m.Groups(3).ToString)   ' pm
End If

' Replace all occurrances of a pattern
Dim r As New Regex("h\w+?d", RegexOptions.IgnoreCase)
Dim s As String = r.Replace("I heard this was HARD!", "easy") ' I easy this was easy!

' Replace matched patterns
Dim s As String = Regex.Replace("123 < 456", "(\d+) . (\d+)", "$2 > $1") ' 456 > 123

' Split a string based on a pattern
Dim names As String = "Frank, Becky, Ethan, Braden"
Dim r As New Regex(",\s*")
Dim parts() As String = r.Split(names) ' One name in each slot

using System.Text.RegularExpressions;

// Match a string pattern
Regex r = new Regex(@"j[aeiou]h?. \d:*", RegexOptions.IgnoreCase |
        RegexOptions.Compiled);
if (r.Match("John 3:16").Success)   // true
    Console.WriteLine("Match");

// Find and remember all matching patterns
string s = "My number is 305-1881, not 305-1818.";
Regex r = new Regex("(\\d+-\\d+)");
// Matches 305-1881 and 305-1818
for (Match m = r.Match(s); m.Success; m = m.NextMatch())
Console.WriteLine("Found number: " + m.Groups[1] + " at position " +
m.Groups[1].Index);

// Remeber multiple parts of matched pattern
Regex r = new Regex("@(\d\d):(\d\d) (am|pm)");
Match m = r.Match("We left at 03:15 pm.");
if (m.Success) {
    Console.WriteLine("Hour: " + m.Groups[1]);       // 03
    Console.WriteLine("Min: " + m.Groups[2]);         // 15
    Console.WriteLine("Ending: " + m.Groups[3]);   // pm
}

// Replace all occurrances of a pattern
Regex r = new Regex("h\\w+?d", RegexOptions.IgnoreCase);
string s = r.Replace("I heard this was HARD!", "easy")); // I easy this was easy!

// Replace matched patterns
string s = Regex.Replace("123 < 456", @"(\d+) . (\d+)", "$2 > $1"); // 456 > 123

// Split a string based on a pattern
string names = "Frank, Becky, Ethan, Braden";
Regex r = new Regex(@",\s*");
string[] parts = r.Split(names); // One name in each slot

VB.NET

Exception Handling

' Throw an exception
Dim ex As New Exception("Something is really wrong.")
Throw ex

' Catch an exception
Try
y = 0
x = 10 / y
Catch ex As Exception When y = 0 ' Argument and When is optional
Console.WriteLine(ex.Message)
Finally
Beep()
End Try

' Deprecated unstructured error handling
On Error GoTo MyErrorHandler
...
MyErrorHandler: Console.WriteLine(Err.Description)

// Throw an exception
Exception up = new Exception("Something is really wrong.");
throw up; // ha ha

// Catch an exception
try {
y = 0;
x = 10 / y;
}
catch (Exception ex) { // Argument is optional, no "When" keyword
Console.WriteLine(ex.Message);
}
finally {
Microsoft.VisualBasic.Interaction.Beep();
}

VB.NET

Namespaces

Namespace Harding.Compsci.Graphics
...
End Namespace

' or

Namespace Harding
Namespace Compsci
Namespace Graphics
...
End Namespace
End Namespace
End Namespace

Imports Harding.Compsci.Graphics

namespace Harding.Compsci.Graphics {
...
}

// or

namespace Harding {
namespace Compsci {
namespace Graphics {
...
}
}
}

using Harding.Compsci.Graphics;

VB.NET

Classes / Interfaces

Accessibility keywords
Public
Private
Friend
Protected
Protected Friend
Shared

' Inheritance
Class FootballGame
Inherits Competition
...
End Class

' Interface definition
Interface IAlarmClock
...
End Interface

// Extending an interface
Interface IAlarmClock
Inherits IClock
...
End Interface

// Interface implementation
Class WristWatch
Implements IAlarmClock, ITimer
...
End Class

Accessibility keywords
public
private
internal
protected
protected internal
static

// Inheritance
class FootballGame : Competition {
...
}

// Interface definition
interface IAlarmClock {
...
}

// Extending an interface
interface IAlarmClock : IClock {
...
}

// Interface implementation
class WristWatch : IAlarmClock, ITimer {
...
}

VB.NET

Constructors / Destructors

Class SuperHero
Private _powerLevel As Integer
Public Sub New()
    _powerLevel = 0
End Sub
Public Sub New(ByVal powerLevel As Integer)
    Me._powerLevel = powerLevel
End Sub
Protected Overrides Sub Finalize()
' Desctructor code to free unmanaged resources
    MyBase.Finalize()
End Sub
End Class

class SuperHero {
private int _powerLevel;
public SuperHero() {
     _powerLevel = 0;
}
public SuperHero(int powerLevel) {
    this._powerLevel= powerLevel;
}
~SuperHero() {
// Destructor code to free unmanaged resources.
    // Implicitly creates a Finalize method
}
}

VB.NET

Using Objects

Dim hero As SuperHero = New SuperHero
' or
Dim hero As New SuperHero

With hero
.Name = "SpamMan"
.PowerLevel = 3
End With

hero.Defend("Laura Jones")
hero.Rest() ' Calling Shared method
' or
SuperHero.Rest()

Dim hero2 As SuperHero = hero ' Both reference the same object
hero2.Name = "WormWoman"
Console.WriteLine(hero.Name) ' Prints WormWoman

hero = Nothing ' Free the object

If hero Is Nothing Then _
hero = New SuperHero

Dim obj As Object = New SuperHero
If TypeOf obj Is SuperHero Then _
Console.WriteLine("Is a SuperHero object.")

' Mark object for quick disposal
Using reader As StreamReader = File.OpenText("test.txt")
Dim line As String = reader.ReadLine()
While Not line Is Nothing
Console.WriteLine(line)
line = reader.ReadLine()
End While
End Using

SuperHero hero = new SuperHero();

// No "With" construct
hero.Name = "SpamMan";
hero.PowerLevel = 3;

hero.Defend("Laura Jones");
SuperHero.Rest(); // Calling static method

SuperHero hero2 = hero; // Both reference the same object
hero2.Name = "WormWoman";
Console.WriteLine(hero.Name); // Prints WormWoman

hero = null ; // Free the object

if (hero == null)
hero = new SuperHero();

Object obj = new SuperHero();
if (obj is SuperHero)
Console.WriteLine("Is a SuperHero object.");

// Mark object for quick disposal
using (StreamReader reader = File.OpenText("test.txt")) {
string line;
while ((line = reader.ReadLine()) != null)
Console.WriteLine(line);
}

VB.NET

Structs

Structure StudentRecord
Public name As String
Public gpa As Single
Public Sub New(ByVal name As String, ByVal gpa As Single)
Me.name = name
Me.gpa = gpa
End Sub
End Structure

Dim stu As StudentRecord = New StudentRecord("Bob", 3.5)
Dim stu2 As StudentRecord = stu
stu2.name = "Sue"
Console.WriteLine(stu.name) ' Prints Bob
Console.WriteLine(stu2.name) ' Prints Sue

struct StudentRecord {
public string name;
public float gpa;
public StudentRecord(string name, float gpa) {
this.name = name;
this.gpa = gpa;
}
}

StudentRecord stu = new StudentRecord("Bob", 3.5f);
StudentRecord stu2 = stu;
stu2.name = "Sue";
Console.WriteLine(stu.name);    // Prints Bob
Console.WriteLine(stu2.name);   // Prints Sue

VB.NET

Properties

Private _size As Integer
Public Property Size() As Integer
Get
    Return _size
End Get
Set (ByVal Value As Integer)
    If Value < 0 Then
      _size = 0
    Else
      _size = Value
    End If
End Set
End Property

foo.Size += 1

private int _size;
public int Size {
get {
    return _size;
}
set {
    if (value < 0)
      _size = 0;
    else
      _size = value;
}
}

foo.Size++;

VB.NET

Delegates / Events

Delegate Sub MsgArrivedEventHandler(ByVal message As String)

Event MsgArrivedEvent As MsgArrivedEventHandler

' or to define an event which declares a delegate implicitly
Event MsgArrivedEvent(ByVal message As String)

AddHandler MsgArrivedEvent, AddressOfMy_MsgArrivedCallback
' Won't throw an exception if obj is Nothing
RaiseEvent MsgArrivedEvent("Test message")
RemoveHandler MsgArrivedEvent, AddressOfMy_MsgArrivedCallback

Imports System.Windows.Forms

Dim WithEvents MyButton As Button ' WithEvents can't be used on local variable
MyButton = New Button

Private Sub MyButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyButton.Click
MessageBox.Show(Me, "Button was clicked", "Info", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

delegate void MsgArrivedEventHandler(string message);

event MsgArrivedEventHandler MsgArrivedEvent;

// Delegates must be used with events in C#
MsgArrivedEvent += new MsgArrivedEventHandler(My_MsgArrivedEventCallback);
MsgArrivedEvent("Test message"); // Throws exception if obj is null
MsgArrivedEvent -= new MsgArrivedEventHandler(My_MsgArrivedEventCallback);

using System.Windows.Forms;

Button MyButton = new Button();
MyButton.Click += new System.EventHandler(MyButton_Click);

private void MyButton_Click(object sender, System.EventArgs e) {
MessageBox.Show(this, "Button was clicked", "Info",
MessageBoxButtons.OK, MessageBoxIcon.Information);
}

VB.NET

Console I/O

Console.Write("What's your name? ")
Dim name As String = Console.ReadLine()
Console.Write("How old are you? ")
Dim age As Integer = Val(Console.ReadLine())
Console.WriteLine("{0} is {1} years old.", name, age)
' or
Console.WriteLine(name & " is " & age & " years old.")
Dim c As Integer
c = Console.Read() ' Read single char
Console.WriteLine(c) ' Prints 65 if user enters "A"

Console.Write("What's your name? ");
string name = Console.ReadLine();
Console.Write("How old are you? ");
int age = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("{0} is {1} years old.", name, age);
// or
Console.WriteLine(name + " is " + age + " years old.");

int c = Console.Read(); // Read single char
Console.WriteLine(c); // Prints 65 if user enters "A"

VB.NET

File I/O

Imports System.IO

' Write out to text file
Dim writer As StreamWriter = File.CreateText("c:\myfile.txt")
writer.WriteLine("Out to file.")
writer.Close()

' Read all lines from text file
Dim reader As StreamReader = File.OpenText("c:\myfile.txt")
Dim line As String = reader.ReadLine()
While Not line Is Nothing
Console.WriteLine(line)
line = reader.ReadLine()
End While
reader.Close()

' Write out to binary file
Dim str As String = "Text data"
Dim num As Integer = 123
Dim binWriter As NewBinaryWriter(File.OpenWrite("c:\myfile.dat"))
binWriter.Write(str)
binWriter.Write(num)
binWriter.Close()

' Read from binary file
Dim binReader As NewBinaryReader(File.OpenRead("c:\myfile.dat"))
str = binReader.ReadString()
num = binReader.ReadInt32()
binReader.Close()

using System.IO;

// Write out to text file
StreamWriter writer = File.CreateText("c:\\myfile.txt");
writer.WriteLine("Out to file.");
writer.Close();

// Read all lines from text file
StreamReader reader = File.OpenText("c:\\myfile.txt");
string line = reader.ReadLine();
while (line != null) {
Console.WriteLine(line);
line = reader.ReadLine();
}
reader.Close();

// Write out to binary file
string str = "Text data";
int num = 123;
BinaryWriter binWriter = new BinaryWriter(File.OpenWrite("c:\\myfile.dat"));
binWriter.Write(str);
binWriter.Write(num);
binWriter.Close();

// Read from binary file
BinaryReader binReader = new BinaryReader(File.OpenRead("c:\\myfile.dat"));
str = binReader.ReadString();
num = binReader.ReadInt32();
binReader.Close();

db43471b-f17d-4288-940a-179906f71966|0|.0

Tags: vb.net, programming, c#

Dispatch FTP Pushing for Visual Studio 2008

by Fred Mastro 12. January 2010 16:11

Great plugin into Visual Studio 2008 that I love. This app lets you see what files are different from your production or development server from your local machine and will push out the changes for you. You can just tell it to push and all the files are copied. When you create a new file it tracks it, when you change a file it tracks that. Then when you are ready push all your changes up to QA or Production via FTP.

http://www.dispatchasp.net/

Dispatch tool window with Remote View Overlay enabled.

Seamless Integration with Visual Studio 2005/2008.

Visual Studio is a fantastic IDE but lacks a simple way to deploy incremental site updates via FTP. Dispatch bridges this gap, with a few bells and whistles.
Dispatch supports C# and VB web projects using In-Place compilation or Web Application Projects (WAP) on both Windows XP and Windows Vista. Dispatch also supports multiple web projects in a single solution, each with their own deployment configuration. Once you're in Visual Studio, stay in Visual Studio.

So worth $30

28884af5-23f7-4c74-b4ca-da25bf781ab5|0|.0

Tags:

Visual Studio | Web Tools

Microsoft Certification Step-By-Step Road Map for .NET Development, SQL 2008 Server, Team Foundation and Sharepoint

by Fred Mastro 6. January 2010 22:13

I’ve put together, from the Microsoft Site a Step-By-Step plan for getting certifications by Microsoft in the areas of .Net 3.5 Development, Team Foundation Server, Sharepoint and SQL 2008.

I’ve listed in order that you need to study and take exams that makes the most sense. The links go back to the Microsoft site Training/Certification pages. This list is to make it easy. Just follow it down and you study the book or e-learning class, then you take the listed exam and you get the listed certification.

Step Order	Study Press Book or E-Learning	Take This Exam	Get This Certification
	.NET 3.5 Development Track (See Notes for 2.0 Track)
1	Microsoft Press Book · MCTS Self-Paced Training Kit (Exam 70-536): Microsoft .NET Framework--Application Development Foundation, Second Edition Microsoft E-Learning · 5161AE: Advanced development with the Microsoft .NET Framework 2.0 Foundation (16 Hours) · 5160AE: Core development with the Microsoft .NET Framework 2.0 Foundation (14 Hours)	Exam 70-536
2	Microsoft Press Book · MCTS Self-Paced Training Kit (Exam 70-562): Microsoft .NET Framework 3.5 - ASP.NET Microsoft E-Learning · 6463AE: Visual Studio 2008: ASP.NET 3.5 (20 Hours)	Exam 70-562	MCTS: .NET Framework 3.5, ASP.NET Applications
3	Classroom Training · 01: Learning Plan for Designing and Developing ASP.NET Applications Using the Microsoft .NET Framework 3.5 (Exam 70-564) (1 Forms)	Exam 70-564	MCPD: ASP.NET Developer 3.5 on Visual Studio 2008
Note: 2.0 Track	Since the previous exam has no book at this time, you can also take the .NET 2.0 Track Instead take Exam, Exam 70-528 and Exam 70-547 instead for 2.0 Certification.		MCTS: .NET Framework 2.0, ASP.NET Applications AND MCPD: Web Developer on Visual Studio 2005
4	Microsoft Press Book · MCTS Self-Paced Training Kit (Exam 70-505): Microsoft .NET Framework 3.5 -- Windows Forms Application Development · MCTS Self-Paced Training Kit (Exam 70-526): Microsoft .NET Framework 2.0 Windows-Based Client Development Microsoft E-Learning · 2546AE: Core Windows Client Development with Microsoft Visual Studio 2005 (18 Hours) · 2542AE: Advanced Data Access with Microsoft Visual Studio 2005 (12 Hours) · 2547AE: Advanced Windows Client Programming with Microsoft Visual Studio 2005 (12 Hours) · 2541AE: Core Data Access with Microsoft Visual Studio 2005 (16 Hours)	Exam 70-505
5	Classroom Training · 001: Learning Plan for Designing and Developing Windows Applications Using the Microsoft .NET Framework 3.5 (Exam 70-563) (1 Forms)	Exam 70-563	MCPD: Windows Developer 3.5 on Visual Studio 2008
Note: 2.0 Track	Since the previous exam has no book at this time, you can also take the .NET 2.0 Track Instead take Exam, Exam 70-526 and Exam 70-548 instead for 2.0 Certification.		MCPD: Windows Developer on Visual Studio 2005
6	Microsoft Press Book · MCTS Self-Paced Training Kit (Exam 70-561): Microsoft .NET Framework 3.5 - ADO.NET Microsoft E-Learning · 6464AE: Visual Studio 2008: ADO.NET 3.5 (20 Hours)	Exam 70-561
7	Microsoft Press Book · MCTS Self-Paced Training Kit (Exam 70-503): Microsoft .NET Framework 3.0—Windows Communication Foundation Microsoft E-Learning · 6461AE: Visual Studio 2008: Windows Communication Foundation (20 Hours)	Exam 70-503
8	Classroom Training · 01: Learning Plan for Designing and Developing Enterprise Applications Using the Microsoft .NET Framework 3.5 (Exam 70-565) (1 Forms)	Exam 70-565	MCPD: Enterprise Application Developer 3.5 on Visual Studio 2008
Note: 2.0 Track	Since the previous exam has no book at this time, you can also take the .NET 2.0 Track Instead take Exam ,Exam 70-529 and Exam 70-549 instead for 2.0 Certification.		MCPD: Enterprise Application Developer on Visual Studio 2005
	SharePoint Certifications
9	Microsoft Press Books · The Microsoft SharePoint Step by Step Kit: Microsoft Windows SharePoint Services 3.0 Step by Step and Microsoft Office SharePoint Designer 2007 Microsoft E-Learning · 5403AE: MCTS (Exam 70-631): Microsoft Windows SharePoint Services 3.0, Configuring (12 Hours)	Exam 70-631	MCTS: Microsoft Windows SharePoint Services 3.0 – Configuration
10	Microsoft Press Books Inside Microsoft Office SharePoint Server 2007 Microsoft E-Learning · 5404AE: MCTS (Exam 70-630): Microsoft Office SharePoint Server 2007, Configuring (12 Hours) · 3376AE: Implementing Enterprise Search Using Sharepoint Technologies (8 Hours)	Exam 70-630	MCTS: Microsoft Office SharePoint Server 2007 – Configuration
11	Microsoft E-Learning · 5392AE: Developing and Extending Microsoft Windows SharePoint Services 3.0 with Visual Studio 2005 (12 Hours) · 5385AE: Developing Solutions with Microsoft Windows SharePoint Services 3.0 and Visual Studio 2005 (12 Hours)	Exam 70-541	MCTS: Microsoft Windows SharePoint Services 3.0 – Application Development
12	Microsoft E-Learning · 6071AE: Developing Solutions with Microsoft Office SharePoint Server 2007 and Visual Studio 2005 (12 Hours)	Exam 70-542	MCTS: Microsoft Office SharePoint Server 2007 – Application Development
	Team Foundation Server Certification
13	Classroom Training · 6215A: Implementing and Administering Microsoft Visual Studio 2008 Team Foundation Server (2 Days)	Exam 70-510	MCTS: Microsoft Team Foundation Server: Configuration and Development
	SQL 2008 Certifications
14	Microsoft E-Learning · 6369AE: Implementing and Maintaining Microsoft SQL Server 2008 (16 Hours) · 2778CE: MCTS (Exam 70-433): TS: Microsoft SQL Server 2008, Database Development (18 Hours) Microsoft Press Books · MCTS Self-Paced Training Kit (Exam 70-432): Microsoft SQL Server 2008 - Implementation and Maintenance	Exam 70-432	MCTS: SQL Server 2008, Implementation and Maintenance
15	Classroom Training · 01: Learning Plan for Designing, Optimizing and Maintaining a Database Server Infrastructure using SQL Server 2008 (Exam 70-450) (1 Forms)	Exam 70-450	MCITP: Database Administrator 2008
16	Microsoft E-Learning · 2778CE: MCTS (Exam 70-433): TS: Microsoft SQL Server 2008, Database Development (18 Hours) Microsoft Press Books · MCTS Self-Paced Training Kit (Exam 70-433): Microsoft SQL Server 2008 - Database Development	Exam 70-433	MCTS: SQL Server 2008, Database Development
17	Classroom Training · 01: Learning Plan for Designing Database Solutions and Data Access using SQL Server 2008 (Exam 70-451) (1 Forms)	Exam 70-451	MCITP: Database Developer 2008
18	Microsoft Press Books · MCTS Self-Paced Training Kit (Exam 70-448): Microsoft SQL Server 2008 - Business Intelligence Development and Maintenance	Exam 70-448	MCTS: SQL Server 2008, Business Intelligence Development and Maintenance
19	Microsoft Press Books · Microsoft SQL Server 2008 Reporting Services Step by Step · Microsoft SQL Server 2008 MDX Step by Step	Exam 70-452	MCITP: Business Intelligence Developer 2008

012ecdaf-9683-47b4-9492-b20cd05b3415|0|.0

Tags: microsoft certifications, education

Windows 7 and Vista god mode

by Fred Mastro 4. January 2010 19:53

Right click on any bank space on your desktop.
Click new from the menu and create a New Folder.
Rename the folder as follow: GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}
DO NOT use this trick on Vista 64X and Windows 7 64X. It will cause your Windows to crash! (read comments below)

This will create a special shortcut to the godmode option; letting you access all Windows 7 or Vista functions via a handy GUI!

40de9f86-5da7-4123-b098-556e4454b51d|0|.0

Tags: godmode, windows7, vista, operating system

Operating Systems | Gadgets & Cool Stuff

Lightweight DataTable for your Silverlight applications

by Fred Mastro 16. December 2009 17:33

Source: Lightweight DataTable for your Silverlight Apps

Since there is no DataTable in Silverlight I’ve created small class that can be used to generate columns and rows in runtime in similar to the real DataTable way:

DataTable table = new DataTable();
 
 table.Columns.Add(new DataColumn() { ColumnName = "ID", DataType = typeof(int) });
 table.Columns.Add(new DataColumn() { ColumnName = "Name", DataType = typeof(string) });
 table.Columns.Add(new DataColumn() { ColumnName = "UnitPrice", DataType = typeof(decimal) });
 table.Columns.Add(new DataColumn() { ColumnName = "Date", DataType = typeof(DateTime) });
 table.Columns.Add(new DataColumn() { ColumnName = "Discontinued", DataType = typeof(bool) });
 
 for(var i = 0; i < 1000; i++)
 {
     DataRow row = new DataRow();
     row["ID"] = i;
     row["Name"] = names[rnd.Next(9)];
     row["UnitPrice"] = prizes[rnd.Next(9)];
     row["Date"] = DateTime.Now.AddDays(i);
     row["Discontinued"] = bools[rnd.Next(9)];
 
     table.Rows.Add(row);
 }

Class File is named Data.cs, c3 Version:

SilverlightDataTable_2009_1109.zip

Unfortunately, there’s no VB.Net version of this, haven't gotten to it yet.

b8eb08f0-d7c8-48ce-916e-6f963e42d97e|0|.0

Tags: silverlight, code snippets, datatable

Code Snippets | SilverLight

Sending Generic.List collection back to WCF ObservableCollection

by Fred Mastro 16. December 2009 10:12

Found a good article and helped with a problem I was having, trying to send a list of collection back to a WCF service that was set to accept Observable Collections.

Source: http://smehrozalam.wordpress.com/2009/01/18/ienumerabletoobservablecollection/

In WPF/Silverlight, binding UI objects such as DataGrid or ListBox to collections is typically done using an ObservableCollectioninstead of the generic List object. This way, our UI is automatically synchronized since the observable collection provides event notification to WPF data binding engine whenever items are added, removed, or when the whole list is refreshed. The LINQ extension methods that return a collection actually return IEnumerable<T>. The .NET framework for Silverlight provides built-in extension methods to convert IEnumerable<T> to List<T> and Array<T> but there’s no method available to convert the collection to ObservableCollection<T>(WPF developers can simply use this constructor overload) . So here’s one you may find useful:

 Public Static Class CollectionExtensions
{
    public static ObservableCollection<T> ToObservableCollection<T>(this IEnumerable<T> enumerableList)
    {
        if (enumerableList != null)
        {
            //create an emtpy observable collection object
            var observableCollection = new ObservableCollection<T>();
 
            //loop through all the records and add to observable collection object
            foreach (var item in enumerableList)
                observableCollection.Add(item);
 
            //return the populated observable collection
            return observableCollection;
        }
        return null;
    }
}
 

Extension methods are very powerful and I am planning to post an example demonstrating their potential.

I’ve converted the above example to VB.Net version for you to copy.

Public Shared Function ToObservableCollection(Of T)(ByVal enumerableList As IEnumerable(Of T)) As ObservableCollection(Of T)
     If enumerableList IsNot Nothing Then
         'create an emtpy observable collection object
         Dim observableCollection As New ObservableCollection(Of T)()
 
         'loop through all the records and add to observable collection object
         For Each item As T In enumerableList
             observableCollection.Add(item)
         Next
 
         'return the populated observable collection
         Return observableCollection
     End If
     Return Nothing
 End Function

Now you can call your List and send it back as a ObservableCollection

0e7ac644-8708-410d-892f-666c2a3c8fa7|0|.0

Tags: programming, vb.net, code snippets, wcf, silverlight

.Net Resetting Scroll Position When MaintainScrollPositionOnPostBack = True

by Fred Mastro 10. December 2009 14:52

Had a friend have an issue where he had select buttons on a gridview and on selected changed event he would update control at the top of his page. However, he had MaintainScrollPositionOnPostBack set to True, so of course the browser would reload and scroll down to where he had clicked the Select button.

Found this article how to override the MaintainScrollPosition so it would go to the top of the page. Works like a charm.

http://www.4guysfromrolla.com/articles/111407-1.aspx

On postback, the ASP.NET page adds a call to the client-side function WebForm_RestoreScrollPosition(), which returns the browser's scroll position to the X and Y coordinates specified by the __SCROLLPOSITIONX and __SCROLLPOSITIONY form fields (which were assigned the browser's scroll position before the postback ensued). Consequently, the browser's scroll position is maintained across postbacks. The diagram below illustrates this interaction graphically.

In order to reset the scroll position, we need to add the above JavaScript to the rendered page's output and then call it before the call to WebForm_RestoreScrollPosition(). The following code adds a function (ResetScrollPosition) to the outputted markup and then injects a line of script that invokes this function. The server-side code uses the RegisterClientScriptBlock method to register the ResetScrollPosition function, which adds the function to the top of the form. As noted earlier, RegisterStartupScript adds a call to ResetScrollPosition at the bottom of the page.

Private Sub ResetScrollPosition()
    If Not ClientScript.IsClientScriptBlockRegistered(Me.GetType(), "CreateResetScrollPosition") Then
       'Create the ResetScrollPosition() function
       ClientScript.RegisterClientScriptBlock(Me.GetType(), "CreateResetScrollPosition", _
                        "function ResetScrollPosition() {" & vbCrLf & _
                        " var scrollX = document.getElementById('__SCROLLPOSITIONX');" & vbCrLf & _
                        " var scrollY = document.getElementById('__SCROLLPOSITIONY');" & vbCrLf & _
                        " if (scrollX && scrollY) {" & vbCrLf & _
                        "    scrollX.value = 0;" & vbCrLf & _
                        "    scrollY.value = 0;" & vbCrLf & _
                        " }" & vbCrLf & _
                        "}", True)
       'Add the call to the ResetScrollPosition() function
       ClientScript.RegisterStartupScript(Me.GetType(), "CallResetScrollPosition", "ResetScrollPosition();", True)
    End If
End Sub

To reset scroll position on postback, simply call the server-side ResetScrollPosition() method from the appropriate event handler (be it the Click event handler of a Button, the PageIndexChanged event of the GridView, or some other event).

Rest of Article

a972f453-8110-4fae-856a-8dee6e60b37b|0|.0

Tags: asp.net, maintainscrollpositiononpostback, javascript, top of page

ASP.NET | Programming | Code Snippets

Mapping a DataTable to an Object Class. Like a homemade Linq to SQL. Send over WCF to SilverLight

by Fred Mastro 8. December 2009 17:37

Application Foundation

An application I work has architecture in a way where we have a Class object that represents each table. So for example we might have a “Customer” table in the database. So our class would be something like..

Customer.vb class file…

Public Class Customer
 
     Private _FirstName As String = String.Empty
     Public Property FirstName() As String
         Get
             Return _FirstName
         End Get
         Set(ByVal value As String)
             _FirstName = value
         End Set
     End Property
 
     Private _LastName As String = String.Empty
     Public Property LastName() As String
         Get
             Return _LastName
         End Get
         Set(ByVal value As String)
             _LastName = value
         End Set
     End Property
 
 End Class

In this class is a function to say list all customers, we call this “GetList” method. You might use another way to bring back a list of data. Ideally now we’d want to bring back Enumerable Lists, but the app was already structured for DataSets and DataTables. So I was trying to reuse what we had.

Customer.vb class file

Public Function GetList() As Data.DataTable
     Dim oDS As Data.DataSet
     Try
         oDS = DataAccess.SqlHelper.ExecuteDataset(_ConnectionString, Data.CommandType.StoredProcedure, "CustomerGetList")
         Return oDS.Tables(0)
     Catch ex As Exception
         Throw ex
     Finally
         oDS = Nothing
     End Try
 End Function

So on our pages we might do something like this…

Default.aspx.vb

Protected Sub Button1_ClickSave()
     Dim oCustomer As New Customer
     oCustomer.FirstName = "Fred"
     oCustomer.LastName = "Mastro"
     oCustomer.SaveToDB()
 
     GridView1.DataSource = oCustomer.GetList()
     GridView1.DataBind()
 
     oCustomer = Nothing
 
 End Sub

And this returns a nice DataTable and populates the grid. Great!

Problem Areas over WCF to SliverLight

I was working on a SilverLight application that would talk to an existing business application, to pull back and list records. I had to use a Service, so I went with WCF since RIA.Net is not in production yet. The problem was that DataTables can not be serialized and set over WCF to SilverLight. So I tried messing with Linq to SQL to pull data back and populate classes I already had, but LinqTables are not serializable either, and instead of modifying all the Linq classes generated in my class I wanted to find an easier solution.

DataTable to List(Of Customer) Solution

I can across these two posts: Datatable to List of Objects Mapper and Creating datarow to object mapper and was amazed. Using reflection Chris Rock (lol) was able to read the properties of the object and map each column of the datatable to the desired property of the object. This is what I’m looking to do. This would manually mimic Linq type functionality. The Bulk of the code is this

My Helper.vb class file

  
Public Class Helper
 
    Public Function MapDatarowToObject(Of T)(ByVal dr As DataRow) As T
        Try
 
            If dr Is Nothing Then
                Return Nothing
            End If
 
            Dim instance As T = Activator.CreateInstance(Of T)()
 
            Dim properties() As Reflection.PropertyInfo = instance.GetType().GetProperties()
 
            If (properties.Length > 0) Then
                For Each propertyObject As Reflection.PropertyInfo In properties
 
                    Dim valueSet As Boolean = False
 
                    For Each attributeObject As Object In propertyObject.GetCustomAttributes(False)
 
                        If attributeObject.GetType() Is GetType(MapperColumn) Then
                            Dim columnAttributeObject As MapperColumn = CType(attributeObject, MapperColumn)
 
                            If (columnAttributeObject.ColumnName <> String.Empty) Then
 
                                If dr.Table.Columns.Contains(columnAttributeObject.ColumnName) AndAlso Not dr(columnAttributeObject.ColumnName) Is DBNull.Value Then
                                    propertyObject.SetValue(instance, dr(columnAttributeObject.ColumnName), Nothing)
                                    valueSet = True
 
                                End If
 
                            End If
                        End If
                    Next
 
                    If Not valueSet Then
                        If dr.Table.Columns.Contains(propertyObject.Name) AndAlso Not dr(propertyObject.Name) Is DBNull.Value Then
                            propertyObject.SetValue(instance, dr(propertyObject.Name), Nothing)
                        End If
                    End If
 
                Next
            End If
 
            Return instance
        Catch ex As Exception
            Throw ex
        End Try
    End Function
 
    Public Function MapDataTableToList(Of T)(ByVal dt As DataTable) As Collections.Generic.IList(Of T)
        If dt Is Nothing Then
            Return Nothing
        End If
 
        Dim list As IList(Of T) = New List(Of T)
 
        For Each dr As DataRow In dt.Rows
            list.Add(MapDatarowToObject(Of T)(dr))
        Next
 
        Return list
    End Function
 
End Class
 
<AttributeUsage(AttributeTargets.Property)> _
Public Class MapperColumn
    Inherits Attribute
 
    Private mColumnName As String
 
    Public Sub New(ByVal columnName As String)
        mColumnName = columnName
    End Sub
 
    Public Property ColumnName() As String
        Get
            Return mColumnName
        End Get
        Set(ByVal value As String)
            mColumnName = value
        End Set
    End Property
 
End Class
 

Using Mapper in WCF

Now in my WCF Service methods I can just instantiate Customers like I always do in the normal application and apply the new Mapper method to get a List of the class objects.

WCFServiceMethods.vb file (which is code-behind to WCFServiceMethods.svc)

 Imports System.ServiceModel
Imports System.ServiceModel.Activation
Imports System.Runtime.Serialization 'For DataContract
Imports System.Collections.Generic
 
<ServiceContract(Namespace:="")> _
<ServiceBehavior(IncludeExceptionDetailInFaults:=True)> _
<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)> _
Public Class WCFServiceMethods
    <OperationContract()> _
    Public Function GetCustomers() As Collections.Generic.List(Of Customer)
        Dim oCustomer As New Customer
 
        Dim Customers As Collections.Generic.List(Of Customer)
        Customers = Helper.MapDataTableToList(Of Customer)(oCustomer.GetList())
 
        oCustomer = Nothing
        Return Customers
 
    End Function
End Class
 

You’ll see in Line 15, I can take the DataTable and now create a List(Of Customer) object, which is serializable and send it over the wire.

Applying it in SilverLight or Other Application that uses your WCF Service

Assuming you referenced your WCF Service.. Now on my SilverLight app on a button click I can get the List of Customers and show it natively in a datagrid.

MainPage.xaml code-behind

Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnSearch.Click
     Dim oWCFProxy As New WCFService.WCFServiceClient
 
     AddHandler oWCFProxy.GetCustomers, AddressOf oWCFProxy_GetCustomersCompleted
     oWCFProxy.GetCustomersAsync()
 
     oWCFProxy = Nothing
 
 End Sub
 
 Private Sub oWCFProxy_GetCustomersCompleted(ByVal sender As Object, ByVal e As WCFService.GetCustomersCompletedEventArgs)
     Dim Customers As Collections.ObjectModel.Collection(Of oWCFProxy.Customer)
     Customers = e.Result
 
     DataGrid1.ItemsSource = Customers
 End Sub

Problem Area With Mapper Casting Types and Solution

So with all that above you should have enough to re-create all this. Read through Chris’ posts because it does a good job of explaining the mapper. I ran into a problem with the mapper though on line 39. Problem is when it tries to map data from the database, it all comes back as a string, and you don’t know until run-time what System.Type you need, so you can’t CType or DirectCast by using System.Type.GetType(), so I had to create a crappy function to Throw ex check every possible combination. This the best way? I sure hope it isn’t. Hope to find a better solution for it but was pressed for time.

So what was my crappy solution? I don’t even want to post it haha. I swapped out line 39 and 28 with the a call to this method of 1531 lines of code.

Private Sub TryCastTypeToPropertyType(ByRef propertyObject As Reflection.PropertyInfo, ByRef instance As Object, ByRef dr As DataRow, ByRef ColumnName As String)

        Try
            'Try to Default Types
            propertyObject.SetValue(instance, dr(ColumnName), Nothing)
        Catch exDefault1 As InvalidCastException
            Try
                'Try to String
                propertyObject.SetValue(instance, CType(dr(ColumnName), String), Nothing)
            Catch exString1 As InvalidCastException
                'Try to Integer
                Try
                    propertyObject.SetValue(instance, CType(dr(ColumnName), Integer), Nothing)
                Catch exInt32a As ArgumentException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                Catch exInt32b As InvalidCastException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                End Try
            Catch exString2 As ArgumentException
                'Try to Integer
                Try
                    propertyObject.SetValue(instance, CType(dr(ColumnName), Integer), Nothing)
                Catch exInt32a As ArgumentException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                Catch exInt32b As InvalidCastException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                End Try
            End Try
        Catch exDefault2 As ArgumentException
            Try
                'Try to String
                propertyObject.SetValue(instance, CType(dr(ColumnName), String), Nothing)
            Catch exString1 As InvalidCastException
                'Try to Integer
                Try
                    propertyObject.SetValue(instance, CType(dr(ColumnName), Integer), Nothing)
                Catch exInt32a As ArgumentException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                Catch exInt32b As InvalidCastException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                End Try
            Catch exString2 As ArgumentException
                'Try to Integer
                Try
                    propertyObject.SetValue(instance, CType(dr(ColumnName), Integer), Nothing)
                Catch exInt32a As ArgumentException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                Catch exInt32b As InvalidCastException
                    'Try to DateTime
                    Try
                        propertyObject.SetValue(instance, CType(dr(ColumnName), DateTime), Nothing)
                    Catch exDate1 As ArgumentException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    Catch exDate2 As InvalidCastException
                        'Try to Decimal
                        Try
                            propertyObject.SetValue(instance, CType(dr(ColumnName), Decimal), Nothing)
                        Catch exDecimal1 As ArgumentException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        Catch exDecimal2 As InvalidCastException
                            'Try to Double
                            Try
                                propertyObject.SetValue(instance, CType(dr(ColumnName), Double), Nothing)
                            Catch exDouble1 As ArgumentException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            Catch exDouble2 As InvalidCastException
                                'Try to Boolean
                                Try
                                    propertyObject.SetValue(instance, CType(dr(ColumnName), Boolean), Nothing)
                                Catch exBoolean1 As ArgumentException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                Catch exBoolean2 As InvalidCastException
                                    'Try To Date
                                    Try
                                        propertyObject.SetValue(instance, CType(dr(ColumnName), Date), Nothing)
                                    Catch ex As Exception
                                        Throw ex
                                    End Try
                                End Try
                            End Try
                        End Try
                    End Try
                End Try
            End Try
        End Try
    End Sub

Maybe I’ll get lucky and someone will post up a “Oh you can just do this, which is new in .Net 3.5 or 4.0.. “ and I can get rid of this thing. But hey it works!

Resource: How to Consume WCF and ASP.Net Web Services in Silverlight

5b104bb4-e443-49dd-b34d-3729c2b670df|1|5.0

Tags: programming, vb.net, code snippets, reflector

Microsoft Test And Lab Management with Test Runner and Visual Studio 2010 CodedUI Testing UI

by Fred Mastro 8. December 2009 15:23

Ok who at Microsoft can I go hug and bow down too for creating Test and Lab and Test Runner and the CodedUI Recorder script generator. Client of mine wanted to do more automated and better testing of their web apps. I knew VS 2010 had new testing tools but didn’t know to what extent. So I did some quick research and installed it on my own and tried it out against a business application I develop. Wow.

I still have a lot to learn on it’s use but in 5min I created a script that I could automate and test the UI functionality of the business web app.

Applications to look at:

Visual Studio 2010
Microsoft Test and Lab Management 2010 (Yes this only works with Team Foundation Server 2010. If you have TFS 2008, you’re out of luck.
Microsoft Test Runner 2010 (Comes as part of Test and Lab I believe)

Some quick overview features

You can record your testing and play it back later to automate it
It’s designed for non-developers but not end-users, for someone in QA
With this tool you can have “Shared” scripts, so say you create 100 scripts and we change the login functionality. You would only need to edit that one shared script and all the other 100 are changed.
Manual Testing can be turned into automated testing
You can setup test environments for local, QA and Prod
You can do full screen capture when manual testing and it will create Bug item in Team Foundation System with your screen shots and all the steps you performed and what data was used when you were developing.
You can use datasource for username’s and passwords and addresses to test with etc.
You can perform Coded UI Automated Scripts without coding anything, a recorder records and generates it for you.

You can view the Test and Lab Management Video here, skip ahead to 13:10 into video to see it in action. http://mschnlnine.vo.llnwd.net/d1/ch9/2/8/2/3/7/4/104Episode23AnIntroductionToManualTesting_ch9.wmv

CodedUI Functionality in VS 2010 Video. Fast forward to 2:20 to 7:10: (You can do this on any VS 2008 project you have, using VS 2010 only) http://mschnlnine.vo.llnwd.net/d1/ch9/5/4/1/8/6/4/104Episode18FunctionalUITesting_2MB_ch9.wmv

Good Post on some of the Lab stuff: The Microsoft Test Runner – innovation for the Generalist Tester

ed733a3a-50f3-44d4-83e5-b5382709c16d|1|5.0

Tags: automated testing, software testing, software, microsoft, visual studio 2010

Visual Studio | Troubleshooting | Developer Tools | Microsoft

Named Finalist in Prestigious Software & Information Industry Association Awards

by Fred Mastro 8. December 2009 15:11

In application that I develop for has been nominated for Finalist in Prestigious Software & Information Industry Association Awards and selected as a finalist in the 25th annual Software & Information Industry Association CODiE Awards.

4073115d-29d8-4688-839b-ece153bb184d|0|.0

Tags: codie awards, software, about me

Programming | Personal | About Me | Software

<< Previous posts

	Some websites I've worked on. This is a small collection of sites I've developed or added to awhile back.

	Revenge Movie Trailer. Trailer I made with Adobe Premiere and After Effects. Jason Christman is the main star and I'm the director behind the camera.

	Essential Software For your Mac. - I'm a Microsoft geek, but I've switched over to Mac. There was a lot of stuff I needed to get installed that I missed on my Windows machine. Also I had no idea how to do it :p Here's some help.

	Speed Football. I wanted to make a special effect like the Smallville or Superman running fast. All the other ones I've seen, the person in the frame was the only moving object while everything else was blurred. I wanted to create the effect but interact with another normal moving object.

	Code Snippets and Quickies. Sometims I find something or develop something that I think is useful and it can be copied and pasted anywhere for someone to use. Here's a collection of things I've posted on.

VB.NET to C# Differences

Dispatch FTP Pushing for Visual Studio 2008

Microsoft Certification Step-By-Step Road Map for .NET Development, SQL 2008 Server, Team Foundation and Sharepoint

Windows 7 and Vista god mode

Lightweight DataTable for your Silverlight applications

Sending Generic.List collection back to WCF ObservableCollection

.Net Resetting Scroll Position When MaintainScrollPositionOnPostBack = True

Mapping a DataTable to an Object Class. Like a homemade Linq to SQL. Send over WCF to SilverLight

Microsoft Test And Lab Management with Test Runner and Visual Studio 2010 CodedUI Testing UI

Named Finalist in Prestigious Software & Information Industry Association Awards

About the author

Web Tools - QuickLinks

Month List

Page List

Highlights

Other FredMastro Sites

Twitter

Books I've Read or Reading

About the author

Web Tools - QuickLinks

Tag cloud

Month List

Page List

Highlights

Other FredMastro Sites

Twitter

Blogroll

Books I've Read or Reading