• 0
Sign in to follow this  
zerebeu

Cor De Fundo De Msflexfrid

Question

6 answers to this question

Recommended Posts

  • 0

não entendi, tente detalhar melhor.

você quer trocar a cor de fundo de uma flex ???

Share this post


Link to post
Share on other sites
  • 0

vê se te ajuda:

linha=numero da linha que você quer trocar a cor

max = msflex.Cols - 1

For i = 0 To max

msflex.Row = linha

msflex.col = i

msflex.CellBackColor = &HC0FFC0 <-- insira aqui a cor

Next

Share this post


Link to post
Share on other sites
  • 0

Vou tentar ser mais explicito:

o programa consiste em gerir um complexo de campos de futsal. Os dados das horas e campos podem ser visualizados num msflexgrid...O que eu queria é que as reservas dos campos para aluguer(CellBackColor) ganhassem uma cor e as reservas para treinos ficassem com outra para ser mais fácil de distinguir para os treinadores...

exemplo:

"select campo1 from complexo where campo1 like '%Treino%'" --->queria que este resultado da query tivesse uma cor CellBackColor

"select campo1 from complexo where campo1 like '%Aluguer%'" --->queria que este resultado da query tivesse OUTRA CellBackColor

Aceito todas as sugestões....

Share this post


Link to post
Share on other sites
  • 0

vê se é isso montei um sisteminha só pra ver se funciona e os campos de aluguel ficaram na cor verde, se precisar me manda seu email que te mando o fonte

Private Sub Form_Load()

Set cnn2 = CreateObject("ADODB.Connection")

cnn2.Open "DRIVER={MySQL ODBC 3.51 Driver};user=root;password=;server=127.0.0.1;database=test;option=20499"

Set rs2 = CreateObject("ADODB.RecordSet")

Set rs2.ActiveConnection = cnn2

ssql = "select * from complexo"

rs2.Open ssql, cnn2

Dim i As Integer

i = 0

Do While Not rs2.EOF

i = i + 1

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.TextMatrix(i, 0) = rs2(0)

MSFlexGrid1.Row = i

MSFlexGrid1.CellBackColor = IIf(rs2(0) = "ALUGUEL", &HC0FFC0, vbWhite)

rs2.movenext

Loop

End Sub

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this