Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    showColorComponents(Color.LightYellow)
    showColorComponents(Color.FromArgb(11, 22, 33, 44))
End Sub
Private Sub showColorComponents(ByVal col As Color)
    log("col=" & col.ToString & " = " & col.A & "," & col.R & "," & col.G & "," & col.B)
    Dim I As Int32 = col.ToArgb()
    log("I=0x" & I.ToString("X8"))
    Dim B As Int32 = I And 255
    Dim G As Int32 = (I >> 8) And 255
    Dim R As Int32 = (I >> 16) And 255
    Dim A As Int32 = (I >> 24) And 255
    log("ARGB=" & A & "," & R & "," & G & "," & B)
End Sub

private void dgv_SelectionChanged(object sender, EventArgs e) {
	dgv.ClearSelection();
}

Jon_Boy wrote:

Is there a way to override this default value to false when adding new references?

I are Troll

if conn.State = System.Data.ConnectionState.Open then
  conn.Close()
end if

If solid.State = ConnectionState.Broken Or solid.State = ConnectionState.Closed Then
            Dim tryconnect As Boolean = True
            While tryconnect = True And (solid.State = ConnectionState.Broken Or solid.State = ConnectionState.Closed)
                If MsgBox("Connection to the database has closed unexpectedly. Retry to connect?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    Try
                        solid.Open()
                    Catch ex As Exception

                    End Try
                Else
                    tryconnect = False
                    Application.Exit()
                End If
            End While
        End If>

Public Class data

    Public Function opendatabase(ByVal solid As Odbc.OdbcConnection, ByVal dsn As String)
        Try
            solid.ConnectionString = "dsn=" & dsn & ";uid=xxxx;pwd=xxxx"
            solid.Open()
            desktop.connectionstring = "dsn=" & dsn & ";uid=xxxx;pwd=xxxx"
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Function readdata(ByVal solid As Odbc.OdbcConnection, ByVal sqlquery As String, ByRef datareader As Odbc.OdbcDataReader)
        Try
            Dim command As New Odbc.OdbcCommand(sqlquery, solid)
            datareader = command.ExecuteReader
            Return True
        Catch ex As Exception
            Return False
        End Try
        datareader.Close()
    End Function


    Public Function storedata(ByVal solid As Odbc.OdbcConnection, ByVal sqlcommand As String)
        Try
            Dim command = New Odbc.OdbcCommand(sqlcommand, solid)
            command.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
End Class