magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
Codice sorgente - presumibilmente VB.NET |
Private Sub MSHFlexGrid1_Click() Dim CELL_OK As Integer ' colora celle Dim cell_color As String Dim cell_color_restore As String cell_color = Hex(MSHFlexGrid1.CellBackColor) cell_color_restore = cell_color Select Case cell_color Case "FFFFFF" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) Case Is = "80000005" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) Case Is = "C0C0C0" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) CELL_OK = True Case Is = "FF" If CELL_OK = False Then MSHFlexGrid1.CellBackColor = CommonDialog1.Color Or RGB(192, 192, 192) Else MSHFlexGrid1.CellBackColor = CommonDialog1.Color Or RGB(192, 192, 192) CELL_OK = False End If End Select End Sub
|
ciao ragazzi, uso questo codice per colorare a mio piacimento le celle , pero' purtroppo i colori sono molto sbbiaditi... o altre volte .. non colora x niente
mi sapreste dare un suggerimento?
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Io utilizzo le costanti di vb (es.: vbRed, vbBlue, vbGreen, ...)...
|
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
e come fare in modo che l'utente scelga il colore?
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
puoi fare una combobox dove l' utente sceglie il colore o magari con un commondialog motlo + elegante
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da antometal:
puoi fare una combobox dove l' utente sceglie il colore o magari con un commondialog motlo + elegante |
Quoto antometal, molto meglio usare il commondialog (commondialog1.showcolor) |
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
Codice sorgente - presumibilmente VB.NET |
Dim CELL_OK As Integer ' colora celle Dim cell_color As String Dim cell_color_restore As String cell_color = Hex(MSHFlexGrid1.CellBackColor) cell_color_restore = cell_color Select Case cell_color Case "FFFFFF" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) Case Is = "80000005" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) Case Is = "C0C0C0" MSHFlexGrid1.CellBackColor = RGB(255, 0, 0) CELL_OK = True Case Is = "FF" If CELL_OK = False Then MSHFlexGrid1.CellBackColor = Combocolori.ForeColor Or RGB(192, 192, 192) Else MSHFlexGrid1.CellBackColor = Combocolori.ForeColor Or RGB(192, 192, 192) CELL_OK = False End If End Select
|
ho fatto cosi
pero' non funge
mi colora la cella di NERO
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
nn capisco questa parte di codice
MSHFlexGrid1.CellBackColor = Combocolori.ForeColor Or RGB(192, 192, 192)
ForeCololr è il colore del testo che è sempre nero di default
cmq prova con la commondialog
in un button metti questo codice
commondialog1.showcolor
MSHFlexGrid1.CellBackColor=commondialog1.color
dovrebbe funzionare
|
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
Postato originariamente da antometal:
nn capisco questa parte di codice
MSHFlexGrid1.CellBackColor = Combocolori.ForeColor Or RGB(192, 192, 192)
ForeCololr è il colore del testo che è sempre nero di default
cmq prova con la commondialog
in un button metti questo codice
commondialog1.showcolor
MSHFlexGrid1.CellBackColor=commondialog1.color
dovrebbe funzionare |
MSHFlexGrid1.CellBackColor = Combocolori.ForeColor Or RGB(192, 192, 192)
e la combo con la lista dei colori
scegliendo il colore della lista non va
con questo :
cmq prova con la commondialog
in un button metti questo codice
va ed è quello che usavo io |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Non usare la funzione RGB secondo me è quella che da problemi, come nel linguaggio html in cui i colori si indicano per esempio con:
#000000
#FF0000
ecc...
anche in vb ci sn valori di questo tipo per sapere i colori trovi tabelle su internet oppure prendi una textbox e se tu vedi a destra verso il basso la proprietà forecolor vedi che come colore non c'è scritto ad esempio "black" ma "&H80000008&" (i colori in vb iniziano con "&H" e finiscono con "&") tu alla text metti il colore che vuoi e poi ti vai a guardare il relativo "valore" e poi usa questi "valori" per i colori...
|
|