Visual Basic

Dim I As Integer
For I = 0 To ar.Count - 1
    If CType(ar.Item(I), sl1).name = search Then
        Exit For
    End If
Next

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Coming soon: The Second EuroCPian Event

<br />
<br />
Public JSWords() As KeyWords<br />
<br />
Structure KeyWords<br />
Dim Word As String<br />
Dim Color As Color<br />
End Structure<br />
<br />
ReDim JSWords(8)<br />
JSWords(0).Word = "if"<br />
JSWords(0).Color = Color.Blue<br />
JSWords(1).Word = "then"<br />
JSWords(1).Color = Color.Blue<br />
JSWords(2).Word = "else"<br />
JSWords(2).Color = Color.Blue<br />
JSWords(3).Word = "for"<br />
JSWords(3).Color = Color.Blue<br />
JSWords(4).Word = "while"<br />
JSWords(4).Color = Color.Blue<br />
JSWords(5).Word = "not"<br />
JSWords(5).Color = Color.Blue<br />
JSWords(6).Word = "function"<br />
JSWords(6).Color = Color.Blue<br />
JSWords(7).Word = "return"<br />
JSWords(7).Color = Color.Blue<br />
JSWords(8).Word = "var"<br />
JSWords(8).Color = Color.Blue<br />
<br />
Public Sub JSColorVisibleLines(ByVal rtb As RichTextbox)<br />
        Dim FirstLine As Integer = FirstVisibleLine()<br />
        Dim LastLine As Integer = LastVisibleLine()<br />
        Dim FirstVisibleChar As Integer<br />
        Dim i As Integer = FristLine<br />
<br />
        If (FirstLine = 0) And (LastLine = 1) Then<br />
            Exit Sub<br />
        Else<br />
            While i < LastLine<br />
<br />
                FirstVisibleChar = rtb.CharFromLineIndex(FirstLine)<br />
<br />
                JSColorLineNumber(rtb, FirstLine, FirstVisibleChar)<br />
<br />
                FirstLine += 1<br />
                i += 1<br />
            End While<br />
        End If<br />
    End Sub<br />
<br />
    Public Sub JSColorLineNumber(ByVal rtb As RichTexbox, ByVal LineIndex As Integer, ByVal lStart As Integer)<br />
        Dim Line As String = rtb.Lines(LineIndex)<br />
        Dim i As Integer = 0<br />
        Dim Instance As Integer<br />
<br />
        ' Lock the update<br />
        LockUpdate()<br />
<br />
        rtb.SelectionStart = lStart<br />
        rtb.SelectionLength = Line.Length<br />
        rtb.SelectionColor = Color.Black<br />
<br />
        Instance = InStr(Line, "//")<br />
        If Instance <> 0 Then<br />
            rtb.SelectionStart = (lStart + Instance - 1)<br />
            rtb.SelectionLength = (Line.Length - Instance + 1)<br />
            rtb.SelectionColor = Color.Green<br />
        End If<br />
<br />
        If Instance = 1 Then<br />
            ' Unlock the update and exit<br />
            UnLockUpdate()<br />
            Exit Sub<br />
        End If<br />
<br />
        While i < JSWords.Length<br />
<br />
            Instance = InStr(Line, JSWords(i).Word)<br />
<br />
            If Instance <> 0 Then<br />
                rtb.SelectionStart = (lStart + Instance - 1)<br />
                rtb.SelectionLength = JSWords(i).Word.Length<br />
                rtb.SelectionColor = JSWords(i).Color<br />
            End If<br />
<br />
            i += 1<br />
        End While<br />
<br />
        ' Unlock the update<br />
        rtb.UnLockUpdate()<br />
    End Sub<br />
<br />
Public Function FirstVisibleLine() As Integer<br />
<br />
            'Return rtb.GetLineFromCharIndex(rtb.GetCharIndexFromPosition(New Point(50, rtb.Font.Height / 2)))<br />
            Return SendMessage(rtb.Handle.ToInt32, EditMessages.GetFirstVisibleLine, 0, 0)<br />
        End Function<br />
<br />
Public Function LastVisibleLine() As Integer<br />
<br />
            Dim LastLine As Integer = FirstVisibleLine() + (Me.Height / Me.Font.Height)<br />
<br />
            If LastLine > Me.LineCount Or LastLine = 0 Then<br />
                LastLine = Me.LineCount<br />
            End If<br />
            Return LastLine<br />
        End Function<br />
<br />
Public Sub LockUpdate()<br />
            LockWindowUpdate(Handle.ToInt32)<br />
        End Sub<br />
<br />
Public Sub UnLockUpdate()<br />
            LockWindowUpdate(0)<br />
        End Sub<br />

<br />
Dim pt as System.Drawing.Point<br />
<br />
GetCaretPos(pt)<br />
<br />
Msgbox("The cursor is at X:" & pt.X & " Y:" & pt.Y)<br />

dim s as string

Console.WriteLine("Enter your name:")
s = Console.ReadLine()