Visual Basic

With stud
    .Number = CType(ar(0), Integer)
    '.Last = CType(ar(1), String).Substring(0, .Last.Length - 1)
    'Fix above parsing error
    .Last = CType(ar(1), String)
    .First = CType(ar(2), String)

    ' Determine the index of the middle name if it exists.
    ' This logic will need to be changed slightly if multiple
    ' middle names are expected in the data.
    Dim n As Integer
    n = UBound(ar) - 9

    If n = 0 Then
        .MidI = vbNullString ' or "" depending on your requirments
    Else
        .MidI = CType(ar(3), String)
    End If

    .ID = CType(ar(n + 3), String)
    .College = CType(ar(n + 4), String)
    .Classification = CType(ar(n + 5), String)
    .Email = CType(ar(n + 6), String)
    .Major = CType(ar(n + 7), String)
    .Paid = CType(ar(n + 8), String)
    .Enrolled = CType(ar(n + 9), String)
End With

HeroRaven wrote:

can anyone recommend a control or know which one microsoft word uses for it's document window?

My: Blog | Photos

"Man who stand on hill with mouth open will wait long time for roast duck to drop in." -- Confucious

public const int HTTRANSPARENT = -1;
public const int WM_NCHITTEST = 0x84;

protected override void WndProc(ref Message m){
    if (m.Msg == WM_NCHITTEST){
        m.Result = new IntPtr(HTTRANSPARENT );
    }
    else {
        base.WndProc(m);
    }
}

Public Const WM_NCHITTEST As Integer = 132
Public Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST)
        m.Result = New IntPtr(HTTRANSPARENT )
    Else
        MyBase.WndProc(m)
    End If
End Sub

[Marc] wrote:

EDIT: kut wrong forum

Public Const WM_NCHITTEST As Integer = 132
Public Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST)
        m.Result = New IntPtr(HTTRANSPARENT )
    Else
        MyBase.WndProc(m)
    End If
End Sub

Public Class ClickThroughForm
    Inherits Form

Private Const WM_NCHITTEST As Integer = 132
Private Const HTTRANSPARENT As Integer = -1

Protected Overrides Sub WndProc(ByRef m as Message)
    If (m.Msg = WM_NCHITTEST) 'If Windows asks what kind of surface the mouse is on
        m.Result = New IntPtr(HTTRANSPARENT) 'Return that the mouse should go right through me
    Else
        MyBase.WndProc(m) 'Windows wants something else, let the base Control class do the work
    End If
End Sub

End Class