Visual Basic

        Public Shared Function GetGameStatus() As GameStatus
            Dim sConnectionString As String
            Dim oConnection As SqlConnection
            Dim oCommand As SqlCommand
 
            Try
                sConnectionString = ConfigurationSettings.AppSettings("DataConnection")
                oConnection = New SqlConnection(sConnectionString)
                oCommand = New SqlCommand
 
                oCommand.Connection = oConnection
                oCommand.CommandText = "SQLGetSystemParameter"
                oCommand.CommandType = CommandType.StoredProcedure
 
                Dim sqlParam As New SqlParameter("@ParmName", SqlDbType.NVarChar, 25)
                sqlParam.Value = "GameStatus"
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("@ParmValue", SqlDbType.NVarChar, 255)
                sqlParam.Direction = ParameterDirection.Output
                oCommand.Parameters.Add(sqlParam)
 
                sqlParam = New SqlParameter("RETURN_VALUE", SqlDbType.Int)
                sqlParam.Direction = ParameterDirection.ReturnValue
                oCommand.Parameters.Add(sqlParam)
 
                oConnection.Open()
                oCommand.ExecuteNonQuery()
                oConnection.Close()
 
                Dim iReturnCheck As Integer = Integer.Parse(oCommand.Parameters("RETURN_VALUE").Value)
                If iReturnCheck = 1 Then
                    GetGameStatus = GameStatus.Invalid
                Else
                    GetGameStatus = iReturnCheck
                End If
            Catch ex As Exception
                GetGameStatus = GameStatus.Invalid
            Finally
                If Not oCommand Is Nothing Then
                    oCommand.Dispose()
                End If
                If Not oConnection Is Nothing Then
                    If Not oConnection.State = ConnectionState.Closed Then
                        oConnection.Close()
                    End If
                    oConnection.Dispose()
                End If
            End Try
            Return GetGameStatus
        End Function

"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

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 />