recuperar el color de una tabla color y mandar a pintar en la columna correspondiente
Publicado por Jose (23 intervenciones) el 11/10/2016 19:04:36
hola de nuevo mi consulta es la siguiente deseo
recuperar el color de una tabla color y mandar a pintar en la columna correspondiente por ejemplo para cuando vuelva abrir la aplicacion me cargue los colores en este como lo que adjunto estoy trabajando con SQL 2012 Y VB.NET componente (DevExpress)
De esta manera tengo organizado la color( columna color es tipo integer) :
ID Columna Color
De esta manera mando a pintar las columnas:
De esta manera mando a guardar el color de esa columna:
muchas gracias por su tiempo
recuperar el color de una tabla color y mandar a pintar en la columna correspondiente por ejemplo para cuando vuelva abrir la aplicacion me cargue los colores en este como lo que adjunto estoy trabajando con SQL 2012 Y VB.NET componente (DevExpress)
De esta manera tengo organizado la color( columna color es tipo integer) :
ID Columna Color
De esta manera mando a pintar las columnas:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub V_quincenaII_RowCellClick(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowCellClickEventArgs) Handles V_quincenaII.RowCellClick
Dim cd As New ColorDialog()
If e.Column.AbsoluteIndex = 1 Then
If cd.ShowDialog() = DialogResult.OK Then
V_quincenaII.Columns(1).AppearanceCell.BackColor = cd.Color
V_quincenaII.Columns(1).OptionsColumn.ReadOnly = True
registrarColor(cd.Color.ToArgb, 1, Me.cmbMes.EditValue, txtano.EditValue)
End If
End If .....
If e.Column.AbsoluteIndex = 16 Then
If cd.ShowDialog() = DialogResult.OK Then
V_quincenaII.Columns(16).AppearanceCell.BackColor = cd.Color
V_quincenaII.Columns(16).OptionsColumn.ReadOnly = True
registrarColor(cd.Color.ToArgb, 16, Me.cmbMes.EditValue, txtano.EditValue)
End If
End If
end sub
De esta manera mando a guardar el color de esa columna:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub registrarColor(ByVal color As Integer, Columna As Integer, mes As Integer, ano As Integer)
Try
Using con As New SqlConnection(Rutina.CadenaConexion())
con.Open()
Dim query As String = "INSERT INTO Colores(Color,columna,id_mes,ano) VALUES (@color,@columna,@mes,@ano)"
Dim cmd As New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@color", color)
cmd.Parameters.AddWithValue("@columna", Columna)
cmd.Parameters.AddWithValue("@mes", mes)
cmd.Parameters.AddWithValue("@ano", ano)
cmd.ExecuteNonQuery()
Me.G_quincenaII.DataSource = Deduccion.ListQuincena_II(Me.cmbMes.EditValue, txtano.EditValue)
MessageBox.Show("Color guardado!")
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
muchas gracias por su tiempo
Valora esta pregunta
0
