Makeing One Word (or More) In A Flexgrid Cell A Different Color
Does anyone know a way to make one or more words (not all of the words) in a cell of a flexgrid to be a different color. I know that there is the .CellForeColor property, but that changes all of the words in the cell. I want to change just one (or even more than one) a different color than black (but leave others black)... does that question even make sense?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
FlexGrid Cell Color
Im facing some problems in the FlexGrid
Im trying to change the font color of the row, based on the status of the record. (No changes on the back color, only in the forecolor)
To change the color Im using following code
Code:
MyGrid.CellForeColor = vbRed
To show the data in the cell im using following code
Code:
MyGrid.TextMatrix(1, 2) = "HOTEL" 'Hotel is My data
If I use .TextMatrix(row,col) property this is not working properly. Instead of changing required cell,It is changing the color of fixed row's cell
But If I use following code to show the data in the cell. It is working fine
Code:
with MyGrid
.Col=1
.Row=1
.CellForeColor = vbRed
.Text="Hotel"
end with
Is there any way to show different cell color with using textmatrix property. bcos Textmatrix property is easy to use and coding line is less
Any ideas ?
Thanks in Advance
A.Rajeeshun
Change FlexGrid Cell Color
Hello;
I searched forum about this problem but couldn't find enough answer for me.
I'm using flexgrid to show my result. I want to change cell fore color when my result failed .
I tried something like below
Code:
With Me.FlexGrid1
For i=1 to 10
if Result(i)<1 Then 'Result Failed
.SelRow=i
.CellForeColor=vbRed
.TextMatrix(i,1)=Result(i)
Else
.TextMatrix(i,1)=Result(i)
End If
next i
End With
Thanks
Change Cell Color In Flexgrid.
I want to change the color of each cell in a flex grid based on the value from the table.for example there are nine columns and 2 rows.each cell can get some value or the value 'F'.if it is 'F' i want green color, if it is sthg else I want red.grid1.cellbackcolor changes fro the whole row.pl suggest.
How To Change The Color Of A Cell In Flexgrid
hi, i have flexgrid with 5 columns -
"ProductName", "QuanitityOnhand", "UsedQuantity", "OrderQuantity" and "Order"
Row1 Folger Coffee 5 bottles 10 bottles 10bottles No
Row2 FrenchFry bags 1 bag 20 bags 0 bags Yes
Row3 Sugar 5 Cases 1 Case 0 Cases No
on flexgrid load event the values for column 5 - "Order" is all "no" , and when the user dbl_clicks on a row it changes to "yes".
i hav acheived so far ,i also want to colour the selected cell(2row, 5Col - in this case)
but the selection is made by dbl_clicking on a row (row2)
i dont want the entire selected row i just want (row2 , col5 ) ("yes") to be in redColor
-------------------------------------------------------------------------------------------------------------------------
Thanks for any help
Shiny
Color FlexGrid Based On Data In Cell
I have a column and I want to paint it certain colors depending on the text.
I found some code and tried to recycle it but that didnt work... Here is the code
VB Code:
Dim lrow, lcol As Integer Dim lcolor As String With MSFlexGrid1 For lrow = .FixedRows To .Rows .Row = lrow If UCase(.TextMatrix(lrow, 1)) = "BREAK" Then lcolor = vbGreen For lcol = 0 To 1 .Col = lcol .CellBackColor = lcolor Next lcol ElseIf .CellBackColor <> vbGreen Then lcolor = vbRed End If Next lrow End With
It goes into an infinity loop and crashes the IDE.
Change Cell Color Of Flexgrid With Certain Data
I am generating an excel type sheet using a flexgrid. It populates a top and side that is non moving and has different background colors. It has a color chart at the top for different entries of data from different groups. The groups are fixed with a certain color. I have all of that working except for when it grabs the data and populates the cells, I want it to check a certain field for the color and use that color for the cell color, any ideas? Here is my code so far.
VB Code:
Private Sub Form_Load()Dim db_file As StringDim statement As StringDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim c As IntegerDim r As IntegerDim col_wid() As SingleDim field_wid As Single ' Open a connection. Set conn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TrainingManagementDB2;Data Source=kg-cfsce-2b" conn.Open ' Select the data. statement = "SELECT * FROM Vehiclenov" ' Get the records. Set rs = conn.Execute(statement, , adCmdText) ' Use one fixed row and no fixed columns. MSFlexGrid1.Rows = 6 MSFlexGrid1.FixedRows = 5 MSFlexGrid1.Cols = 4 MSFlexGrid1.FixedCols = 3 ' Display column headers. MSFlexGrid1.Rows = 6 MSFlexGrid1.Cols = rs.Fields.Count ReDim col_wid(0 To rs.Fields.Count - 1) For c = 0 To rs.Fields.Count - 1 MSFlexGrid1.TextMatrix(1, c) = rs.Fields(c).Name col_wid(c) = TextWidth(rs.Fields(c).Name) Next c ' Display the values for each row. r = 1 Do While Not rs.EOF MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 For c = 0 To rs.Fields.Count - 1 MSFlexGrid1.TextMatrix(r, c) = rs.Fields(c).Value & vbNullString ' If MSFlexGrid1.TextMatrix(r, c) = "1" Then MSFlexGrid1.CellBackColor = &HFFF000 ' See how big the value is. field_wid = TextWidth(rs.Fields(c).Value & vbNullString) If col_wid(c) < field_wid Then col_wid(c) = field_wid Next c rs.MoveNext r = r + 1 Loop ' Change cell color of row 3 and 4 MSFlexGrid1.Row = 3 t = 0 For t = 0 To 2 For i = 0 To MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = i MSFlexGrid1.CellBackColor = &HFFF000 Next t = t + 1 MSFlexGrid1.Row = MSFlexGrid1.Row + 1 Next ' Change cell color of color code chart cells MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 11 MSFlexGrid1.CellBackColor = &HFF80FF MSFlexGrid1.Row = 2 MSFlexGrid1.Col = 11 MSFlexGrid1.CellBackColor = &H80C0FF MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 12 MSFlexGrid1.CellBackColor = &HFF& MSFlexGrid1.Row = 2 MSFlexGrid1.Col = 12 MSFlexGrid1.CellBackColor = &HC0C0FF MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 13 MSFlexGrid1.CellBackColor = &HFF00& MSFlexGrid1.Row = 2 MSFlexGrid1.Col = 13 MSFlexGrid1.CellBackColor = &HFFFF00 MSFlexGrid1.Row = 2 MSFlexGrid1.Col = 15 MSFlexGrid1.CellBackColor = &H808080 rs.MoveFirst rs.Close ' change cell color of rows 5 to end and only columns 1-3r = 5rs.Open "select count(*) as recordcount from VehicleNov" Do While Not r = rs.Fields(0).Value + 1 MSFlexGrid1.Row = r t = 0 For t = 0 To 2 For i = 0 To 2 MSFlexGrid1.Col = i MSFlexGrid1.CellBackColor = &HC0F0FF Next t = t + 1 Next r = r + 1 Loop ' Close the recordset and connection. rs.Close conn.Close ' Set the column widths. For c = 0 To MSFlexGrid1.Cols - 1 MSFlexGrid1.ColWidth(c) = col_wid(c) + 240 Next c End Sub
Flexgrid: How To Change The Border Color Of A Cell?
I think that it cannot be done "easily", but does anybody have a trick to change the border color of just one cell in a flexgrid of Microsoft (I did not find any cellbordercolor property or something like this).
Thanks for your time.
Jaime
Compare String In FlexGrid Cell To Excell Sheet Cell
I have a string in a cell of a flexgrid that I want to compare to a string in an excel sheet cell
I tried doing this:
MsFlexGrid1.Col=0
MsFlexGrid1.Row=0
If MSFlexGrid1.Text = XLSheet3.Cells(3, 1) Then
'Do the stuff I want to do
End If
But it gives me a runtime error and points to this.
Are they of different types? How can I compare these two strings?
VB Excel Changing Color Of Cell Lettering Color When Out Of Range
Hi all,
I have a data sheet from rtf file that I read into the excel table so that it looks need. I also have a limit as to the range of these values. Eg. 3 to 7. So if the value in the cell is 9, it is out of range and I am suppose to highlight it in red colour. Any help on this ? I am using Visual Basic, not VBA.
On another question, is there any good Visual Basic example of how to draw a chart without having the program crash during the second time? Thanks in advance.
VB Excel Changing Color Of Cell Lettering Color When Out Of Range
Hi all,
I have a data sheet from rtf file that I read into the excel table so that it looks need. I also have a limit as to the range of these values. Eg. 3 to 7. So if the value in the cell is 9, it is out of range and I am suppose to highlight it in red colour. Any help on this ? I am using Visual Basic, not VBA.
On another question, is there any good Visual Basic example of how to draw a chart without having the program crash during the second time? Thanks in advance.
Form Text Color Same As Excel Cell Text Color
It seems like this must be easier than It is...
But I basically have a text field on my form that is filled with an excel cell value. OK no problem.
I want to add color formating, but to do this I need the form to be able to read the excel text color and set the form text color to the same.
AND the excel workbook has a custom pallette.
I am testing both a regular text box and rich text box.
If the excel font is red and I use:
RichTextBox1.SelColor = xlApp.Selection.Font.Color
It renders the text white??
Any ideas
Thanks in advance
FlexGrid Cell Colour
I am using this loop and if statement to compare two values against each other and if the first value is greater than the second i want to set a cell colour:
Code:
For coly = 1 To 26
If Val(MSFlexGrid1.TextMatrix(8, coly)) > Val(MSFlexGrid1.TextMatrix(9, coly)) Then
MSFlexGrid1.CellBackColor = vbRed
End If
Next
Now at the moment it works partially but gets terrible errors. My plan was to specify that the cell which should change colour using the reference i.e. (9,coly) so that when the code runs it compares cell 1 against cell 2 and if cell 1 is greater than cell 2 then cell 2 turns red.
Is there anyway i can specify easily which cell will be turning colour, like using the grid co-ordinates for it.
Thanks
FlexGrid Format Cell's
Hi
I need the data in Combo1, Combo2,Combo3 and Combo4 to be shown in FlexGrid Row 1 Col 5 with separated x like that
Combo1.Text = "A1"
Combo2.Text = "2B"
Combo3.Text = "3C"
Combo4.Text = "GG9"
The result will be A1x2Bx3CxGG9
If one of the combo had no data let say Combo2 then
The result will be A1x3CxGG9
Ther is no x befor or after
How to do this
Thank's
FlexGrid Format Cell's
Hi
I want to format the ComboBox text which placing over the FlexGrid
The result will show in FG2 cell in .Col 18 like that
dataincellxdataincellxdataincellxdataincellxdataincell
Where x is separates the cell data
If there is no data in any cell's then we want to make sure there is'nt tow xx behaind each other
Code:
Private Sub Command1_Click()
With FG2
.Col = 18
.Text = Combo6.Text & "x" & Combo7.Text & "x" & Combo9.Text & "x" & Combo10.Text & "x" & _
Combo14.Text & "x" & Combo15.Text & "x" & Combo17.Text & "x" & Combo18.Text & "x" & _
Combo23.Text & "x" & Combo24.Text & "x" & Combo26.Text & "x" & Combo27.Text & "x" & _
Combo31.Text & "x" & Combo32.Text & "x" & Combo34.Text & "x" & Combo35.Text
FG2.Text = Replace(FG2.Text, "xx", "x") ' If there is more then 2 xx it want work
' Also if i enter the data in any combo then i press the command
' then i clear the data and press the command it want work
End With
End Sub
What i miss
To Paint The Second Flexgrid's Cell
hi, i should want to paint the second flexgrid's cell. my code is this
Do While Not rst.EOF
If flagPrimaRiga Then
FlexGridErr.CellBackColor = colore
flagPrimaRiga = False
Else
If rst!Targa <> TargaPrec Then
If colore = &HC0E0FF Then
colore = vbCyan
Else
colore = &HC0E0FF
End If
End If
FlexGridErr.CellBackColor = colore
End If
TargaPrec = rst!Targa
FlexGridErr.Rows = rst.RecordCount + 1
.....................but to paint only the first column
why?
Flexgrid Cell Alignment
Is there a way that I can set certain cells to have text aligned to the right and others to be left aligned.
Flexgrid Cell Setfocus
is it possible to setfocus of a particular cell?
i want to use the cellbackcolor command to change all the cells in the row. cellbackcolor sets the cell that is currently in focus.
any ideas???
Flexgrid Cell Edit
hi!
i wonder if anyone has experienced something like this before.
i've running prog that superimposes a text box over current flexgrid cell. contains several columns, seems ok.
when the text box is visible, and user presses enter, the text box should move (tab) over the next column still superimposed.
that's where my problem lies.
if i press enter, focus moves over the next column, text box seemed to be hidden.
but if i add, say, a msgbox after the enter, before transferring focus, cell editor (text box) functions what it is intended to be.
please someone explain this to me?
thanks a lot!
Specify A Click Cell In Flexgrid???
I'm comparing info from two MSFlexGrids. When I check a row in the Grid2, info from a different column is inserted into the first
grid on a row which is incremented each loop.
What I wish to do now is to specify which row, in Grid1, I want data from grid2 to appear. I want to click on a cell in the second column of Grid1 - that cell is now the 'Destination cell'.
Next I will check a row from grid2 and info from a different column will copy to the 'Destination cell' I do not want to drag and drop between thew cells.
Hope I'm making just a little sense
Thanks
MS Flexgrid Cell Alignment
I am populatiing data into MSFlexgrid. One field is related to Address of the person. A problem is coming now:
If the address begins with number like 14,Xyz Street,City-111 111 then it is aligned right but if the address starts with alpabhets say, Shop No. 14A, Xyz street, City - 111 111 then it is left aligned.
How can this be rectified?
FlexGrid Format Cell's
Hi
I want to format the ComboBox text which placing over the FlexGrid
The result will show in FG2 cell in .Col 18 like that
dataincellxdataincellxdataincellxdataincellxdataincell
Where x is separates the cell data
If there is no data in any cell's then we want to make sure there is'nt tow xx behaind each other
VB Code:
Private Sub Command1_Click() With FG2 .Col = 18.Text = Combo6.Text & "x" & Combo7.Text & "x" & Combo9.Text & "x" & Combo10.Text & "x" & _Combo14.Text & "x" & Combo15.Text & "x" & Combo17.Text & "x" & Combo18.Text & "x" & _Combo23.Text & "x" & Combo24.Text & "x" & Combo26.Text & "x" & Combo27.Text & "x" & _Combo31.Text & "x" & Combo32.Text & "x" & Combo34.Text & "x" & Combo35.TextFG2.Text = Replace(FG2.Text, "xx", "x") ' If there is more then 2 xx it want work ' Also if i enter the data in any combo then i press the command ' then i clear the data and press the command it want workEnd With End Sub
What i miss
FlexGrid Format Cell's
Hi
I have 2 flexGrid and i want to format the data in cell's like that
dataxdataxdataxdata
An x is separates the cell data
Exampel for first Row
FG1
the cell in .Col 6 x the cell in .Col 7 x the cell in .Col 9 x the cell in .Col 10 x the cell in .Col 14 x the cell in .Col 15 the cell in .Col 17 x the cell in .Col 18
FG2
the cell in .Col 3 x the cell in .Col 4 x the cell in .Col 6 x the cell in .Col 7 x the cell in .Col 11 x the cell in .Col 12 x the cell in .Col 14 x the cell in .Col 15 x the cell in .Col 17
The result will show in FG2 cell in .Col 18 like that
dataincellxdataincellxdataincellxdataincellxdataincell
Where x is separates the cell data
If there is no data in any cell's then we want to make sure there is'nt tow xx behaind each other
Or
Format the ComboBox which placing over the FlexGrid
VB Code:
Private Sub Command1_Click() With FG2 .Col = 18.Text = Combo6.Text & "x" & Combo7.Text & "x" & Combo9.Text & "x" & Combo10.Text & "x" & _Combo14.Text & "x" & Combo15.Text & "x" & Combo17.Text & "x" & Combo18.Text & "x" & _Combo23.Text & "x" & Combo24.Text & "x" & Combo26.Text & "x" & Combo27.Text & "x" & _Combo31.Text & "x" & Combo32.Text & "x" & Combo34.Text & "x" & Combo35.TextFG2.Text = Replace(FG2.Text, "xx", "x") ' If there is more then 2 xx it want work ' Also if i enter the data in any combo then i press the command ' then i clear the data and press the command it want workEnd With End Sub
Thank's
Animated GIF In Flexgrid Cell
Hello, just curious.. is there a way to view an animated GIF in a flexgrid cell? (other than disassembling each frame, storing it in an image control and using timers to display each frame?)
Thanks!
-Quack
Gotfocus On Each Cell Of A Flexgrid
hi everyone.. how can i get the value of a certain cell in a flexgrid everytime this particular cell receives the focus.. I already have the code to get the value if i use the click event but if i use the up and down keys.. it wont return the value.. any suggestions? thanks..
Highlighting A Flexgrid's Cell
When my msflexgrid control gets the focus, I want to highlight cell(1,1) unless it has been clicked on with the mouse, in which case I want the clicked cell to be highlighted. I think it must be fairly easy but I've been sitting too long in front of the computer today and I'm kind of stuck.
Width Of A Cell In Flexgrid
Hi
I have a Flexgrid with a cell width of 2500.I want to write into a cell but most of the time the lenght of the string I want to enter is greater than the cell width so the user could not see the full string.
what can i do in this case?There isn't a multiline property?
thanks
Max Cell Limit In A Flexgrid
Hi All,
I used a msflexgrid to display a data retrieved from the database..
VB Code:
..Me.msflexgrid1.ColWidth(0) = 2200 'stepNameMe.msflexgrid1.ColWidth(1) = 2200 'startTimeMe.msflexgrid1.ColWidth(2) = 1800 'userIdMe.msflexgrid1.ColWidth(3) = 1800 'reasonCodeMe.msflexgrid1.ColWidth(4) = 1500 'categoryMe.msflexgrid1.ColWidth(5) = 1500 'quantityMe.msflexgrid1.ColWidth(6) = 2200 'sourceLotsMe.msflexgrid1.ColWidth(7) = 2200 'targetLotsMe.msflexgrid1.ColWidth(8) = 5000 'descriptionMe.msflexgrid1.ColWidth(9) = 35000 'comment..
the last column shud display comments value which a very very long text..
however, when i run this project, the comment column did not display full contents retrieved from the dbase..
is there any max limit for text that can be displayed in a cell?
anyone have idea how to solve this?
Thanks!
Select Cell In Flexgrid
Firstly, this is my first time using the Flexgrid.
But anyway, here's what I need to do: I need to select a cell in the Flexgrid, but if it's not visible it will scroll down until it's visible.(I'm searching the grid... FYI)
Code:
Dim i As Integer
For i = 0 To fgMOB.Rows - 1
If LCase(Text1.Text) = LCase(fgMOB.TextMatrix(i, 1)) Then
'select the cell
End If
Next i
Any help? Thanks.
Coloring Flexgrid Cell By Value
Got my flexgrid working, but 2 probs (so far).
1. I'd like to have column headers with static titles on them, and can accomplish this, but when I set fixed col to 1, it requires that there be another row, and when I loop through my RS to add rows, it skips over the blank Row and leaves it sitting there.
2. When the columns are populated (from RS from mdb), I want each cell checked, and if, for instance, it is .9<num<1 then color the background of that cell green.
I've seen everything to color by row and column, but with the code that I finally got working to pop. the cells I can't find a good place to check the values and apply colors accordingly.
VB Code:
Do While Not rs.EOF MSHFlexGrid1.AddItem "" For lngCol = 0 To MSHFlexGrid1.Cols - 1MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows - 1, lngCol) = rs.Fields(lngCol).ValueNext rs.MoveNextLoop
Also--Anything look like it could be improved upon with the above code?
Thanks,
Guph
Flexgrid Enter Cell
If i have to go a round about way for entering text into a flexgrid using a textbox that follows you around the grid why then is there an EnterCell event?
Event EnterCell()
Member of MSHierarchicalFlexGridLib.MSHFlexGrid
Fired before the cursor enters a cell.
Does anyone know?
Thanks in advance,
jim
Disable Flexgrid Cell
i need to know how to disable a cell on a msgFlexgrid that has already been selected. I'm doing a jeopardy game and can get the text to dissappear after selection but if the same cell is clicked again it will bring up the same question as before from the database......thanks
Flexgrid Cell Displacement
My decision table program will have to loop thru columns and rows of a flexgrid, comparing text in a lot of cell combinations. Is there a simple way to use relative positioning (like col + x) to compare to 2 cells in one statement?
Otherwise, it may be something like (off the top of my head):
for j = 1 to (grdA.cols - 2)
grdA.col = j
for i = 1 to (grdA.rows - 1)
wktext = grdA.text
newcol = j + 1
do while newcol < (grdA.cols - 1)
grdA.col = newcol
if grdA.text = wktext then
<a bunch of tests>
end if
newcol = newcol + 1
end
loop
loop
Thanks,
Jim
Select A Flexgrid Row (or Cell)
How can I select a specific row or cell in a Flexgrid with code?
The user will enter a search term and then I will check to see where that text is in the Flexgrid. When it finds matching text, I want it to scroll to that point in the Flexgrid and highlight it. I have tried to find the code, but have come up empty handed. Thanks for any help!
Flexgrid Cell Question
Is it posible to change the borber color of the selected cell, to say red, and to return it to normal when a new cell has been selected?
Thanks,
Rev. Michael L. Burns
Flexgrid Cell Click
I want to set the cursor on a particular cell in the flexgrid say 2nd row,2nd col.Does anyone have the code to get the screen location of the cell to set the cursor.
Regards
Seena
Controls Within A Flexgrid Cell
Hello,
Is it possible to insert a control (such as a dropdown box or commandbutton) into a flexgrid cell?
if so, how?
thanks
Darren Logan BSc (Hons)<?xml:namespace prefix = o ns ="urn:schemas-microsoft-com:office:office" />
Development engineer
Flexgrid Cell Access
Hello,
Is it possible to get the contents (text) of a specific cell in aflexgrid without setting the .col and .row first?
In other words, at the moment, to get the text from a specific cell (say1,1) i do:
Dim ret as string
grid.row = 1
grid.col = 1
Ret = grid.text
But this puts the focus on the cell (1,1) and it could be that the app.is writing to other cells at the same time which can cause confusion.
Thanks.
Best regards
Darren Logan BSc(Hons)
Development Engineer
Flexgrid Cell Adding?
i have a flexgrid in my column 6 i want for all the cells in the column to add themselves. How can i have them add themselves what code do i use please???
thanks.
FlexGrid Cell Sizing
I am using a flex grid to display one character per cell so that I can create some mappings for old positionally delimited text files.
I'm using a monospaced font and I'd like each cell to be right next to the other cells. THe problem is when I set the cell width to small values, a bunch of white space overlaps the previous column. I have turned off gridlines but to no avail.
Any ideas?
Drag Picture Into Any Flexgrid Cell????
Hi all,
Any ideas how I can drag/drop an image from a picture box into a cell in a flexgrid?? (Using VB6)
It sounds so easy and yet I can't get the image to appear in a cell of the flexgrid!?!
Thanks in advance... ;¬)
VoX
|
TRACKER
