No voting please. The original author (Richard Mewett) has abandoned this Grid and is now using another; but this grid is too good to let die. This is a Major update (the number of changes made in this version are significant), so please read the HistoryLog before using. The HistoryLog also contains a list of all public subs, functions, and properties.
Notes: Not all properties are illustrated in the demo.
Oblivious omissions: Cell merging (got to complicated); Datacontrol support (which you should avoid anyway).----------------------------------------------------
(Update: Added RowUnselect)
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Sir this project stacks while is loading on any form OS:WinXp Pro Sp1 Looks Like Subclassing problem! (If this comment was disrespectful, please report it.)
2. In Editable mode = fale (mean Lock mod), when I use Goto row: 30, the grid is able to edit in 30th cell. It is not correct I think!.
3. When I click "Add Items" button. It is too slow! --> It can be used in commercial application that usually deal with billion of records.
After some short test, I think this grid can't be used if the performance of adding items is not good. (If this comment was disrespectful, please report it.)
Great that anyone is here to develop this control in future. I have made my own changes to the old control and if you can make it possible to write text to cells when the cell is in progressbar-mode that would be great. Thanks for future developments. (If this comment was disrespectful, please report it.)
Not worth spending time on this control.There's a serious problem with subclasser or the way subclasser being used.You can try to change your non-unicode option to asia language such as Chinese (LCID=2052) or Japanese,the control is going to die straightly.The problem hasn't yet solved by the original author and Paul,Steppenwlofe...
It's worth trying to rewrite VBAccelerator's sGrid2,which is a nice control except of some small problems. (If this comment was disrespectful, please report it.)
i've found many crashes that it's no use writing them in here. so, the best grid ever that i've found is still "s-grid 2.0" from vbAccelerator. (If this comment was disrespectful, please report it.)
i've repalce CStr(vAvg) by Replace(CStr(vAvg), ",", ".") because i'd an error convertion in sql request (If this comment was disrespectful, please report it.)
'i have create a button in to the grid very usefull. 'Can you import this button option into the grid .AddColumn " ", 400, lgAlignCenterCenter, lgbutton '1 Select Case mCols(mColPtr(lCol)).nType Case lgBoolean Case lgbutton nImage = mCF(mItems(mRowPtr(lRow)).Cell(mColPtr(lCol)).nFormat).nImage If nImage = 0 Then Call SetRect(R, mCols(mColPtr(lCol)).lX + 1, RowTop(lRow), mCols(mColPtr(lCol)).lX + mCols(mColPtr(lCol)).lWidth - 1, RowTop(lRow) + mItems(mRowPtr(lRow)).lHeight) DrawXPButton .hDC, R, lgNormal
(If this comment was disrespectful, please report it.)
Last week i was porting me listviews in a current project to this lynxgrid. In one part i am using the "SetOleData" Event for Drag and Drop items to onother form. Could you add this Events to your grid. That would be a great step to make this grid realy professional. Thank you very much for you work on this. (If this comment was disrespectful, please report it.)
Hello, i have 2 requests: 1. Please add BackcolorHdr (backcolor for column header) option. 2. Please make the horizontal scroll bar set to width of grid. Eliminating the empty space to the right. Thank you. (If this comment was disrespectful, please report it.)
oops..nevermind my first request. found the custom header color property.
With my second request, maybe something like the user32 lvm_setcolumnwidth (listview) that will autosize headers to control width to get rid of the blank space at right.
last i would like to see descriptions in the properties window to really give it that pro look.
Thanks (If this comment was disrespectful, please report it.)
NoName: You can autofit the column width by using VisibleWidth in the Form_resize event. (see ADO_Demo_Pictures) (If this comment was disrespectful, please report it.)
Hi Morgan, ty but still a problem. With the (ado demo pictures example), if you maximize window then return it to normal size - the horizontal scrollbar now shows and when moved to right there is a large empty space beyond the last column.
I would prefer an option so the horizontal scrollbar only moves = to the width of the total columns (not beyond into empty area) if possible.
In other words, like a listview the far right is the last column using the horiz scrollbar. [with the ability to add a new column too, but without the empty area to right of right most column].
This is an awesome project TY for the improvements and support. TY (If this comment was disrespectful, please report it.)
Really Good Work! 5 Stars from me!!! But you can get some inspiration from ucVHGrid of SteppenWolf! (John) (If this comment was disrespectful, please report it.)
The scroll in LynxGrid acts like other grid/spread sheets (moving 1 column at a time) while the scroll in ListView is more like scrolling a picture (smooth).
This “smooth” kind of scrolling is not possible in this control.
The only way to eliminate the blank space on the right is to make the total width of all of the columns equal the grid’s width
(If this comment was disrespectful, please report it.)
Thanks for the good ongoing work! I wonder how hard it would be to keep the selections (using multiselect), and clicking the right mousebutton. I want to use this with a popup for changing multiple properties at once on the selected rows (If this comment was disrespectful, please report it.)
I wanted to suggest a small change that I was able to make myself, but would like to know if you could make it part of your build so I can take advantage of updates without having to recode everytime. It's simple, the icon for multi-line rows instead of always being an up/down arrow icon, make it change to a down arrow when single line and an up arrow when in multi-line view.
Thanks (If this comment was disrespectful, please report it.)
Morgan, brilliant work. I have been following this since the day one. Some error I would like to highlight here. When you remove an Item, The Totals aren't updated. If you were to add a row and then make an entry in the Premium Dollar Cents Column, a Type Mismatch error occurs. I have a few Suggestions to make. Allow Column Headers with Font Face selection and Include Icons. Once Again Great Code ! 100 Globes ! (If this comment was disrespectful, please report it.)
Morgan, great code my friend!! im using it right now but i found a bud when you change the pos of a collumn and then try to order that collum i get a real mess. Thanks in advance for that great piece of work!!!! (If this comment was disrespectful, please report it.)
Morgan you have done an excelent work continuing the control, i have a question, there is some method to clear the columns estructure?? (If this comment was disrespectful, please report it.)
6/26/2008 12:08:35 PM:
Morgan, thanks, I'am using your control and it works wery well but there's an issue concerning total row: totals are not set to zeros when executing clear method. (If this comment was disrespectful, please report it.)
I am using lynxgrid for some data entry. I would like to highlight cells that have invalid data by changing the fontcolor to red for those cells. Tried .cellforecolor but that doesn't do it. Any suggestions?
Also, for reasons I can't figure out, occasionally after program termination, the grids will appear with a diagonal hatch marks and the docked properties table changes to a MSFT properties table. THe only way to resolve this is to exit VB and start it up again.
Thanks in advance for any replies.
(If this comment was disrespectful, please report it.)
It must be something with your machine because it is running on 4 Vista machines that I know of (1 Vista Home and 3 Vista Business). Do you have VB's SP5 installed? (If this comment was disrespectful, please report it.)
i have vista ultimate sp1, and vb6 sp6 installed on it i think,what problem maybe in regional settings... because, i remember, what and in XP SP3 also grid can't run
(If this comment was disrespectful, please report it.)
I am not sure what I can do to help you. I have this control running on the following 32-bit systems: Win2000 SP4, XP SP2 & 3, and Vista (all versions).
I know that there is a problem with the sub-classing on non-English version of Windows but I have no way to test those systems.
Do you have any other controls that use sub-classing? You could try to fix the problem by replacing the sub-classing. (If this comment was disrespectful, please report it.)
nice code, and work under XP ..but not work under Vista (not responding) when i clik on it after i fill data.. and hang.. i belive you can fix it.. keep coding.. (If this comment was disrespectful, please report it.)
xp or vista crash maybe use font. try Font change. Not work some country font. i try and work it. (If this comment was disrespectful, please report it.)
Good work, is a great control only one feature is missing to be 100% completed. It should have the feature to group records (lines) by dragging columns to a gouping box like Outlook grid. (If this comment was disrespectful, please report it.)
For those who have problems running this control in Windows XP/Vista/2003 try the following: Find this code "Optional ByVal bIdeSafety The Boolean = True)" and change it to "Optional ByVal bIdeSafety The Boolean = False)". The problem is probably caused by Windows DEP (Data Execution Prevention). (If this comment was disrespectful, please report it.)
Type mismatch in cbool... SetFlag mItems(mRowPtr(mRowCount)).Cell(lCol).nFlags, lgFLChecked, CBool(sText(lCount)) (If this comment was disrespectful, please report it.)
sal, You tried to add a null string in a column that you defined as boolean. I will prevent this from happening in the next release. (If this comment was disrespectful, please report it.)
Scroll to the right and click any button, you will find the next immediate row disappears!, then click it again and it re-appears. Delete all rows except one and you will find the totals incorrect. (If this comment was disrespectful, please report it.)
I dont know why (cant debug it) but it hangs and crashes all the time. I test it under win2k srv sp4 and winXP Pro SP3 and both the same.. When I run the main project it loads rows on the grid and hangs. Any ideas? (If this comment was disrespectful, please report it.)
The problem exists when you use a regional setting that require the sub-classing to be unicode aware. Like for example when using Indonesian regional settings. When using standard regional
Morgan:
Have a look at Unicode ucComboBoxEx for an implementation that solves this problem. http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=66273&ln gWId=1
(If this comment was disrespectful, please report it.)
Hi ppl.. Yes the crush problem absolutely depends on regional settings. When I change from Turkish to English it works. Morgan; you can fire error by just changing your regional settings to any other than English. So you dont need a non-English version of OS. Best regards.. (If this comment was disrespectful, please report it.)
I have a project where i use your control for a pagewise showing of the data (like on ebay, 16 Rows per page). The higth of the control endet under the last row. In this case all rows are visible, but when i load the data of the first page, the vertikal scrollbar shows. When i changed the marked row 3 times the scrollbar disapears (and never shows for this session, this is also true for selecting next page etc.) The size of the srolling area seems to be rowcount+1 at first time. It would be nice , to fix this. Thank you very much. (If this comment was disrespectful, please report it.)
i downloaded i like the form1 screenshot i looking for that kind of property but i cant find that sample in the zip file. (If this comment was disrespectful, please report it.)
When AllowColumnsort is set to False, AllowColomnHover don't works. When AllowColumnsort is set to True, Columnhover works. Please fix this minor problem. Otherwise, the control is fabulous. Thank you (If this comment was disrespectful, please report it.)
how can i load entries from the database using the grouped rows i having problem with the rowdata (If this comment was disrespectful, please report it.)
very nice grid. But there is a little problem. When you use the GroupRow, the sorting doesn't work well : it would be intersting to sort inside the groups.
(If this comment was disrespectful, please report it.)
* Grid printing is handled by Exporting the grid data to a csv file and using a third party software application (like Excel) to print. I started to add printing capibilities to the control but the code to produce a deacent print was larger then the control itself. There are too many variables to handle (column and text widths, font sizes, paper sizes, how to handle printing beyond the paper's margens, etc.)
* Row grouping is just the ability to hide rows. How it works is handled outside of the control (see the demos); therefore you can not allow column sorting and expect the "grouped" rows to stay together. (If this comment was disrespectful, please report it.)
Hennyere: How many columns were in the 150000 rows? Why would you even add that many rows to a grid? It is too much for any user to search through. In any case, this is not a control problem; adding more memory to your PC will fix your problem.
(If this comment was disrespectful, please report it.)
Morgan, I too would like the printing feature much like I have in DBGrid. What about using one of the many code sources here on the planet for print preview engines and incorpotating that into the Lynx grid? It would save you a lot of coding.. Printing from the grid is much more needed in that many people do not use Excel or possibly need external apps. And we would have to insure something like that were installed so someone could print... With build in printing that problem goes away..
The second point is yes you can have 150000 rows also easily! :-)
I am using the grid in a law enforcement dispatching software package. Between officer reports, call logs, incident reports, use of force reports and dispatching center logs we easily get that many records for a given month. Many times we will have to search all records for court information etc and so calling up all records and logs for a period of time can lead to large amounts of data...
(If this comment was disrespectful, please report it.)
I included as example of someone's attempt at grid printing (see Print_and_2066795212007). I have used several professional grid ActiveX controls in the past and have never been satisfied with the result. Most are used as a way to dump the data to a printer. There are too many variables to consider and too many options you would need to give the user in order to produce a decent printout of the grid data. I started to add printing but the amount of code to do this was enormous; more that twice that of the control itself (and it was not even complete). This adds a lot of overhead that would be seldom used. (If this comment was disrespectful, please report it.)
I don’t agree that you should ever fill any grid with 150,000 rows. Grids should be used to display meaningful information to the user. A grid with 150,000 rows is not useful; it is just data overload. You should filter the data to something manageable before you present it to the user. Even querying a SQL database that returned 150,000 rows would probably return a Timeout error. (If this comment was disrespectful, please report it.)
Excel 2002 has a limit of 65,536 rows. Results should be filtered. Users shouldn't look through 150,000 rows for information. Congrats, on the regional settings fix! (If this comment was disrespectful, please report it.)
Hi Morgan, great job dude, i found a bug, but the way to solve too, if you try to change rowforecolor or rowbackcolor or any related to calling ApplyCellFormat if you have been sorted by another column then the format is not applied to the correct row, if guess because in applycellformat the line nIndex = mItems(vRow).Cell(vCol).nFormat should use the pointer as all others cell related properties, so i change the line to nIndex = mItems(mRowPtr(vRow)).Cell(vCol).nFormat and then all work fine, just include in the next update. Greetings!!! (If this comment was disrespectful, please report it.)
Any body can figure out how to bind lynxgrid in lynixgrid as combobox. My purpose is to bind a combobox which is MULTICOLUMN. as there is no any good multicolumn combo, so i thought it will be good idea to somehow link the another lynxgrid to any combo control which we can bind to any column and when user will drop down the combo, that another hidden grid should pop up on right place, so it will look like a multicolumn combo. Please advice! i really need to make it work. Please let me know if there is any substitute of it. if some body have example code, please mail me at smartstar@coolgoose.com
thanks (If this comment was disrespectful, please report it.)
Hi Morgan, There is something seriously wrong with the BindControl particularly with the date, please observe carefully between your second last and last posting. (If this comment was disrespectful, please report it.)
Hennyere, It is not a bug. CellValue and CellText share the same string variable; the only difference is that CellValue converts the string into a numeric value for you. The progress bar value (0 to 100) is set using CellProgressValue which is stored in mItems(mRowPtr(lRow)).Cell(mColPtr(lCol)).nFlags If I made the change you requested, then you would not be able to have text on the progress bar. Check out the demo included in frmFormatting. (If this comment was disrespectful, please report it.)
This must be a problem with your machine. None of the known 200+ users of this grid are having the problem you describe. (If this comment was disrespectful, please report it.)
Its found that you are using vb in vista.. dont you get some errors with MS Felx grid and Common dialog control? (If this comment was disrespectful, please report it.)
LynxGrid needs to more than just a pretty face. As it stands it does not perform well. Add 50,000 entries (mod the code). See how long it takes to add these. This is Ok but could be better. Now for the really bad part. Sort on one of the columns. The grid locks up and the form becomes immovable and locked until the sort is completed. This is a real world number and really not very large at all. Adding DoEvents in the sort subs just makes it worse since the grid will now accept other inputs. The grid should be locked during the sort. Anyway, real world grid it is not yet but all this can be done. (If this comment was disrespectful, please report it.)
We are dealing with VB here. The speed of the sort is influenced by the number cells (rows * columns) in the grid; the more cells the longer the sort. As I have said before, Grids should be used to display meaningful information to the user. A grid with 50,000 rows is not useful; it is just data overload. You should filter the data to something manageable before you present it to the user. If you need speed and have a large number of cells, then you need to use a commercial product or write your own in C, not VB. (If this comment was disrespectful, please report it.)
That print class is massive, thanks for sharing. Lorin, your definition of "real world grid" is bad. (If this comment was disrespectful, please report it.)
lorin is yours user realy want lookup 50.000 row at the time . come on, get a real. morgan thanks for the update. please keep update. (If this comment was disrespectful, please report it.)
can you make it virtual, so its load only viewable portion of data. rest of data load on scroll or select. its very slow on more than 10000 items at once. on site is a 'virtual grid' code, something like that. (If this comment was disrespectful, please report it.)
Great job! i like it very much. Just one bug to fix: changing whole grid .font at runtime wont work. Please fix. Best for me if there is the possibility to set HeaderFont and GridFont separately. (If this comment was disrespectful, please report it.)
Hi Morgan and thanks for the reply. I wil check the FormatCells sub today. One more request: it's possible to add new CellFormat Style type Hyperlink (underline Font and Hand mouse cursor). This will help so much adding cells with links to documents. Clicking on it will fire a CellHyperlink_click event where the user can fully control the shell process. Thanks (If this comment was disrespectful, please report it.)
This is a great control for me. Those who have 50,000 or 150,000 records to load and sort must have a budget large enough to pay for a custom program for their work. This is the VB world. (If this comment was disrespectful, please report it.)
Hi morgan pls check bug when u unload form, a msgbox appear:Client site not available at HandCursorVisible Property (If this comment was disrespectful, please report it.)
Morgan, Great work on a great project started by Richard.
I do have one suggestion for a small problem. Take this as an example, when you are editing a cell and the user selects "Save" for example while still in the EDIT mode, the control doesn't save the modified information. What I did was simply make the "UPDATECELL" function public, so I could call it prior to executing the code to save the spreadsheet. Just a suggestion. :) (If this comment was disrespectful, please report it.)
I have a big problem... when i add a colum type:Progressbar and editable column. everything go's right but when i edit the text in the progressbar cell, it change the value of the progressbar to +- 10%, but when i edit again and typ the same text again, it change the value back to 0. I was trying to fix it but it doesn't work.
btw. nice work! one of the best usercontrols ever!!! (If this comment was disrespectful, please report it.)
Hi Morgan, all your new features works fine, thanks. I found a big problem running compiled exe: my program freeze loading forms( but compiled demo works fine).. debugging code i verified that calling SetScrollBars sub whit no rows defined cause infinite loop. I tried changing all calling with "If mRowCount > 0 Then Call SetScrollBars" and now works for me. Can you check/update your source code? (If this comment was disrespectful, please report it.)
Pls assist me how to get total of any column in a variable. I want to get total upon AfterEdit in a variable. Pls reply back. thanks (If this comment was disrespectful, please report it.)
Works for me which is more than I can say for S-Grid. A lot of effort has gone into this.
Don't suppose you could get it to work with a form resizer (specifically ResizeXtra by Evova Technology www.evova.com) - thanks (If this comment was disrespectful, please report it.)
Rick, The control has all of the resizing properties. I did not have, nor am I going to install, ResizeXtra. I can only assume that it needs the control's window handle to do the resizing.
The grid control does not have a public hWnd but you could add it by inserting the following code.
Public Property Get hWnd() As Long hWnd = UserControl.hWnd End Property Hope this helps. (If this comment was disrespectful, please report it.)
Thanks a lot for sharing the great code. However, I am getting the following issues when developing a wrapper control with some action buttons, toolbar and the LynxGrid.
1. Even the "AllowColumnSort" is true, when I run my control, columns are not sorting when click on the header(sorting icon at the column level are also not appearing).
2. If we set rowImages then the imagebox is being drawn, however the images are not appearing. I debug the LynxGrid code and verified that moImageList.ListImages().Draw is being executed from the DrawGrid for the cell 0, also verified that the imageList and image is valid by printing the image using Printer.PaintPicture method.
When I use LynxGrid directly in a form, its working fine, but facing the above issues only when I use the LynxGrid control within another control. I will be thankful if you can please help me or let me know if I am missing something.
Koushik (If this comment was disrespectful, please report it.)
Thanks a lot for sharing the great code. However, I am getting the following issues when developing a wrapper control with some action buttons, toolbar and the LynxGrid.
1. Even the "AllowColumnSort" is true, when I run my control, columns are not sorting when click on the header(sorting icon at the column level are also not appearing).
2. If we set rowImages then the imagebox is being drawn, however the images are not appearing. I debug the LynxGrid code and verified that moImageList.ListImages().Draw is being executed from the DrawGrid for the cell 0, also verified that the imageList and image is valid by printing the image using Printer.PaintPicture method.
When I use LynxGrid directly in a form, its working fine, but facing the above issues only when I use the LynxGrid control within another control. I will be thankful if you can please help me or let me know if I am missing something.
Koushik (If this comment was disrespectful, please report it.)
Morgan, found a bug ;) CellImage puts images in wrong spot when the grid is sorted (on other column): It puts the image on the spot where the item would have been located if not sorted. I made a small program demonstrating the behavior and can send it if you want it. Thanks. (If this comment was disrespectful, please report it.)
Sorry Morgan, I screwed up! Using the latest version doesn't show the behavior I experienced. Thanks for your help. (If this comment was disrespectful, please report it.)
sir, we have a raffle in our church, can you create a program for charity that will be able to create a booklet number and ticket number database using this lynxgrid.. and having client name and the solicitor... thank you... (If this comment was disrespectful, please report it.)
Hi Morgan. Great job on the Lynx Grid. One problem... After populating the Grid if I attempt to add an additional column I'm getting an subscript out of range error. It adds the column, however if I click on any cell in the new column I get the subscript out of range error. Am I doing something wrong? (If this comment was disrespectful, please report it.)
Tom, that is one I did not think of. I added the ability to add columns after the grid is filled with data. (If this comment was disrespectful, please report it.)
Great Grid! However, I have one problem! I can't use the "Word Wrap". I set: "AllowWordWrap" = True "MaxLineCount" = 0 for the LynxGrid and I added a "True" in the column definition: .AddColumn "Info", 3200, , , , , , True
However, the if the text is longer than the column, its still indicated by "..."
What do I wrong ??? Anyone can help please!!! THANKS!
(If this comment was disrespectful, please report it.)
'Can you import this RaiseEvent BeforeDrawText into the grid Now i need paste it every time into the grid I use this event to fill a datapicker from (b8 GS - Grading System) program
'Added by: Erwin Christiaens Public Event BeforeDrawText(Row As Long, Col As Long, ByRef sNewValue As String)
'// format text if necessary If LenB(mCols(mColPtr(lCol)).sFormat) Then sText = Format$(.sValue, mCols(mColPtr(lCol)).sFormat) Else sText = .sValue End If
Hi Morgan, great job dude, please, i need that you check RowColSet and ForceCellEdit, if you change the orders of the columns, not only one col, try 3 or 4 col´s moves, then try to call RowColSet or ForceCellEdit, then the selected or Edited col is wrong, please, help!!!
Greattings for your great Job!!!
amacedo (If this comment was disrespectful, please report it.)
Hi Morgan, as usual a nice piece of work. 5 stars from me. Got a small problem though, I can not figure out how to add a new row. Was it possible for you to explain ? Kind regards (If this comment was disrespectful, please report it.)
thanks for the repply Morgan, but I did figure out progamatically to add a row, what I could not figure out was how the user could add one. Finally I tried the Keyboard Insert-key, and that did the trick. Another problem I have is resizing the control when the rest of the screen resize. If it is placed in another container (fx a frame), the container will not resize properly. Any ideas anyone ? (If this comment was disrespectful, please report it.)
If the user Filters "LARA", and soon later tries to only filter "L", no there is any alteration in the list!
Observation: In my opinion each column should have the native research in GRATING!
Example: Then under the header of DRID, a line could exist with the fields that correspond to each column and in this the user to accomplish researches for each column. (If this comment was disrespectful, please report it.)
Marco, The filter is made to built on the previous search. If you want to search for "L" after you search for "LARA" then you need to clear the first filter first. (If this comment was disrespectful, please report it.)
Archie, VB6 uses the Tab to move the focus to another control. Therefore you can not use the Tab key to move cells. (If this comment was disrespectful, please report it.)
My last question is, can i identify thos rows that only contains data.?Example, i have added 50 rows but only 10 of those rows contains data and some of the data is posted in row(50),row(5) etc. total count data is only 10 for 50 rows added.
Can i identify those data and save it into database or to array()?
Thank you for giving time and thank you for this grid. (If this comment was disrespectful, please report it.)
It is possible to use the tab key, but can get messy. First set TabStop=False for all controls on the form. Then... Private Sub gridDisplayInfo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 Then editNextCell Shift End If End Sub
Private Sub editNextCell(Shift As Integer) ...determine were to go .ForceCellEdit newRow, newCol End Sub (If this comment was disrespectful, please report it.)
Question, it seems like I can only compile my projects as P-Code. If I use NativeCode, my application will hang trying to load a form with the LynxGrid on it.. Is this a known issue? (This happens with the demo project that's supplied as well, if you try compiling it using Ncode... or at least on my computer) (If this comment was disrespectful, please report it.)
I am having problem regarding to get the sum of all row value in column 1. It does not add all the values.I code it like this in afteredit event:
dim totalsum as long
with lynxgrid select case col case 0 case 1 for counter=0 to .itemcount-1 totalsum=val(totalsum)+ val(.cellvalue(counter,1) next end select end with msgbox totalsum
Thank you for giving time with this.thank you for the grid.
(If this comment was disrespectful, please report it.)
archie, In AfterEdit, the last cell changed is not updated in the cell field until after the AfterEdit sub is complete. The editied value is in vNewValue and transferred to the Cell if the Cancel is not set to True.
You need do do something like:
Private Sub LynxGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long, vNewValue As String, Cancel As Boolean) Dim lRow As Long Dim dValue As Double
With LynxGrid1 For lRow = 0 To .Rows - 1 If Row = lRow then dValue = dValue + vNewValue Else dValue = dValue + .CellValue(lRow, 7) End If Next lRow End With
MsgBox "Total = " & Format$(dValue, "$#,0.00") End Sub
(If this comment was disrespectful, please report it.)
Hi Great grid Why is the LynxGrid1_AfterEdit not triggered when I alter the cells form within the program. So data comes in enad loops through the grid updating some records and changing some of them. Would be nice when an event is triggered then also. Please advise.
And looks like the grid uses dome more CPU time the other gris like farpoint etc, like 8 times more, not that much but the less cpu the better. But overall of cource 5 stars!! (If this comment was disrespectful, please report it.)
bwired, Trigger events are there so you know when the user is doing something like editing a cell. If you are editing a cell in the code of the application then there is no need to raise an event to notify you that the cell was edited; you already know. You would not want to raise the AfterEdit event every time you edit a cell in code, especially if you are changing multiple cells at a time. This would have a negative impact on the grids response time. (If this comment was disrespectful, please report it.)
Excellent!!! but... when i click on a row, then scrolls too slowly.. If try to scroll with the Scrollbar (After form's Show) without click on the grid all is good!!! (If this comment was disrespectful, please report it.)
I just want to ask a little problem because when i clear a certain cell, it leaves 0 on a cell. Is their another way to clear a cell just like a fresh/blank cell? I use this code to clear the cell but it leaves 0 value.
lynxgrid1.celltext(1,1)=""
Thank you for this grid.Thank you for giving time of this post.
(If this comment was disrespectful, please report it.)
Hi Morgan Haueisen, This grid is great but there is a problem in the grid. When I selected a row, it works very slowly ? why do you know ? please help... because I did a program with this grid. if you want to see it, look at here = http://img8.imageshack.us/img8/4068/venue2010.jpg
(If this comment was disrespectful, please report it.)
archie, If the cell type is numeric then setting CellText(?,?)="" is the same as CellValue(?,?)=0. If you want the cell to be blank then you need to change the cell type to string.
(If this comment was disrespectful, please report it.)
Hi, is it possible to select the text content of the grid and copy it into the windows clipboard without possibility to let the user allow to "edit" the content? TNX (If this comment was disrespectful, please report it.)
When I selected a row, it works very slowly, I said.
this problem there is not in your computer, because your computer language is english, but my computer language is turkish, please think other computer language when you write code. (If this comment was disrespectful, please report it.)
I just want to ask if is it possible to mouse scroll or move between cells when the mouse pointer is focus on a combo box/text box that was binded on the grid.
Thank you for giving time. Thank you for this grid. (If this comment was disrespectful, please report it.)
hi morgan Nice coutinued Update this lynxGrid control, if not to much can you provide us some feature to support merge columns, i'm try to modified this control so far but won't work. thank a lot for your countless effort. (If this comment was disrespectful, please report it.)
hai its great control could you add functionality to bind control to specific row and specific column? i think with those this control would be more valuable..... (If this comment was disrespectful, please report it.)
I AM HAVING DIFFICULTIES, TO ORDER TWO COLUMNS OR THREE AT THE SAME TIME! IT WOULD BE COMING WELL, IF IN THE CONTROL OPTION EXISTED, TO ORDER VARIES COLUMNS AT THE SAME TIME! (If this comment was disrespectful, please report it.)
Thank you for your continued support. I use this control for virtually all my applications. I have had to change the subclassing entirely but this is probably a problem with my application and not the control. I am a previous user of S-Grid2 from vbAccelerator and find this superior in every way. I have tried to take the same approach you have taken with LynxGrid with another vbAccelerator control, vbCommandBar, but have failed miserably. Thanks again for clear, concise, elegant and superb coding. I get nothing but compliments on my applications and it is due primarily to the utility of this control.
Best Regards,
Al (If this comment was disrespectful, please report it.)
Thanks man for this wonderful grid, if you can let us add column header Icons that will make this grid control fantabulous ! You can even try the Aero vista looks (Crystal Glass effect)! (If this comment was disrespectful, please report it.)
Nice control.. but please tell me how to remove all column and then create new other column with this control..... best regard (If this comment was disrespectful, please report it.)
Hi Morgan, and many thanks for this magic control !!! Seems there is a small bug in cell colors when sorting :
Private Sub lxGrid_Click()
With lxGrid .Redraw = False .CellText(.Row, .Col) = "ANOTHER TEXT" .CellBackColor(.Row, .Col) = vbRed .CellForeColor(.Row, .Col) = vbBlack .Redraw = True End With
End Sub
make the selected Cell changing its content, but changes Back- and ForeColor of another Cell of the same Col, if the Sort order is different from the initial Sort (col(0)). Best regards and sorry for my poor english. Philippe, FRANCE (If this comment was disrespectful, please report it.)
^*^*& 356KB of mildly commented code. You know I always did like Richard -- he had a lot of time for people and he was quite genuine too. Take that as a very big complement Richard, because most people in this world I do not like. I see straight through them. (If this comment was disrespectful, please report it.)
dim itm as ListItem 'assume you have a RS (recordset) open to your table
for each itm in lvLIST.ListItem rs.addnew rs.fields("SERIAL_NUMBER").value=itm.Text rs.Fields("PRODUCT_NAME").Value=itm.subitems(1) rs.Fields("PRODUCT_DESC").Value=itm.subitems(2) 'etc rs.update next
Please convert this code using LynxGrid Thank you, I really need it (If this comment was disrespectful, please report it.)
I have a featured to suggest the checkboxes on a rows, there should be a checkbox on the columnheaders to check all the checkboxes when its check, by the user. (If this comment was disrespectful, please report it.)
Drag & Drop within the Control ? Can this grid be used to re-order items ? Say there are items A to H loaded (A in row 1 B in row 2 etc) Can the user click B row and drag it to between G and H rows ? (If this comment was disrespectful, please report it.)
I tried this grid for the first time today. I noticed that the Filter button (in the main example) took nearly 10 seconds to apply the filter, and took about 7 seconds to un-filiter With the free Sgrid2 we can avoid that looooong delay, by turning off Redraw. It did not appear to help with Lynxgrid. However out of curiosity, I tried making it invisible, and it took less than one second to apply a Filter, and then just as quick to un-filter. Private Sub Command6_Click() Dim strTemp As String strTemp = Trim$(InputBox("Filter Last Name Begins With:" & vbNewLine & "(Empty value will restore normal view)")) LynxGrid1.Visible = False If LenB(strTemp) Then LynxGrid1.FilterOn strTemp, 3, lgSMBeginsWith, False Else LynxGrid1.FilterOff End If LynxGrid1.Visible = True End Sub
Some may dislike the brief flash. So this may be food for thought on how to improve the drawing speed (without the flash) (If this comment was disrespectful, please report it.)
Here is a better solution. This reduces a 10 second filtering time down to instant. AND THIS HAS NO ANNOYING FLASH ' Option Explicit
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As Long) As Long ' Private Sub Command6_Click() Dim strTemp As String strTemp = Trim$(InputBox("Filter Last Name Begins With:" & vbNewLine & "(Empty value will restore normal view)")) LockWindowUpdate Me.hWnd If LenB(strTemp) Then LynxGrid1.FilterOn strTemp, 3, lgSMBeginsWith, False Else LynxGrid1.FilterOff End If LockWindowUpdate 0 End Sub (If this comment was disrespectful, please report it.)
Rob C, You could set LynxGrid1.Redraw = False to accomplish the same thing as using LockWindowUpdate. Remember the demo is just that and is not demonstrate the best way to do things. (If this comment was disrespectful, please report it.)
Hi, I've been using this awesome grid in almost all of my projects. My problem : unable to use 2 grids on same form - when user opens form and moves mouse over second grid and then unload the form program crashes.Any help? (If this comment was disrespectful, please report it.)
I want to use this like a tree control. Is there a way to use Option Buttons instead of Checkboxes? (If this comment was disrespectful, please report it.)
I did some modifications I'd like to inform you: 1) Get CellWordWrap returned lgFLFontItalic 2) handling of WordWrap and SingleLine, so you can have two lines in a cell, the first not being wrapped but displayed with ellipses.
Questions: is it possible to merge tow or more cells in one row? I would like to display some text in a fixed row. The text should cover lets say col 4 to 7.
Regards, Lothar (If this comment was disrespectful, please report it.)
thuy, Just write three bytes at the beginning of CSV file (0xEF 0xBB 0xBF). That makes Excel to display Unicode characters. (If this comment was disrespectful, please report it.)
Hi morgan, can you please send me to my email Brian40302000@yahoo.com a code on how to delete per colum or whole column on lynx. I want to add it in Clear function. Tnx (If this comment was disrespectful, please report it.)
You can remove all columns by using ClearAll but you can not delete a single column. It gets to complicated to compress the column arrays (eliminating the hole left by the deleted column). You could just make the column invisible.
(If this comment was disrespectful, please report it.)
Hi Morgan ! I have been following this project for years ! I wish I could have given you all the globes ! I have a suggestion, if you could please put in header icons that will look really nice ... (If this comment was disrespectful, please report it.)
Private Sub SortArrayNumeric(ByVal lFirst As Long, ByVal lLast As Long, ByVal lSortColumn As Long, ByVal nSortType As Integer) Dim i As Long, j As Long, pivot As Double i = lFirst:j = lLast pivot = Val(mItems(mRowPtr((i + j) / 2)).Cell(lSortColumn).sValue) Do If nSortType = 0 Then Do While Val(mItems(mRowPtr(i)).Cell(lSortColumn).sValue) > pivot i = i + 1 Loop Do While Val(mItems(mRowPtr(j)).Cell(lSortColumn).sValue) < pivot j = j - 1 Loop Else Do While Val(mItems(mRowPtr(i)).Cell(lSortColumn).sValue) < pivot i = i + 1 Loop Do While Val(mItems(mRowPtr(j)).Cell(lSortColumn).sValue) > pivot j = j - 1 Loop End If If i <= j Then SwapLng mRowPtr(i), mRowPtr(j) i = i + 1 j = j - 1 End If Loop While i <= j If lFirst < j Then SortArrayNumeric lFirst, j, lSortColumn, nSortType If lLast > i Then SortArrayNumeric i, lLast, lSortColumn, nSortType End Sub (If this comment was disrespectful, please report it.)
So far the only problem I have had with the control is running out of memory. It looks like the control works fine if one only uses it to display text, without some of the awesome fancy features. (If this comment was disrespectful, please report it.)
Gee wiz. Indeed this project has been cycling through for literally many years. Hope you are on someone's payroll or at least getting something for it. (If this comment was disrespectful, please report it.)
Morgan, I discovered a problem when using LynxGrid on a multi monitor system: the preview of a cell (holding too much chars) will not be displayed on the same monitor as the grid.
Lothar (If this comment was disrespectful, please report it.)
1) LynxGrid triggers a _RwoColChanged when clicking with the right mousebutton on a row. This is not consistent with normal mousedown behavior. So I have problems to create a context menue on a row other than the selected one.
2) .RowColSet has no effect when .Refresh is False. If you set .Refresh to True a previous .RowColSet is ignored.
Of course I could modify LynxdGrid by my own. However I would prefer that any changes to the grid are available to all users.
Lothar (If this comment was disrespectful, please report it.)
Lothar, 1.) The row needs to change or you not return the correct row number/information for use with your context menu. 2.) If you set .Redraw = false all redraws of the grid are disabled (this allows for faster updating the grid). If you change the row using the RowColSet, then the result will be visible when .Redraw is set to True.
(If this comment was disrespectful, please report it.)
Great Work... But when sorting column, i get the previous columns shift to left. I think this would be annoying.. make the user to use cursor/mouse to see previous columns. Please correct this...
I wait for next update..
Regards (If this comment was disrespectful, please report it.)
We are so difficult to change the Free LynxGrid user CTL to VB .NET. One of the big differences is "Redim Preserve for mCols() array" that ReDim statements can no longer be used to declare array variables in VB .NET. Has anybody success on LynxGrid code convert to VB .NET ? (If this comment was disrespectful, please report it.)
Hi Morgan. I have also a question, Can I on a easy way change the text on the header after I have create the grid. In my program I have multilanguages and if the user change language I will on a easy way change the columnheader text to the new language. How?? (If this comment was disrespectful, please report it.)
Hello Morgan Haueisen He can adjust to it TotalslineShow always on the grid is not (TotalslineShowFooter). In order to look at always see the line of such facilities rather than the end of the Scroll to see the total line.
Thank you (If this comment was disrespectful, please report it.)
Not sure if its a bug or something I have missed, but when sorting via column, after the click has been processed, the grid moves the horizontal scrollbar so that the column clicked is aligned with the left control position. Would be nice for the control to not move the horizontal scrollbar.
Thanks (If this comment was disrespectful, please report it.)
Excellent!!! I will definitely be using this in the future.
I agree with Mark though, it would be an improvement if the column sort did not align the column to the left. (If this comment was disrespectful, please report it.)
Mark and Cam: to stop the grid from jumping to the column you click on do the foowing;
In the LynxGrid Control under the procedure "UserControl_MouseUp()" Search for the code "Call RowColSet(, mMouseDownCol)" and then comment it out of remove that line and that issue will be fixed :D (If this comment was disrespectful, please report it.)
great job generally. a big problem for this grid, especially when you want to add many rows, is that redraw slowly when user press keyup, keydown or use mouse whell. If you can fix the code for this will be a amazing grid. (If this comment was disrespectful, please report it.)
Year 2012 xp subclassing problem is still there . Easy fix (migh disable font update) remove lines with .font in drawgrid and also comment out wm_setfocus wm_killfocus drawdrid calls like sup801 said: finally I fixed looping WM_KILLFOCUS & WM_SETFOCUS massages.
- Do not use direct related font proptery(ex. "UserControl.FontName" or "UserControl.FontBold" to "UserControl.Font.Name" , "UserControl.Font.Bold")
he is right ;
So, it was the font loading references on drawgrid function causing XP non english regional settings to hang or crash. (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
Download code
4/17/2008 5:24:00 PM: 
