VBFlexGrid Control (Replacement of the MSFlexGrid control)

I'm experimenting with vbflexgrid and it's a great ocx. In my test project, I discovered that the mouse wheel scrolls 5 lines up or down for each movement. While the "down" and "up" keys only move one line. I haven't been able to look at all 40 pages that deal with this ocx on VbForums to see if the topic has already been discussed. I would also like the mouse wheel to move only one line: is it possible?

Quote:

---

Originally Posted by fabel358

I'm experimenting with vbflexgrid and it's a great ocx. In my test project, I discovered that the mouse wheel scrolls 5 lines up or down for each movement. While the "down" and "up" keys only move one line. I haven't been able to look at all 40 pages that deal with this ocx on VbForums to see if the topic has already been discussed. I would also like the mouse wheel to move only one line: is it possible?

---

The # of mouse wheel lines used is defined by your system settings, however it appears that Krool could expose a property to allow the default to be overridden. I've submitted a pull request to Krool for this feature, but I'm not sure if it will be accepted or not.

Thanks for the pull request. For the Ocx this would mean another typelib jump. Also the space at the property page is getting rare. Would you mind if that new exposed WheelScrollLines property would be run-time only?

Quote:

---

Originally Posted by Krool

Thanks for the pull request. For the Ocx this would mean another typelib jump. Also the space at the property page is getting rare. Would you mind if that new exposed WheelScrollLines property would be run-time only?

---

In my opinion it may not be a "property" but it could also be set in "Run-Time", if it is possible.

Update released.

Included the run-time WheelScrollLines property. Set a value of -1 to use the system setting. (default)

The OCX got updated and typelib jumped to 1.3

Code:

---

Object={075212A8-C1CF-444E-939D-F6046CCDBC08}#1.3#0; VBFLXGRD18.OCX

---

Many thanks. Works very well!

Hello. I tried setting up tooltip text for checkboxes in cells in some columns. I was able to set the tooltip, but it doesn't work when I hover over the checkbox in the cells. Is this possible?
TIA.

Hi, did you enable showinfotips ?

Quote:

---

Originally Posted by Calcu

Hi, did you enable showinfotips ?

---

I don't know what it does but it was enabled already, ShowInfoTips and ShowLabelTips both are True.
I've set the tooltips with the CellToolTipText property, of the cells containing the checkboxes.

Sometimes it doesn't work for me in IDE mode, but when I compile the program it works fine.

Quote:

---

Originally Posted by Eduardo-

I don't know what it does but it was enabled already, ShowInfoTips and ShowLabelTips both are True.
I've set the tooltips with the CellToolTipText property, of the cells containing the checkboxes.

---

When you have ShowLabelTips and ShowInfoTips set to True then it can happen that the info tip won't show in case the text is truncated. Because the label tip has then priority.

Quote:

---

Originally Posted by Krool

When you have ShowLabelTips and ShowInfoTips set to True then it can happen that the info tip won't show in case the text is truncated. Because the label tip has then priority.

---

In the cells of that column I have only a checkbox and no text, and I want to display a tooltip when the user hovers over the checkbox to tell something about what it will do if checked. But the tooltip appears when the user hovers in the cell outside the checkbox, and not when hovering over the checkbox itself.

Quote:

---

Originally Posted by Calcu

Sometimes it doesn't work for me in IDE mode, but when I compile the program it works fine.

---

In this case it works the same in IDE and compiled.

The orientation property of the lines is not present.

Quote:

---

Originally Posted by Eduardo-

In the cells of that column I have only a checkbox and no text, and I want to display a tooltip when the user hovers over the checkbox to tell something about what it will do if checked. But the tooltip appears when the user hovers in the cell outside the checkbox, and not when hovering over the checkbox itself.

---

Update released. Fixed. Thanks

Quote:

---

Originally Posted by lizano diaz

The orientation property of the lines is not present.

---

?

It has no property for the grid line orientation (horizontal, vertical, or both)

The space between words (when loading long letters) is too small, it should be based on the content plus a few pixels of space.

Quote:

---

Originally Posted by Krool

Update released. Fixed. Thanks

---

Perfect! Thank you very much :thumb:

Quote:

---

Originally Posted by lizano diaz

It has no property for the grid line orientation (horizontal, vertical, or both)

---

It's embedded within the GridLines property.

Code:

---

FlexGridLineNone = 0
FlexGridLineFlat = 1
FlexGridLineInset = 2
FlexGridLineRaised = 3
FlexGridLineDashes = 4
FlexGridLineDots = 5
FlexGridLineFlatHorz = 6
FlexGridLineInsetHorz = 7
FlexGridLineRaisedHorz = 8
FlexGridLineDashesHorz = 9
FlexGridLineDotsHorz = 10
FlexGridLineFlatVert = 11
FlexGridLineInsetVert = 12
FlexGridLineRaisedVert = 13
FlexGridLineDashesVert = 14
FlexGridLineDotsVert = 15

---

See there are Horz and Vert variants. Otherwise it's both when nothing is mentioned.

perfect,
It would only be necessary to adapt the the space between words (when loading long letters) is too small, it should be based on the content plus a few pixels of space.

Quote:

---

Originally Posted by lizano diaz

perfect,
It would only be necessary to adapt the the space between words (when loading long letters) is too small, it should be based on the content plus a few pixels of space.

---

I don't understand this one. The text is drawn by the font selected using DrawText API. What space where?

The Word Wrap property doesn't work correctly with long text. The image shows two grids: a UcGridplus at the top and a vbFlexgrid at the bottom.

Quote:

---

Originally Posted by lizano diaz

The Word Wrap property doesn't work correctly with long text. The image shows two grids: a UcGridplus at the top and a vbFlexgrid at the bottom.

---

Yes ?
You may do .AutoSize to adjust the row's height.

I don't know what I'm doing wrong, I've already tried all the code examples, I'm getting the data from a database (FARMINDUSTRI SA) which is a long text

Hello everyone.
I have both Windows 10 and Windows 11 installed on my PC. On both systems, my project uses VBFLXGRD18.ocx, and the mouse wheel scrolls perfectly. However, when I try my application on Windows 8 and/or Windows 7, the wheel no longer works. Has anyone else experienced this issue?

Quote:

---

Originally Posted by fabel358

Hello everyone.
I have both Windows 10 and Windows 11 installed on my PC. On both systems, my project uses VBFLXGRD18.ocx, and the mouse wheel scrolls perfectly. However, when I try my application on Windows 8 and/or Windows 7, the wheel no longer works. Has anyone else experienced this issue?

---

I haven't received a response. Am I the only one experiencing mouse wheel scrolling issues on Windows 7, 8, or 8.1? Or is everyone else on vacation?

Quote:

---

Originally Posted by fabel358

I haven't received a response. Am I the only one experiencing mouse wheel scrolling issues on Windows 7, 8, or 8.1? Or is everyone else on vacation?

---

I can only test on xp and win 11. So I am dependent on others.

Maybe you can find the problem yourself? Load the demo project with full source code and check what is going wrong on WM_MOUSEWHEEL.

In WinXP, the mouse wheel in the demo works, but it doesn't in my application. Evidently, something in my application is disabling mouse wheel subclassing, and this doesn't happen in Windows 10 and 11.

Other questions. If I want to delete only text in a selection, like

Code:

---

 
With flex
    .Row = 1
    .col = 1
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
End With

---

I have to use ".Clear FlexClearClip, FlexClearText " or ".Clear FlexClearSelection, FlexClearText"?
What is the difference between "delete" and "clear"?
The instructions at https://helpcentral.componentone.com...ridcontrol.htm
don't explain "FlexClearClip.": there's no instruction for VBFLEXGRID18.OCX?

Another question: do individual cells support "TAG" natively? What is "CellTag" for?

Did you perform any testing to see what those properties do? (maybe you'll save a lot of time)

Quote:

---

Originally Posted by Eduardo-

Did you perform any testing to see what those properties do? (maybe you'll save a lot of time)

---

That's what I'm doing, following Eduardo's advice to replace MsFlexGrid with VBFlexGrid18 (https://www.vbforums.com/showthread....=1#post5680371): the results aren't entirely as expected, which is why I posted these questions. Personally, I wanted to better understand the potential of VbFlexGrid... no polemic, if I've bothered anyone, I'm sorry.

Quote:

---

Originally Posted by fabel358

That's what I'm doing, following Eduardo's advice to replace MsFlexGrid with VBFlexGrid18 (https://www.vbforums.com/showthread....=1#post5680371): the results aren't entirely as expected, which is why I posted these questions. Personally, I wanted to better understand the potential of VbFlexGrid... no polemic, if I've bothered anyone, I'm sorry.

---

I mean, these are not commercial products and so many times don't have a full documentation. But in most cases you can realize what the properties do by just experimenting.

That's what I do anyway, unless the issue seems to complex. But what you are asking doesn't seem too complex to experiment, check, and see what those properties do.
And after you figure them out, you can post your conclusions here so other users (meaning other programmers) that have the same questions in the future can search with Google (or whatever search engine or AI tool they use) and find your explanations. That's is how this cooperative work is done. Not by only one person, but everyone doing what they can.

Hello Everyone,
I've just started using VBFlexGrid and i can't seem to register the custom controls to add to a worksheet or form. I select "Register Custom" from the tool box and then the VBFLXGRD18.OCX file but get the message "The selected file does not contain any self-registering ActiveX controls."
I am using office 365 64-bit on a Windows 11 machine.

Many thank to anyone who can help.

The OCX is 32-bit and won't work with 64-bit host apps.

Quote:

---

Originally Posted by fabel358

Hello everyone.
I have both Windows 10 and Windows 11 installed on my PC. On both systems, my project uses VBFLXGRD18.ocx, and the mouse wheel scrolls perfectly. However, when I try my application on Windows 8 and/or Windows 7, the wheel no longer works. Has anyone else experienced this issue?

---

Works for me on Win-7 just fine.

Quote:

---

Originally Posted by jpbro

The OCX is 32-bit and won't work with 64-bit host apps.

---

Okay, so the OCX file is not 64 bit ready as mentioned in the initial posts?
What needs to be done to it to make it 64 bit as reading back through the post people have this working; recompile the project?
Sorry if this question seems a bit basic but i am a bit of a newbie with this.

hello krool
is there a more straight way to check if at least one row is checked.
I'm using this code todo so

Code:

---

Dim flag As Boolean, lRow%
  With VBFlexGrid1
  flag = True
    For lRow = 1 To .Rows - 1
    VBFlexGrid1.Col = 0
  VBFlexGrid1.Row = lRow
 If VBFlexGrid1.CellChecked = FlexChecked Then flag = False
  Next
  End With
  If flag = True Then
  MsgBox "You should at least check one row"
                           
          End If

---

thank you

please excuse my little knowledge
How to change the background color of a row once checked and which event is used on the grid?
I mean the event like temBkColor on the listview
this is how I'changing the background

Code:

---

Private Sub VBFlexGrid1_CellCheck(ByVal Row As Long, ByVal Col As Long)
Dim c As Long
Dim lRow As Long

With VBFlexGrid1
 For lRow = 1 To .Rows - 1
    .Row = lRow

    For c = 0 To .Cols - 1
        .Col = c
      If VBFlexGrid1.CellChecked = FlexChecked Then .CellBackColor = vbRed
 
    Next c
      Next lRow
    End With
End Sub

---

I need to add this code on row check
if row is checked change the whole row background to red
With the code above Iget only the first column colored red.
thank you

Quote:

---

Originally Posted by Mustaphi

hello krool
is there a more straight way to check if at least one row is checked.
I'm using this code todo so

Code:

---

Dim flag As Boolean, lRow%
  With VBFlexGrid1
  flag = True
    For lRow = 1 To .Rows - 1
    VBFlexGrid1.Col = 0
  VBFlexGrid1.Row = lRow
 If VBFlexGrid1.CellChecked = FlexChecked Then flag = False
  Next
  End With
  If flag = True Then
  MsgBox "You should at least check one row"
                           
          End If

---

thank you

please excuse my little knowledge
How to change the background color of a row once checked and which event is used on the grid?
I mean the event like temBkColor on the listview
this is how I'changing the background

Code:

---

Private Sub VBFlexGrid1_CellCheck(ByVal Row As Long, ByVal Col As Long)
Dim c As Long
Dim lRow As Long

With VBFlexGrid1
 For lRow = 1 To .Rows - 1
    .Row = lRow

    For c = 0 To .Cols - 1
        .Col = c
      If VBFlexGrid1.CellChecked = FlexChecked Then .CellBackColor = vbRed
 
    Next c
      Next lRow
    End With
End Sub

---

I need to add this code on row check
if row is checked change the whole row background to red
With the code above Iget only the first column colored red.
thank you

---

See below optimized code blocks

Code:

---

Dim flag As Boolean, lRow%
With VBFlexGrid1
flag = True
For lRow = .FixedRows To .Rows - 1
    If .Cell(FlexCellChecked, lRow, .FixedCols) = FlexChecked Then
        flag = False
        Exit For
    End If
Next lRow
End With
If flag = True Then
    MsgBox "You should at least check one row"
End If

---

Code:

---

Private Sub VBFlexGrid1_CellCheck(ByVal Row As Long, ByVal Col As Long)
Dim OldFillStyle As FlexFillStyleConstants
With VBFlexGrid1
OldFillStyle = .FillStyle
.FillStyle = FlexFillStyleRepeat
If .Cell(FlexCellChecked, Row, .FixedCols) = FlexChecked Then
    .Cell(FlexCellBackColor, Row, .FixedCols, , .Cols - 1) = vbRed
Else
    .Cell(FlexCellBackColor, Row, .FixedCols, , .Cols - 1) = -1
End If
.FillStyle = OldFillStyle
End With
End Sub

---

thank you Krool
At first I got trouble with the code because I was using a fixed column.
Then I removed the fixed column and I got it worked.
thank you very much

Hello again Krool
I need to allow only numeric values and the decimal point in column 2 but this code doesn't seem to work

Code:

---

Private Sub VBFlexGrid1_KeyPress(KeyChar As Integer)
With VBFlexGrid1
      If .Col = 2 Then
          Select Case KeyAscii
        Case vbKey0 To vbKey9
        Case Asc(".")
  Case Else
            KeyAscii = 0
    End Select

  End If
  End With
End Sub

---

thank you

Quote:

---

Originally Posted by Mustaphi

Hello again Krool
I need to allow only numeric values and the decimal point in column 2 but this code doesn't seem to work

Code:

---

Private Sub VBFlexGrid1_KeyPress(KeyChar As Integer)
With VBFlexGrid1
      If .Col = 2 Then
          Select Case KeyAscii
        Case vbKey0 To vbKey9
        Case Asc(".")
  Case Else
            KeyAscii = 0
    End Select

  End If
  End With
End Sub

---

thank you

---

With so little context it is difficult to help.

I assume you are referring to user editing a cell ? If yes, then KeyPress is the wrong event. Probably EditKeyPress event is what you are looking for.
Also to note is that KeyAscii got renamed to KeyChar in my events.

thank you Krool it worked

Hello krool
I Wonder how to feed this table.
Attachment 195496

Quote:

---

Originally Posted by samer22

Hello krool
I Wonder how to feed this table.
Attachment 195496

---

In the demo it uses the ColComboItems, ColComboHeader and ColComboBoundColumn.

You have a bug certainly which I can't reproduce. I have a deja-vu of this issue.
I am dependant on YOU to locate this bug. It must be the WM_DRAWITEM handler.

Ref: Making MergeRow cells editable

Searched the thread and didn't find anything. I would like to set up a three column row, where the first column is a label and the other two columns are MergeRow=True with the same string to merge them. The cell appears to be selected, but no keyed text is shown. I also check grid.EditText for data checking but ValidateEdit never get fired. Any assistance is greatly appreciated. Thx!

Quote:

---

Originally Posted by TheLeePiper

Ref: Making MergeRow cells editable

Searched the thread and didn't find anything. I would like to set up a three column row, where the first column is a label and the other two columns are MergeRow=True with the same string to merge them. The cell appears to be selected, but no keyed text is shown. I also check grid.EditText for data checking but ValidateEdit never get fired. Any assistance is greatly appreciated. Thx!

---

In the demo project it is possible to edit merged cells. So, I don't understand what the problem is.
Please make a replicable demo showing your issue. Thanks

Oy mate.
I knew of this thing for a long time, but now i looked closer at it.

Question: Can i use this in Excel VBA? in your source i saw you have conditionals for VBA7
Just import it as a file? How to place it in the Form_Designer?

Believe it or not: Have never used a "ctl" in my life, so i have no idea

Note: Can't use the OCX, since i'm not allowed to ship any binary files in the company, nevermind placing it in system32

Quote:

---

Originally Posted by Zvoni

Oy mate.
I knew of this thing for a long time, but now i looked closer at it.

Question: Can i use this in Excel VBA? in your source i saw you have conditionals for VBA7
Just import it as a file? How to place it in the Form_Designer?

Believe it or not: Have never used a "ctl" in my life, so i have no idea

Note: Can't use the OCX, since i'm not allowed to ship any binary files in the company, nevermind placing it in system32

---

You can't.
When you have 32-bit Excel you could use the OCX.
For 64-bit Excel we would need to re-compile the OCX in twinBASIC. I have done only the package for experimental purpose but not yet done a 64-bit OCX.

Quote:

---

Originally Posted by samer22

Hello krool
I Wonder how to feed this table.
Attachment 195496

---

Again, please test WM_DRAWITEM handler. As it is a window proc an error will not go into debug..
You may place several debug.print in there and see which one does not get printed to narrow down the problem. Thanks

Quote:

---

Originally Posted by Krool

You can't.
When you have 32-bit Excel you could use the OCX.
For 64-bit Excel we would need to re-compile the OCX in twinBASIC. I have done only the package for experimental purpose but not yet done a 64-bit OCX.

---

Ah, OK.
Well, will have to continue using ListView

Update released.

Included hWndToolTip/hWndScrollTip read-only run-time property.

This allows for example to overwrite the max tip width of an info tip or scroll tip.

Code:

---

SendMessage VBFlexGrid1.hWndToolTip, TTM_SETMAXTIPWIDTH, 0, ByVal 400&

SendMessage VBFlexGrid1.hWndScrollTip, TTM_SETMAXTIPWIDTH, 0, ByVal 300&

---

The label tip shares the same hWndToolTip but it will not be restricted by TTM_SETMAXTIPWIDTH as it resizes upon TTN_SHOW anyway to the needed size.

The OCX got updated and typelib jumped to 1.4

Code:

---

Object={075212A8-C1CF-444E-939D-F6046CCDBC08}#1.4#0; VBFLXGRD18.OCX

---

Quote:

---

Originally Posted by Krool

In the demo project it is possible to edit merged cells. So, I don't understand what the problem is.
Please make a replicable demo showing your issue. Thanks

---

Got it resolved. Error in my code for handling some of the data checking. Apologies for the inconvenience, and thanks!

After selecting all cells using ".SelectRange 0, 0, fgTmp.Rows - 1, fgTmp.Cols - 1", the originally fixed rows and columns that were not editable become editable. Is this considered a bug?

Quote:

---

Originally Posted by fengzhongxia

After selecting all cells using ".SelectRange 0, 0, fgTmp.Rows - 1, fgTmp.Cols - 1", the originally fixed rows and columns that were not editable become editable. Is this considered a bug?

---

Who said fixed cells are not editable?
There are not movable to. But due to code you can move to a fixed cell.
That's intended and cannot be denied.

Also denying editing a fixed cell would be an artificial limitation.

Solution: handle the BeforeEdit event and Cancel = True when row/col are fixed cell.

I want the selected cell background color to be a blend of two colors, specifically the cell's actual foreground color and the selection color (default is blue), so that differences in cell colors can still be distinguished within the selected area. How can I achieve this? Thank you very much.

Quote:

---

Originally Posted by fengzhongxia

I want the selected cell background color to be a blend of two colors, specifically the cell's actual foreground color and the selection color (default is blue), so that differences in cell colors can still be distinguished within the selected area. How can I achieve this? Thank you very much.

---

I understand what you want but not why. Black text for example is hardly readable at blue selection background.
Therefore there is this SelForeColor and SelBackColor property.

There is (currently?) no way to ignore the SelForeColor property.

I could imagine to allow following trick: "The SelForeColor property is ignored, if it has the same value as ForeColor property."

But why you need it? Can't imagine a use case..

Quote:

---

Originally Posted by Krool

I understand what you want but not why. Black text for example is hardly readable at blue selection background.
Therefore there is this SelForeColor and SelBackColor property.

There is (currently?) no way to ignore the SelForeColor property.

I could imagine to allow following trick: "The SelForeColor property is ignored, if it has the same value as ForeColor property."

But why you need it? Can't imagine a use case..

---

Suppose I mark cell A2 in the table by setting its text color to red. During a meeting, I select a range to indicate to my colleagues that the data within this range is usable, but the marked A2 should not be used. If A2 is included in the range, I cannot easily tell whether the selected area contains any marked cells.

Quote:

---

Originally Posted by fengzhongxia

Suppose I mark cell A2 in the table by setting its text color to red. During a meeting, I select a range to indicate to my colleagues that the data within this range is usable, but the marked A2 should not be used. If A2 is included in the range, I cannot easily tell whether the selected area contains any marked cells.

---

Ok, I see. Will then soon introduce new "UseForeColorSel" property which would default to True.

THANK YOU very much!:bigyello:

Update released.

Included the UseForeColorSel property which defaults to True.

The OCX got updated and typelib jumped to 1.5

Code:

---

Object={075212A8-C1CF-444E-939D-F6046CCDBC08}#1.5#0; VBFLXGRD18.OCX

---