VBFlexGrid Control (Replacement of the MSFlexGrid control)

This project is intended to replace the MSFlexGrid control for VB6.

The "MSFLXGRD.OCX" can be replaced completly.

Even though some enhancements of the MSHFlexGrid control are included, it can't replace it completly (yet).
But there are also new features included that are not available on both MSFlexGrid and MSHFlexGrid.

The VBFlexGrid supports Unicode, is DPI-Aware and ready for 64-bit.

At design-time (IDE) there is only one dependency. (OLEGuids.tlb)
This is a modified version of the original .tlb from the vbaccelerator website.
But for the compiled .exe there are no dependencies, because the .tlb gets then compiled into the executable.

In order to use the DataSource/DataMember property a reference to msdatsrc.tlb (pre-installed since Win2k) is required.

Everything should be self explained, because all functions and properties have a description.

The source code of the project can also be viewed on GitHub.

ActiveX Control version, together with a Registration-Free (Side-by-side) solution:
Version 1.8

Notes:
- When using the SetParent or MoveWindow API, pass .hWndUserControl and not .hWnd.
- When changing the "Project Name", have all forms open, else all properties are lost. Because the library to which the controls are referring to is the "Project Name" itself. Having all forms open will ensure that the .frx files will be updated with the new "Project Name".

List of revisions:

Code:

---

25-May-2026
- Some minor internal improvements.
- Use of flag DCX_KEEPCLIPRGN in the WM_NCPAINT handler to solve a leak.
  This way the system region (wParam) will not be deleted by GetDCEx().
23-May-2026
- Usage of SetBkColor for the DrawFocusRect API so that it can work accurately.
03-May-2026
- The drop-down calendar (FlexComboModeCalendar) will now resize upon WM_THEMECHANGED/WM_STYLECHANGED.
  This allows to change theme/styles for the calendar on the EditSetupWindow event.
03-Feb-2026
- Cell flooding now has a padding in the size of the focus rect.
01-Feb-2026
- Included the UseForeColorSel property which defaults to True.
31-Oct-2025
- Included hWndToolTip/hWndScrollTip read-only run-time property.
16-Jul-2025
- ToolTipText of a cell (ShowInfoTips = True) now includes check box hit result.
11-Jul-2025
- Included the WheelScrollLines run-time property.
20-Jun-2025
- Some minor internal improvements.
13-Jun-2025
- Included the LoadArray function to load data from a variant or string array.
  It's significantly faster for large arrays instead of doing manually via .TextMatrix.
  To note is that RowDim/ColDim/PageDim are one-based values! (like for LBound/UBound; vsFlexGrid uses zero-based values)
  Also there are Rows/Cols/Row/Col arguments where you can control the amount to load and where to start.
  When RestrictRows/RestrictColumns are set to True then .Rows/.Cols cannot be increased/decreased by the function. (default False to match vsFlexGrid)
10-Jun-2025
- Included enum FlexHighLightAlwaysFocusRect for the HighLight property. (FlexHighLightAlways is default)
  If new enum set and the control does not have the focus then the focus rect is also drawn highlighted. (like vsFlexGrid behavior)
  MS(H)FlexGrid does not behave like this. This new enum allows to support both behaviors. (default MS(H)FlexGrid behavior; vsFlexGrid cannot behave like this)
05-Jun-2025
- AllowSelection/AllowMultiSelection property does not enforce anymore possible selection change. (like vsFlexGrid)
  As the MS ListView does also not enforce it when turning off MultiSelect property.
  AllowMultiSelection still clears or initialize the selected flags. (though vsFlexGrid only clears; OK to be different)
04-Jun-2025
- When AllowMultiSelection is True and AllowSelection is False the AllowBigSelection property now
  controls the behavior whether multiple single selections can be done via shift+ctrl or ctrl.
  When AllowBigSelection is set to False (defaults True) it is not allowed anymore and truly single selection.
  That is that .SelectedRows can then return only 1 or 0.
03-Jun-2025
- Bugfix in the AllowMultiSelection property.
01-Jun-2025
- RemoveItem method now allowed to remove the last non-fixed row. (like vsFlexGrid)
26-May-2025
- Bugfix in the scrollbar capture of the combo drop-down list. (related to 10-May-2025 update)
16-May-2025
- Included the MultiSelChange event which occurs when the selection of multiple (non-contiguous) ranges of cells changes.
  Of course the AllowMultiSelection property must be set to True.
- Included the MultiSelChangeTime property to set the time in milliseconds before the MultiSelChange event is fired
  by a window message after a change in the multi-selection. A value of 0 indicates that it is fired immediately.
14-May-2025
- Bugfix in the internal ProcessLButtonUp handler that it can scroll unintentionally
  when the focused cell is out of view and clicking on a combo cue / fixed cell checkbox etc.
- .SelectedRows and .SelectedRow property enhanced to include the selection range while mouse drag move. (inverted or not)
  While mouse drag move the selected state is not yet commited but will be upon LButtonUp.
10-May-2025
- Bugfix in the scrollbar capture of the combo drop-down list.
08-May-2025
- Major performance improvement in the .SelectedRow property. (used in conjunction with the .SelectedRows property)
29-Apr-2025
- Improved mouse handling of the combo drop-down list to enable auto scroll while mouse move (mouse button must be down)
  and to commit upon mouse button up instead of mouse button down.
  It now feels and behaves more like a real combo box.
22-Mar-2025
- Scroll wheel down was not working on 64-bit.
24-Oct-2024
- Included enum FlexClipModeLookupConv/FlexClipModeLookupConvExcludeHidden for the ClipMode property.
  This translates to Value in Get .Clip and to Key in Let .Clip. (Method AddItem also affected)
  The translation only occurs if a column has a lookup defined.
12-Oct-2024
- Included the ColTextIndent property and CellTextIndent event.
  When ColTextIndent is set to True the CellTextIndent event is fired for all cells within this column.
  By this you can define a Left/Right indentation of the text block.
11-Oct-2024
- Included the ColSortMode property and the FlexSortModeConstants enum.
  It defaults to 0 - Normal but can be changed to 1 - TextDisplay.
08-Oct-2024
- Included the FontQuality property.
  This can be convenient when using 'Microsoft Sans Serif' to have more unicode chars supported but to exactly look like 'MS Sans Serif'.
13-Sep-2024
- Bugfix in the internal GetBestWidth function related to sort arrow. (GetBestHeight not affected)
06-Sep-2024
- UndoLimit now capped at 1000.
05-Sep-2024
- Included the Undo/Redo/ResetUndoQueue methods and CanUndo/CanRedo functions.
  This is useful for clip operations (Cut, Paste and Delete) and for user editing.
- Included the UndoLimit property which defaults to 0. (disabled feature)
07-Aug-2024
- Included the GetMetrics method.
05-Aug-2024
- Included the ComboButtonMeasure event which fires when an combo button's width needs to be determined. (button only, not drop-down)
04-Aug-2024
- Included the ComboButtonCustomDraw event which fires after the background has been drawn and before the content is drawn. (button only, not drop-down)
  The Handled parameter must be set to True to overwrite the default behavior.
01-Aug-2024
- Included the AlwaysAllowComboCues property with new ComboCueClick event.
  The combo cues can then be displayed always even when AllowUserEditing = False.
  The ComboCueClick event is fired when either AllowUserEditing = False or a user attempt to edit has been canceled.
- Improved the ComboButtonClick event to remove any WM_LBUTTONDOWN/WM_LBUTTONDBLCLK message
  afterwards for the combo button window only so that we can get a toggle effect on the combo button.
24-Jul-2024
- Included the ComboBoundColumn/ColComboBoundColumn run-time property.
  This defines the column which will be bound to the text box for the multi-column drop-down list.
23-Jul-2024
- Included the ComboHeader/ColComboHeader run-time property.
  This allows to define a header for the multi-column drop-down list.
21-Jul-2024
- Support of vbTab in the ComboItems/ColComboItems run-time property.
  This allows for a real multi-column drop-down list. (owner-drawn)
19-Jul-2024
- The width of the combo drop-down list now auto-fits.
  Changing the width via SetWindowPos on EditSetupWindow event will continue to work as it fires after initial setup.
02-Jul-2024
- Included Horz/Vert enum variants for the GridLines/GridLinesFixed/GridLinesFrozen property.
27-Jun-2024
- Bugfix on the WallPaper property related to the .Picture property and VP_FORMATRANGE message.
26-Jun-2024
- Included enum FlexPictureTypeEnhMetafile for the PictureType property.
  This enables much better results on Printer.PaintPicture on the .Picture property. (vbPicTypeEMetafile)
  The VP_FORMATRANGE message will render according to the PictureType property. (Color, Monochrome or EnhMetafile)
20-Jun-2024
- Use of integer division \ instead of double division / where applicable.
18-Jun-2024
- Optimized the TextArray property.
11-Jun-2024
- Invoke .Clear after row/col setup on set of .DataSource. (like MS(H)FlexGrid)
- Remove .FlexDataSource when setting .DataSource. (like vsFlexGrid)
09-Jun-2024
- Support of the VP_FORMATRANGE message. (like MS(H)FlexGrid and vsFlexGrid)
  This allows for easy rendering for page print (and multi-page) incl. print preview.
  https://www.vbforums.com/showthread.php?752333-VB6-Simple-EMF-based-FlexPrint-Reporting-(incl-Print-Preview)
30-May-2024
- Improvement in the "capture mouse move" scroll.
  The "down" and "right" scroll build up acceleration due to MouseRow/MouseCol.
  However, the "up" and "left" scroll was too simple and just did a single line scroll.
  Now the number of lines are calculated based on the distance and edge of fixed rows/cols.
  So, all directions behave and feel now the same for the user.
11-Apr-2024
- Return key will be forwarded according to DirectionAfterReturn property after editing. (like as the TabBehavior property)
29-Mar-2024
- Included the MimicTextBox and ColMimicTextBox/ColMimicTextBoxFixed property. (Defaults to False)
  DT_EDITCONTROL will mimic the text-displaying characteristics of a multiline text box. This includes to break on characters instead on words.
  This is only meaningful if the word wrap property is set to true.
  The main benefit is to have no drawing difference anymore when editing a cell.
11-Mar-2024
- Included the LookupConv function which returns a converted lookup string of the current or a specified column.
  Use either FlexLookupConvValue or FlexLookupConvKey. (new enum)
18-Feb-2024
- Included the DragRow/DragCol function used to rearrange rows/cols by dragging the specified row/col with the mouse to a new position.
  To note is that this is NOT an OLE drag/drop operation and the function will enter a modal message loop to just return the new moved position.
  Example code: .RowPosition(i) = .DragRow(i)
  The demo project is updated to use this new function.
- Combo list locked (not clickable) when it has no items.
  This avoids release of mouse capture when clicking inside a no items drop-down list. Just like a ComboBox does.
09-Feb-2024
- Included enum FlexDirectionAfterReturnEdit/FlexEditReasonReturn.
  By this the edit mode is initiated by the return key, but only when shift state is 0.
  It is intentionality included in the DirectionAfterReturn property to not
  change default behavior and it's logical because you can either move the cursor or start edit mode, but not both.
02-Feb-2024
- Space/BackSpace key now only invoke cell editing when shift state is 0.
- Space key now only invoke cell checkbox check when shift state is 0.
30-Jan-2024
- Included the OLEDragDropScrollOrientation property which can be 0 - Horizontal, 1 - Vertical or 2 - Both (default).
- Included the IncrementalSearch event.
- WM_CANCELMODE will now cancel the incremental search, if applicable.
29-Jan-2024
- Included the CanPaste function. The Paste method pastes only when there is a text format available in the clipboard.
- Included the IncrementalSearchTime run-time property.
- Included the AllowDropFiles property and DropFiles event.
24-Jan-2024
- Label tips now updated to cell font over which it is displayed to have an perfect overlay.
  Info and scroll tips remain on the standard default font of the tool tip.
23-Jan-2024
- FlexClearText for the .Clear method can now be used even when a custom data source is set.
- Added FlexClearClip enum (clip range) which the .Delete method now uses instead of FlexClearSelection.
- Added FlexClipPasteModeExtended/FlexClipPasteModeExtendedAutoSelection enum.
  If ClipPasteMode is >= Extended then FlexClearClip deletes also the extended selection. (opposite action)
11-Jan-2024
- ReaderMode shows now a half blended cursor image indicating the anchor position. (like in WordPad)
10-Jan-2024
- Included the AllowReaderMode property. (auto-scrolling and panning)
  It defaults to False, when set to True it uses the DoReaderMode API upon WM_MBUTTONDOWN.
09-Jan-2024
- WM_MOUSEHWHEEL support. (horizontal mouse wheel)
30-Dec-2023
- Const VARIANT_CB now 24 instead of 16 for Win64.
12-Dec-2023
- Included the ColCheckBoxesHitTestInvisible/ColCheckBoxesHitTestInvisibleFixed run-time property.
  It determines whether check boxes are visible but not hit-testable. (cannot interact with mouse cursor)
  This can be useful for representation only check boxes (e.g. FlexTextAsCheckBox) where hot-light is not needed and CellClick (etc.) events should fire.
  However, this does not avoid changing the checked state by space key.
  To avoid that use the FlexDisabled* checked states or set Cancel = True on the CellBeforeCheck event.
09-Dec-2023
- Fixed that no invalidation occurs when setting Rows/Cols to 0. (regression 13-Nov-2023)
- Included the ClearRowInfo/ClearColInfo method which clears the info structure for the specified row/column.
  An index of -1 will clear the info structure for all rows/columns.
02-Dec-2023
- Included the SelectAll method which is useful to call for providing a Ctrl + A feature within the KeyDown event.
14-Nov-2023
- Added enum 4 - Extended for the ClipCopyMode property. (and 5,6,7 for Fixed* variants)
  This is useful for FreeByRow, FreeByColumn selection mode or for AllowMultiSelection.
  The extended clip copy mode contains the visual selection and not the technical single selection.
13-Nov-2023
- No crash anymore in internal AddSelectedRows/RemoveSelectedRows when grid is empty. (AllowMultiSelection property)
- No illogical Row/Col combination (e.g. -1/0) possible anymore when grid is empty. (Rows = 0 or Cols = 0)
  Such combination could occur when changing for example FixedRows and Rows is > 0 but Cols still 0.
07-Nov-2023
- Included the ComboButtonNonClientWidth/ComboButtonNonClientHeight property.
- Exposed the GetGridLineOffsets method which retrieves the grid line offsets between cells. (optional row/col subscripts)
  The internal method got renamed to GetGridLineOffsetsStruct.
03-Nov-2023
- Edge case bugfix in the CopyFromRecordset function and minor tweaks.
02-Nov-2023
- Included the CopyFromRecordset function which copies the contents of an ADO or DAO Recordset onto the flex grid.
  It works like the Excel function which returns the number of fetched records and copies from the current position to EOF.
  The number of maximum rows and columns can be specified.
  If omitted it is maximum remaining rows and columns that the grid can receive relative to the destination starting point.
  The grid will not grow and it just ignores the overflow of rows and columns. (like Excel)
  The destination row/col can be specified where the pasting onto the flex grid starts.
  If omitted it is the first non-fixed row and first non-fixed column.
30-Oct-2023
- Divider resize drag will not be applied anymore when the divider drag never moved. (like MS(H)FlexGrid)
  This solves also the problem with FlexRowSizingModeUniform and double click divider to auto size.
28-Oct-2023
- Changing SelectionMode property does not reset selection anymore. (like MS(H)FlexGrid)
  However, at design-time it still does change and reset the selection.
26-Oct-2023
- Included the InsertMark/InsertMarkMode run-time property.
  The InsertMarkMode can be set to 0 - ByRow (default) or 1 - ByColumn.
- Included the HitTestInsertMark function which returns the insert mark row or column.
- Included the InsertMarkColor property.
25-Oct-2023
- Included the DropHighlight/DropHighlightMode run-time property.
  The DropHighlightMode can be set to 0 - ByRow (default) or 1 - ByColumn.
24-Oct-2023
- Internal DrawCellCheckBox function now clipped to the cell rect boundaries.
- Included the OLEDragDropScroll property which defaults to True.
23-Oct-2023
- Internal GetBestWidth/GetBestHeight doesn't measure anymore hidden text.
  Text can become hidden by FlexTextAsCheckBox or by an image list.
- Added enum FlexCellTextHidden for the Cell property. (read-only)
- Added enum FlexCellHasCustomFormatting/FlexCellHasTag for the Cell property.
  It returns True if memory is allocated. Set to False to release the memory or True to force allocation.
22-Oct-2023
- Included the ColImageList As Variant property. (like in vsFlexGrid)
  Either an ImageList object or an hImageList handle can be set. (vsFlexGrid allows only handle)
  Numeric text will be treated as an image index. (both, object or handle)
  Otherwise it will be tried to access the image index by it's key. (object only)
  The image alignment is based on the text alignment. (CellAlignment/ColAlignment/FixedAlignment)
  The cell text will become hidden if an image got drawn.
- Included the CellImageCallback event where the app can provide the image value.
  The Handled parameter must be set to True to overwrite the default behavior.
  It enables also a way to ensure that no image will be tried to retrieve for certain cells. (e.g. for fixed rows)
20-Oct-2023
- Included enum FlexAlignmentGeneralTop/FlexAlignmentGeneralCenter/FlexAlignmentGeneralBottom.
  The enum FlexAlignmentGeneral keeps valid and is the default column alignment value.
19-Oct-2023
- Included the CellTag property which holds a variant to store any extra data.
  The variant is allocated only when needed to keep memory usage low.
- Included enum FlexClearTag for the .Clear method.
- Included enum FlexCellTag for the .Cell property.
09-Oct-2023
- Bugfix for CellLeft/ClientLeft and WS_EX_LAYOUTRTL. (Container vs. Control)
05-Oct-2023
- Changing TopRow/LeftCol by app code now works even when there are no scrollbars. (like in vsFlexGrid)
  It can be considered a mis-behavior in the MS(H)FlexGrid that this is not possible.
  This allows to sync column scroll to a footer style grid that has no scrollbars.
04-Oct-2023
- Included the ColWordWrapOption/ColWordWrapOptionFixed run-time property.
  This allows to change per column of how text is displayed. Like in the MSHFlexGrid.
  Enum FlexWordWrapOptions: 0 - None (default), 1 - WordBreak, 2 - SingleLine and more..
02-Oct-2023
- Included the ClientLeft/ClientTop and ClientWidth/ClientHeight read-only/run-time property.
01-Oct-2023
- Linefeed character (Ctrl+Enter) now allowed for incremental searches.
- Backspace character now allowed for incremental searches.
  It undoes the last typed letter. Continuing to hit the backspace key takes you back farther.
- Enhanced the internal DrawIncrementalSearch method so it can highlight multiple lines of word break text. (recursion)
28-Sep-2023
- Included the BeforeClipboardAction/AfterClipboardAction event.
  Enum 'FlexClipboardActionConstants' included to distinguish between Copy, Cut, Paste and Delete.
  The BeforePaste/AfterPaste event got removed.
- RowData/ColData property now 'As LongPtr' instead of 'As Long'.
27-Sep-2023
- Included the BeginIncrementalSearch/EndIncrementalSearch event.
  The BeginIncrementalSearch event is fired initially to customize behavior. (row/col, case sensitive, no wrap etc.)
  Or the Cancel parameter can be used to disallow incremental search for a specific row/col.
  EndIncrementalSearch event is fired when the search has elapsed or ended.
  Now BeginIncrementalSearch can be fired again.
- Included IncrementalSearchString/IncrementalSearchRow/IncrementalSearchCol run-time property.
25-Sep-2023
- Included the BeforePaste/AfterPaste event.
- Included the ParseClip/ConstructClip function.
  ParseClip will parse a clip string into an two-dimensional array.
  ConstructClip will construct a clip string from an two-dimensional array.
- Info and label tips now only shown when hit result is the cell content.
  Thus a tool tip will not overlap anymore when the mouse is over a combo cue, check box etc.
- Bugfix in the Clip property when ClipPasteMode = FlexClipPasteModeAutoSelection and ClipMode = FlexClipModeExcludeHidden.
23-Sep-2023
- Included the AllowIncrementalSearch property.
- Included optional argument TextDisplay in the FindItem function.
- Added enum FlexFindDirectionRight/FlexFindDirectionLeft for the FindItem function.
16-Sep-2023
- Replaced 'Partial As Boolean' argument to 'Match As FlexFindMatchConstants' in the FindItem function.
  Enums are FlexFindMatchExact, FlexFindMatchPartial, FlexFindMatchStartsWith, FlexFindMatchEndsWith.
  vbTrue will be handled as FlexFindMatchPartial for compatibility.
14-Sep-2023
- Usage of hashes for the keys in the ColLookup property.
  This ensure no more exponential performance decrease when there are more than 10 lookup entries.
13-Sep-2023
- Included the WallPaper/WallPaperAlignment property. (like in vsFlexGrid)

[...]

14-Jun-2017
- First release.

---

Attachment 195900

List of enhancements and improvements in relation to the MSFlexGrid and/or MSHFlexGrid control:

Code:

---

- Scrolling beyond 65,535 rows possible. (16-bit barrier in MSHFlexGrid)
- Changing TopRow/LeftCol property possible even when there are no scroll bars. (limitation in MSFlexGrid and MSHFlexGrid)
- RemoveItem method allowed to remove the last non-fixed row. (like in VSFlexGrid)
- MouseWheel can be used to scroll. (limitation in MSFlexGrid and MSHFlexGrid)
- Horizontal MouseWheel supported.
- AllowReaderMode property included to support reader-mode for auto-scrolling and panning.
- No cell count limit of 350000, only available memory space determines the cell count limit. (limitation in MSFlexGrid)
- FrozenRows/FrozenCols property included.
- AllowUserFreezing property included.
- AfterUserFreeze event included.
- RowSizingMode property included. (like in MSHFlexGrid)
- Align property included.
- DisableNoScroll property included.
- Added the Col param in the Compare event as it helps when doing multi-column sorts.
- WM_ERASEBKGND can be intercepted in a subclass to fill a custom background, if necessary.
- BackColorAlt property included to set alternate row back colors. (setting BackColor automatically sets BackColorAlt to the same value)
- DoubleBuffer property included.
- RightToLeft property included.
- AllowMultiSelection property included with related RowSelected/SelectedRow/SelectedRows property and MultiSelChange event.
- AllowSelection property included.
- TabBehavior property included.
- DirectionAfterReturn property included.
- WantReturn property included.
- ExtendLastCol property included.
- SheetBorder property included. (Default is True to behave like MSFlexGrid else no border like MSHFlexGrid)
- WrapCellBehavior property included.
- ClipSeparators property included.
- ClipSeparatorCol/ClipSeparatorRow property (run-time only) included to change the defaults and to support more than 1 character for a separator.
- ClipMode property included to include (default) or exclude hidden cells in a clip command.
- ClipCopyMode property included to determine what parts are copied to the clipboard or returned by a clip command.
- ClipPasteMode property included to determine how content is pasted from the clipboard or by doing a clip command.
- ParseClip/ConstructClip function included. (parse/construct clip string into an/from an two-dimensional array)
- BeforeClipboardAction/AfterClipboardAction event included.
- ShowInfoTips, ShowLabelTips and CellToolTipText property included.
- ShowScrollTips property included with related ScrollTip event and ScrollTipText property. (run-time only)
- ScrollTipFollowThumb property included.
- ScrollTrack property included.
- EllipsisFormat/EllipsisFormatFixed property included.
- ColImageList property included (Variant, either control or handle) and related CellImageCallback event.
- ColTextIndent property included and related CellTextIndent event.
- ColWordWrapOption/ColWordWrapOptionFixed property included. (like in MSHFlexGrid)
- MimicTextBox and ColMimicTextBox/ColMimicTextBoxFixed property included.
- Dashes/Dots enum included in the GridLine property. (like in MSHFlexGrid)
- FontFixed property included. (like in MSHFlexGrid)
- FontQuality property included.
- GridLineWidthFixed property included. (like in MSHFlexGrid)
- FixGridLineOffsets property and GetGridLineOffsets method included.
- GetMetrics method included.
- MirrorAlignGeneral property included.
- SingleLine property included.
- AlwaysFocusRect enum included in the HighLight property.
- Flat enum included in the FocusRect property.
- Cell property included which allows to get or set cell settings directly for an arbitrary cell or range of cells without selecting them.
- CellTextStyle returns the TextStyle/TextStyleFixed from the Control when not preset instead of 0.
- CellAlignment returns the alignment from the column (ColAlignment or FixedAlignment) when not preset instead of 0.
- CellBackColor/CellForeColor returns the BackColor/ForeColor from the Control when not preset instead of 0.
- CellTextStyle/CellAlignment/CellBackColor/CellForeColor are not preset anymore when setting a value of -1.
- CellChecked property for checkboxes along with CellBeforeCheck/CellCheck event.
- ColCheckBoxAlignment/FixedCheckBoxAlignment/ColCheckBoxes property included.
- ColCheckBoxesHitTestInvisible/ColCheckBoxesHitTestInvisibleFixed property included. (cannot interact with mouse cursor)
- CheckBoxDrawMode property included and corresponding CheckBoxOwnerDraw event.
- ColWidthMin property included. (analogous to the RowHeightMin property)
- RowHeightMax/ColWidthMax property included.
- RowHeightUniform (run-time only) property included. (for use with FlexRowSizingModeUniform)
- MouseEnter/MouseLeave event included.
- HitTest method included with a specified X and Y. The return values are in the HitRow/HitCol/HitRowDivider/HitColDivider/HitResult property.
- DragRow/DragCol function used to rearrange rows/cols by dragging the specified row/col with the mouse to a new position.
- OLEDragDropScroll/OLEDragDropScrollOrientation property included.
- DropHighlight/DropHighlightMode property (run-time only) included.
- InsertMark/InsertMarkMode property (run-time only) included.
- HitTestInsertMark function included with a specified X and Y and optional After parameter.
- InsertMarkColor property included.
- FindItem function included.
- FixedAlignment property accepts an index of -1 (like ColAlignment) to apply the value to all columns.
- FixedAlignment is not preset anymore when setting a value of -1.
- Mouse cursor is now clipped when user resizing rows and columns.
- CellHasCustomFormatting/CellHasTag property which returns True if memory is allocated. Set to False to release the memory or True to force allocation.
- CellTag property which holds a variant to store any extra data.
- CellEnsureVisible method included with optional visibility parameter. (default is FlexVisibilityCompleteOnly)
- BottomRow/RightCol property included with optional visibility parameter. (default is FlexVisibilityPartialOK)
- RowsVisible/ColsVisible/FixedRowsVisible/FixedColsVisible/FrozenRowsVisible/FrozenColsVisible property with an optional visibility parameter. (default is FlexVisibilityCompleteOnly)
- RowIsVisible/ColIsVisible property optional visibility parameter included. (default is FlexVisibilityPartialOK)
- RowHidden/ColHidden property included. (same as RowHeight/ColWidth set to 0, but this approach preserves the original setting)
- ColKey/ColIndex and RowID/RowIndex property included. (used to identify specified column/row)
- ColDataType/ColNullable/ColNumericPrecision/ColNumericScale/ColDataCapacity property included.
- ColResizable property included.
- ColLookup property and LookupConv function included.
- ColFormat/FixedFormat property included.
- RowsPerPage/ColsPerPage property included that returns the number of non-fixed columns/rows displayed on the current page to scroll through. (no visibility parameter here)
- GetSelRange method included to retrieve selection range of cells ordered so that Row1 <= Row2 and Col1 <= Col2.
- SelectRange method which selects a range of cells or a cell (by omitting RowSel/ColSel) with a single command.
- SelectAll method which selects all cells with a single command.
- GetMergedRange method included to retrieve the merged cells on a given row/col.
- SelChange event is also fired while the user extends the selection with the mouse. (limitation in MSFlexGrid and MSHFlexGrid)
- Scroll event is fired whenever the TopRow/LeftCol property changes. (limitation in MSFlexGrid and MSHFlexGrid)
- BeforeUserResize/AfterUserResize/AfterUserResizeEnd event included.
- BeforeRowColChange/BeforeSelChange event included.
- Copy/Cut/Paste/Delete method, AutoClipboard property and BeforeClipboardAction/AfterClipboardAction event.
- Undo/Redo/ResetUndoQueue methods, CanUndo/CanRedo functions and UndoLimit property.
- Clear method optional Where/What parameter included.
- ClearRowInfo/ClearColInfo method to clear the info structure. An index of -1 will clear the info structure of all rows/columns.
- When MergeCells is set to a value other than 0 (Never), selection highlighting is still possible. (limitation in MSFlexGrid and MSHFlexGrid)
- MergeCells can span multiple rows and columns together. (limitation or bug in MSFlexGrid and MSHFlexGrid)
- FixedOnly enum included in the MergeCells property.
- UseColSort enum included in the Sort property and corresponding ColSort property included.
- ColSortArrow/ColSortArrowAlignment/ColSortArrowColor property included.
- SortArrowColor/RowSortArrows property included.
- CurrencyAscending/CurrencyDescending and DateAscending/DateDescending enum included in the Sort/ColSort property.
- CellFloodPercent/CellFloodColor/FloodColor property included.
- AutoSize method included.
- BestFitMode property included which is used for AutoSize/FormatString.
- EnhMetafile enum included in the PictureType property.
- WallPaper/WallPaperAlignment property included.
- AllowIncrementalSearch property included with events and run-time properties. (incremental search functionality)
- TextWidth/TextHeight function included.
- DividerDblClick event included.
- DataRefresh method included.
- CopyFromRecordset and LoadArray helper functions.
- FlexDataSource property (run-time only) included to set a custom data source via the IVBFlexDataSource interface.
- AllowUserEditing property included with events and run-time properties. (in-cell editing functionality)
- AllowScrollLock property to check the toggled state of vbKeyScrollLock to let the users use the arrow keys to scroll. (like in Excel)
- Some other minor improvements.

---

List of incompatibilities in relation to the MSFlexGrid control:

Code:

---

- FontWidth and CellFontWidth property not implemented.

---

Very much and need this OCX to support print preview and paging? There is a great need for this feature: you can directly set the image read from the database and display it in each cell.

Quote:

---

Originally Posted by ChenLin

Very much and need this OCX to support print preview and paging?

---

There will be no OCX for the moment as I want to wait a certain period for potential bugfixes etc. (trial period)
You can make your own Print Preview. You can extract via the .Picture property a StdPicture object which holds a "printed" content of the grid.
However it prints always the whole grid (like in MSFlexGrid). However, when there is a need to include optional parameters to "print" only a part (e.g. current view) then we can look further.
What do you mean by paging?
Again this is certainly a job for the app to break according to printer settings etc.

Paging I have done using SQL SERVER, the main thing is to show the image in the database, MSHFLEXGRID is not very convenient to display the image in the database.

Hello Krool,

I just tried your VBFlexGrid, I was surprised how easy it was to change
my code from MsFlexGrid to VBFlexgrid. And the Project executed with now faults.

here is what I tried out and what I had to change, I marked my changes
like this:
'// had to change this
'.CellAlignment = flexAlignCenterCenter
'// to :

in Modul:

Code:

---

Option Explicit

Public Sub KalenderFlexShow(Flex As VBFlexGrid, Jahr As Long)
  Dim i As Long, j As Long
  Dim Days As Long
  Dim Datum As Date
      With Flex
        .Redraw = False
        .Rows = 33
        .Cols = 14
        .FixedCols = 0
        .FixedRows = 2
        .Clear
        .TextMatrix(0, 0) = CStr(Jahr - 1)
        .TextMatrix(1, 0) = MonthName(12)
        For i = 1 To 12
            .TextMatrix(0, i) = CStr(Jahr)
            .TextMatrix(1, i) = MonthName(i)
        Next
        .TextMatrix(0, 13) = CStr(Jahr + 1)
        .TextMatrix(1, 13) = MonthName(1)
        .Row = 0
        For i = 0 To .Cols - 1
            .Col = i
            '// had to change this
            '.CellAlignment = flexAlignCenterCenter
            '// to :
            .CellAlignment = FlexAlignmentCenterCenter
        Next
        For i = 1 To 12
            KalenderFlexMonat Flex, i, Jahr, i
        Next
        KalenderFlexMonat Flex, 12, Jahr - 1, 0
        KalenderFlexMonat Flex, 1, Jahr + 1, 13
        If Jahr = Year(Now) Then
            .Col = Month(Now)
            .Row = Day(Now) + 1
        ElseIf (Jahr = Year(Now) - 1) And (Month(Now) = 12) Then
            .Col = 0
            .Row = Day(Now) + 1
        ElseIf (Jahr = Year(Now) + 1) And (Month(Now) = 1) Then
            .Col = 13
            .Row = Day(Now) + 1
        Else
            .Col = 1
            .Row = 0
        End If
        .Redraw = True
      End With
End Sub

Private Sub KalenderFlexMonat(Flex As VBFlexGrid, Monat As Long, _
                              Jahr As Long, Col As Long)

  Dim Days As Long, i As Long
  Dim Datum As Date
  Dim s As String
      Datum = DateSerial(Jahr, Monat, 1)
      Days = Day(DateAdd("m", 1, Datum) - 1)
      With Flex
        .Col = Col
        For i = 1 To Days
            .Row = i + 1
            s = Format(i, "00") & Space(2)
            If Weekday(Datum, vbMonday) = 7 Then
              s = s & Format(Datum, "ddd")
              .CellForeColor = vbRed
            Else
              s = s & Format(Datum, "ddd")
              .CellForeColor = vbBlack
            End If
            .Text = s
          '// had to change this
            '.CellAlignment = flexAlignLeftCenter
            '// to :
            .CellAlignment = FlexAlignmentLeftCenter
            Datum = Datum + 1
        Next
      End With
End Sub

---

in Form:

Code:

---

Option Explicit
Private Sub Command1_Click()
  Dim s As String
      s = InputBox("Jahr eingeben", "Kalender", Year(Now))
      If Len(s) = 0 Then
        Exit Sub
      ElseIf Not IsNumeric(s) Then
        Exit Sub
      End If
      KalenderFlexShow VBFlexGrid1, Val(s)
End Sub

Private Sub Form_Load()
      With VBFlexGrid1
      '  .FocusRect = flexFocusHeavy
        .FocusRect = FlexFocusRectHeavy
        .BackColorBkg = Me.BackColor
        .AllowBigSelection = False
        ' .SelectionMode = flexSelectionFree
        .SelectionMode = FlexSelectionModeFree
      End With
      KalenderFlexShow VBFlexGrid1, Year(Now)
End Sub

Private Sub Form_Resize()
      If Me.WindowState = vbMinimized Then
        Exit Sub
      End If
      On Error Resume Next
      With VBFlexGrid1
        .Top = 300
        .Left = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight - .Top
      End With
      On Error GoTo 0
End Sub

---

I haven't looked threw your complete List of enhancements and improvements
but for the first test I am impressed!!!!!!!

regards
Chris

2 questions:
Are you going to implement data binding?
How would you implement a virtual/on demand data source?

Quote:

---

Originally Posted by DEXWERX

2 questions:
Are you going to implement data binding?
How would you implement a virtual/on demand data source?

---

It is planned to be implemented.

1. Making the UserControl.DataBindingBehavior set to 'vbComplexBound' and provide a 'DataSource' and 'DataMember' property. (like in MSHFlexGrid, only ADO)
However, that needs to include the 'msdatsrc.tlb' type library and expose its DataSource interface. (=Dependency; as exposed publicly)
So I need to check if there would be no issue to make such a "dependency" with the 'msdatasrc.tlb' type library. It is part of MDAC, which should be pre-installed since Windows 2000. Or am I wrong?

2. Providing a run-time .Recordset property (Also like in MSHFlexGrid, could be 'As Object' thus supporting both DAO and ADO Recordsets)

I'm using the vsFlexGrid control and this control has quick access to ranges of cells to change the layout and content.
So instead of settings ROW, COL, ROWSEL, COLSEL and FILLSTYLE you just specify the range of the cells on which a method is executed, advantage that you don't have to change the active selection to modify cell content/layout.

Idea for vbFlexGrid replacements for Cell* with Range* like:
RangeFontBold(Row1, Col1, Row2, Col2)
RangeForeColor(Row1, Col1, Row2, Col2)

PS
The vsFlexGrid control uses a different method using a single .Cell() method, in which you also specify what you want to do.

Quote:

---

Originally Posted by Arnoutdv

So instead of settings ROW, COL, ROWSEL, COLSEL and FILLSTYLE you just specify the range of the cells on which a method is executed, advantage that you don't have to change the active selection to modify cell content/layout.

---

Good idea, thanks. Update released.

Included the Cell property which allows to get or set cell settings directly for an arbitrary cell or range of cells without selecting them.
However, when setting a range of cells via the Cell property it is dependent like in the normal Cell* properties how the FillStyle property is defined.
So if FillStyle is Single you can select a range via the Cell property it will only set the arbitrary cell and not the selection. (Exception is when setting the Clip property via the Cell property)

Hello Krool

would it make sense to Hardcode some Funtions in the Grid ?

like the Routine I used to create the Calendar, you would the just call somthing like

Code:

---

  VBFlexGrid1.KalenderFlexShow,Year(Now)

---

in regards to loading Data from a Database, I would do the same thing
one for ADO Recordsets and one for DAO.

something like this..

Code:

---

'ADO Version
Public Function FlexFillFromRs(Rs As ADODB.Recordset, _
                              Flex As MSFlexGrid)
'loading Recordset
  Dim i As Long
  Dim j As Long
  Dim breit As Single
     
      With Flex
        .Redraw = False
        .AllowBigSelection = True
        .AllowUserResizing = flexResizeBoth
        .Appearance = flex3D
        .FocusRect = flexFocusNone
        .FixedRows = 1
        .FixedCols = 1
        'count cols
        .Cols = Rs.Fields.Count
        'Headers
        For i = 0 To Rs.Fields.Count - 1
            .TextMatrix(0, i) = Rs.Fields(i).Name
        Next
        'count rows
        .Rows = .FixedRows + Rs.RecordCount + 1
                                                     
        'fill Flex
        Do While Not Rs.EOF
            'Records
          i = Rs.AbsolutePosition
            For j = 0 To Rs.Fields.Count - 1
              'Abfrage auf NULL
              If Not IsNull(Rs.Fields(j).Value) Then
                  .TextMatrix(i, j) = Rs.Fields(j).Value
              End If
            Next
            Rs.MoveNext
        Loop
       
        'optimise width
        For i = 0 To .Cols - 1
            breit = 0
            For j = 0 To .Rows - 1
              If Me.TextWidth(.TextMatrix(j, i)) > breit Then
                  breit = Me.TextWidth(.TextMatrix(j, i))
              End If
            Next
            .ColWidth(i) = breit + 120
        Next
        .Redraw = True
      End With
End Function

---

then you would just have to pass a valid ADO Recordset and Connection to the Grid like..

Code:

---

VBFlexGrid1.FlexFillFromRs(myADORecordset)

---

just an Idea

regards
Chris

I just downloaded and tried - VERY NICE
There may be quite a few of us that don't need Unicode, and thus may not have bothered downloading your contribution.
However if the title of your thread had been -
VBFlexGrid User Control (Replacement of the MSFlexGrid control)
And there had been a bit more emphasis on NO DEPENDENCIES
I would have downloaded it before the ink on your OP had dried

Thanks for sharing,
Rob
PS The Printscreen to Clipboard ain't too shabby either

Quote:

---

I would have downloaded it before the ink on your OP had dried

---

I agree;-))

Quote:

---

Originally Posted by Bobbles

There may be quite a few of us that don't need Unicode, and thus may not have bothered downloading your contribution.
However if the title of your thread had been -
VBFlexGrid User Control (Replacement of the MSFlexGrid control)
And there had been a bit more emphasis on NO DEPENDENCIES
I would have downloaded it before the ink on your OP had dried

---

It is not only for Unicode. For me personally it was important to get some annoying bugs fixed and be indepedent of any OCX. And of course the additional features.
For the thread title: UserControl would be even more directly, True. But I want to keep the wording dual-use as after this Std-EXE version there will also be an ActiveX Version (OCX), after a certain trial period.

can you add a VirtualMode to the demo when it's ready?

ie: let's say you're scrolling through a half a million records, but you really only want to provide the data to the control when it's scrolled into view.

Quote:

---

Originally Posted by DEXWERX

can you add a VirtualMode to the demo when it's ready?

ie: let's say you're scrolling through a half a million records, but you really only want to provide the data to the control when it's scrolled into view.

---

To properly implement that, I'd suggest the exact same Interface (also IID-wise), as the vsFlexGrid is using
(IVSFlexDataSource, ...it is a nice and small one - despite being universal for all kinds of "Data with Header-Descriptions"):

Code:

---

[
  odl,
  uuid(8E203240-537D-11D3-BD8C-000000000000),
  dual,
  oleautomation
]
interface IVSFlexDataSource : IUnknown {
    [id(0x00000001)]
    HRESULT GetFieldCount([out, retval] long* pFields);
    [id(0x00000002)]
    HRESULT GetRecordCount([out, retval] long* pRecords);
    [id(0x00000003)]
    HRESULT GetFieldName(
                    [in] long Field,
                    [out, retval] BSTR* pFieldName);
    [id(0x00000004)]
    HRESULT GetData(
                    [in] long Field,
                    [in] long Record,
                    [out, retval] BSTR* pData);
    [id(0x00000005)]
    HRESULT SetData(
                    [in] long Field,
                    [in] long Record,
                    [in] BSTR newData);
};

---

In the vsFlexGrid, VB6-Classes which implement it, are then used together with the vsFG.FlexDataSource-Property (of Type IVSFlexDataSource),
to address external Data of DAO-, ADO- or SQLite-Recordsets, or just plain String- or Variant-Arrays outside the Control.

Note that the vsFlexGrid.FlexDataSource-Prop is exposed as only a Get/Let-pair (just mentioning it,
since that might irritate some VB6-devs, because it's a bit unusual, not being allowed to use a Property Set
when passing an Object into a Control (so, perhaps best, to implement it as a "full VB6-Triple-Prop" Get/Let/Set)...

Olaf

Quote:

---

Originally Posted by Schmidt

To properly implement that, I'd suggest the exact same Interface (also IID-wise), as the vsFlexGrid is using
(IVSFlexDataSource, ...it is a nice and small one - despite being universal for all kinds of "Data with Header-Descriptions"):

Code:

---

[
  odl,
  uuid(8E203240-537D-11D3-BD8C-000000000000),
  dual,
  oleautomation
]
interface IVSFlexDataSource : IUnknown {
    [id(0x00000001)]
    HRESULT GetFieldCount([out, retval] long* pFields);
    [id(0x00000002)]
    HRESULT GetRecordCount([out, retval] long* pRecords);
    [id(0x00000003)]
    HRESULT GetFieldName(
                    [in] long Field,
                    [out, retval] BSTR* pFieldName);
    [id(0x00000004)]
    HRESULT GetData(
                    [in] long Field,
                    [in] long Record,
                    [out, retval] BSTR* pData);
    [id(0x00000005)]
    HRESULT SetData(
                    [in] long Field,
                    [in] long Record,
                    [in] BSTR newData);
};

---

In the vsFlexGrid, VB6-Classes which implement it, are then used together with the vsFG.FlexDataSource-Property (of Type IVSFlexDataSource),
to address external Data of DAO-, ADO- or SQLite-Recordsets, or just plain String- or Variant-Arrays outside the Control.

Note that the vsFlexGrid.FlexDataSource-Prop is exposed as only a Get/Let-pair (just mentioning it,
since that might irritate some VB6-devs, because it's a bit unusual, not being allowed to use a Property Set
when passing an Object into a Control (so, perhaps best, to implement it as a "full VB6-Triple-Prop" Get/Let/Set)...

---

Good suggestion, thanks. But exposing an type lib interface with a public property brings type lib dependency in a later potential OCX...

IMO would be a simple classic "event mechanism" for virtual data be sufficient? or would I overlook something in that case?
Or put the type lib interface in a "like-wise" VB6 class.

Quote:

---

Originally Posted by Krool

Good suggestion, thanks. But exposing an type lib interface with a public property brings type lib dependency in a later potential OCX...

IMO would be a simple classic "event mechanism" for virtual data be sufficient? or would I overlook something in that case?
Or put the type lib interface in a "like-wise" VB6 class.

---

The latter one (a simple interface-defining VBClass with the name IVSFlexDataSource would be sufficient) -
I've just looked into our Project-Codes, the implementing Classes are all quite small Private ones in our Projects,
so the exact same IID of the original Interface wouldn't be that important in our cases as I thought,
just "Signature compatibility" would be enough).

A (Latebound working) Event-mechanism could also do (performance not being such a critical factor here,
since the "visible Rows and Cols" of the currently scrolled "ViewPort" are not all that many...

In case of an (then earlybound) true Interface-Class, you could also enclose the points where you expect an "IVSFlexDataSource"-
implementing Object in compiler-conditionals (#If CompileWithFlexDataSourceSupport .... or something, in the non-OCX-version).

Olaf

Quote:

---

Originally Posted by Schmidt

A (Latebound working) Event-mechanism could also do (performance not being such a critical factor here,
since the "visible Rows and Cols" of the currently scrolled "ViewPort" are not all that many...

---

When there is a "search" trough a find function does it callback all items via GetData or is there is special callback (like LVN_ODFINDITEM style) where the client is responsible to return the found row/index?

I've always had to code custom search/find for the MSHFlexGrid anyway. (not sure)
For efficiency I would think the LVN_ODFINDITEM approach would be best.

Quote:

---

Originally Posted by DEXWERX

I've always had to code custom search/find for the MSHFlexGrid anyway. (not sure)
For efficiency I would think the LVN_ODFINDITEM approach would be best.

---

And the same for a Sort?

Quote:

---

Originally Posted by Krool

And the same for a Sort?

---

I'd not bother with Find and Sort (delegations) in case of external FlexDataSource-Data.

The reason a developer is working with such an external DataSource is (beside others),
that he probably wants to sort, filter, search the external containers much more comfortably (and faster) on their own
(without any "help from a Grid-control").

A Grid is mainly for managing and rendering the ViewPort, nothing much else.

If I want external Data sorted in the vsFlexGrid I do it on the Rs or the Array itself -
and then refresh the DataSource (which in this case only enforces a new rendering of the viewport).

Olaf

Quote:

---

Originally Posted by Schmidt

I'd not bother with Find and Sort (delegations) in case of external FlexDataSource-Data.

The reason a developer is working with such an external DataSource is (beside others),
that he probably wants to sort, filter, search the external containers much more comfortably (and faster) on their own
(without any "help from a Grid-control").

A Grid is mainly for managing and rendering the ViewPort, nothing much else.

If I want external Data sorted in the vsFlexGrid I do it on the Rs or the Array itself -
and then refresh the DataSource (which in this case only enforces a new rendering of the viewport).

---

Exactly. Just like in a ListBox with LBS_NODATA it is not possible to add LBS_SORT.
Therefore in the FlexGrid the .FindItem and .Sort functionality just needs to be "disabled" by an error raise in case VirtualMode is turned on. (=Solved)

That works, and is in line with how MS handled mshflxgd also.

One further question for VirtualMode layout.
What Schmidt suggested for the FlexDataSource interface means actually always 1 fixed row (field name) and 0 fixed columns.
The GetFieldCount method would define the number of columns and the GetRecordCount the number of rows.
However, that means I also need to disable the Rows/Cols and FixedRows/FixedCols properties.
OR instead they are allowed (flexible) and just a 'RetrieveVirtualItem' event would be fired for all cells in viewport, regardless if they are 2 fixed rows or none. I think that would be a very flexible approach?

yes, you definitely don't want to lock fixed cells.
Fixed cells are often used for row numbers or other indicators, which also need to be populated in virtualmode.

It's a good idea to use the event/callback for all cells including fixed.

you could also use a single call for the entire window update - as opposed to each cell. (just an idea)

Quote:

---

Originally Posted by Krool

The GetFieldCount method would define the number of columns and the GetRecordCount the number of rows.
However, that means I also need to disable the Rows/Cols and FixedRows/FixedCols properties.
OR instead they are allowed (flexible) and just a 'RetrieveVirtualItem' event would be fired for all cells in viewport, ...

---

Sure, the vsFlexGrid allows free settings on the FixedRows/FixedCols also in "FlexDataSource"-mode...
(the FixedRows-setting not affecting the Zerobased "Record-Param" which is passed into the Callback).

Code:

---

Private Function IVSFlexDataSource_GetData(Byval Field As Long, ByVal Record As Long) As String
  IVSFlexDataSource_GetData = RsSQLite.ValueMatrix(Record, Field) 'example for providing the Data from an SQLite-Recordset
End Function

---

It's just that the CallBack-Function in IVSFlexDataSource will be called for *only* the currently *visible* cells
of the (potentially scrolled) Viewport-area (leaving "skipped gaps" between the zerobased FixedCol-indexes and the
Col (Field) indexes of the scrollable Cells).

You have to manage these "skips" internally when raising your Event or Callback (so that the Callback is not
called unnecessarily for any cells which are currently not scrolled into the ViewPort).

Olaf

Updated released.

Included the DataSource/DataMember property. The properties can be set at design-time and/or at run-time.
The Adodc control, an DateEnvironment designer and a ordinary ADODB.Recordset object have been tested and are thus supported.

If somebody don't want to use the new feature and want to avoid a reference to msdatsrc.tlb (pre-installed since Win2k) the whole thing can be turned off by setting the new conditional compilation constant 'ImplementDataSource' to False.
When doing so (turn off) the 'DataBindingBehavior' might be changed back from 'vbComplexBound' to 'vbNone'.

What is still missing is a run-time only 'Recordset' property. (like in MSHFlexGrid)
But here I am still uncertain of how to best implement it and if and how to interact with the now implemented 'DataSource' property.

This OLEGuids.tlb is 32 and cannot be referenced in win10 64.

Quote:

---

Originally Posted by ChenLin

This OLEGuids.tlb is 32 and cannot be referenced in win10 64.

---

Did you put the OLEGuids.tlb in the SysWOW64 system folder?
Also try to reference the file with Browse..

Quote:

---

Originally Posted by Krool

Did you put the OLEGuids.tlb in the SysWOW64 system folder?
Also try to reference the file with Browse..

---

That's already done, but still not. The prompt version is incompatible, unable to register, and cannot refer to this TLB in VB6K.
I referenced other OLEGuids.tlb, except for the function of "Show Property Pages".

Quote:

---

Originally Posted by ChenLin

That's already done, but still not. The prompt version is incompatible, unable to register, and cannot refer to this TLB in VB6K.
I referenced other OLEGuids.tlb, except for the function of "Show Property Pages".

---

Which other OLEGuids?
In case you have multiple versions you can name this version OLEGuids2 and reference accordingly.
This version is equal to the ComCtls version.
Last year there was a new version released with new uuid. If you have an older version you might "unregister" that first.

Actually, I also have problem registering OLEGuids.tlb on Win10 x64.

Attachment 149887

Regsvr32 is wrong. Just let VB register it.
There is a also a tool for registeeing type libs (and unregister)
http://www.vbaccelerator.com/home/VB...y/article.html

Oh, I did not know VB can register it. I just tried and it works.

I also use CCRP Reg Util to register tlb (it has a choice for tlb) and it works on Win7 but not on Win10.

Quote:

---

Originally Posted by chosk

Oh, I did not know VB can register it. I just tried and it works.

---

Glad to hear. Does the vbAccelerator tool also work?

The vbAccelerator tool... I tried download on 2 computers but file is invalid.

I found it in my backup. I have forgotten I downloaded perhaps years back.

It can register but unregister gives a 8002801C error.

Quote:

---

Originally Posted by Krool

Which other OLEGuids?
In case you have multiple versions you can name this version OLEGuids2 and reference accordingly.
This version is equal to the ComCtls version.
Last year there was a new version released with new uuid. If you have an older version you might "unregister" that first.

---

TLB the problem is solved, and I did this: use this TLB to override the TLB in the system.

Quote:

---

Originally Posted by chosk

Actually, I also have problem registering OLEGuids.tlb on Win10 x64.

Attachment 149887

---

Try my way: use this TLB to override the TLB in the system

I do not know if this is a bug: Change BackColor when the BackColorAlt also changed, need to re-set BackColorAlt.

Quote:

---

Originally Posted by ChenLin

I do not know if this is a bug: Change BackColor when the BackColorAlt also changed, need to re-set BackColorAlt.

---

That is not a bug, it's a feature. :)
Since in the original MSFlexGrid is no such BackColorAlt property it must be changed synchronous whenever the BackColor changes to maintain compatibility.

Awesome work!
And great to have a better grid in future.

I use MSFlexgrid quite often, and that is really cumbersome (mousewheel etc.).
Also I don't like the dependency to MSFLXGRD.OCX.

---

"- FormatString property not implemented"

Before I change my code in dozens of places:
Is FormatString not implemented YET or will it not happen?

---

Do you plan to implement something like AutoSizeColWidth?
Today I have to put the col content into a label, AutoSize=true, read the width, and then set the col width.
That is the opposite of fast and cumbersome as well.

Here also some minor "DPI Aware" updates. Mainly in the internal drawing routines.
There is only a very minor further tweak possible, namely the DrawFocusRect API.
Currently is still done by assuming as 1px thick.
So here could be done a minor further improvement by taking SPI_GETFOCUSBORDERWIDTH/SPI_GETFOCUSBORDERHEIGHT with SystemParametersInfo into account.
Has somebody expierence with this? I mean is this really related to high DPI? Or is this just a system setting that can be set to whatever regardless of DPI?
The documentation is not clear about this..

Quote:

---

Originally Posted by Karl77

"- FormatString property not implemented"

Before I change my code in dozens of places:
Is FormatString not implemented YET or will it not happen?

---

I wanted to avoid to implement such a cumbersome property. (in my opinion)
But I can imagine that for many migration purposes it would be indeed easier to have it.
So yes, it is not YET implemented. :D

Quote:

---

Originally Posted by Karl77

Do you plan to implement something like AutoSizeColWidth?

---

AutoSize features are needed, so yes planning to do so.

Update released.

Included the ClipSeparators property.
The two distinct characters will be used as column (first character) and row (second character) separators in clip strings. (.Clip property and .AddItem method)
If the property is set to empty, the defaults vbTab and vbCr are used.

While vbTab and vbCr (defaults) are useful when interacting between Excel spreadsheet and the flex grid it becomes a obstacles when dealing with a Recordset.
For instance when you use the 'GetString' method in a Recordset you can define a custom Column and Row delimiter. Now you can apply the same delimiters in the ClipSeperators property.
Reason: The delimiter vbTab and vbCr can also be contained within some text fields in the Recordset. So in most cases it is better to define other delimiters to circumvent that issue.

Update released.

Bugfix concerning the FixedAlignment property.
When not preset (internal value of -1) it returns now the ColAlignment property. (like in MSFlexGrid)
Also the CellAlignment (when not preset) returns then the ColAlignment or the FixedAlignment (if fixed cell and preset) property.
Unlike in the MSFlexGrid the FixedAlignment can be turned back to not preset by setting a value of -1.

Quote:

---

Originally Posted by Karl77

"- FormatString property not implemented"

Before I change my code in dozens of places:
Is FormatString not implemented YET or will it not happen?

---

FormatString property is now implemented. I would appreciate if you could test it extensively.

Hi Krool,

I have tried to look for but not able how to go about doing this.

I have 1 fixed column on the left.
a) When I click on any cell in the fixed column, I want to set the SelectionMode to 1-ByRow and highlight and select that row. This will allow an option to Insert or Add a row.
b) Click on any other cell, I change to SelectionMode to 0-Free and select that cell for editing.

I have problem to capture the click on the left fixed column cell. Is this possible?

Edit:
If I can capture the click on the left fixed column cell, I can do the rest.

Attachment 152013

I found it. MouseCol and MouseRow.

Downloaded and briefly fiddled with this - looks very promising. Do you plan to support in-cell editing?

Have not use FlexGrid before, not even MS. This is first time so a lot of features to get familiar with.

No need to change SelectionMode. This will do it.

Code:

---

Private Sub FlexGrid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With FlexGrid
        If .MouseCol = 0 Then
            .Row = .MouseRow
            .Col = .MouseCol
            .RowSel = .Row
            .ColSel = .Cols - 1
        End If
    End With
   
    If Button = 2 Then
        'ToDo
        'Popup menu to InsertRow and AddRow
    End If
End Sub

---

@ Chosk, you can achieve what you want with .AllowBigSelection = True without any additional code. Of course for showing the Popup you need to handle like you did.

Quote:

---

Originally Posted by Tech99

Do you plan to support in-cell editing?

---

Yes, first point was to achieve an replacement. But of course more features will be added by the time.

Quote:

---

Originally Posted by Krool

@ Chosk, you can achieve what you want with .AllowBigSelection = True without any additional code. Of course for showing the Popup you need to handle like you did.

---

Thanks, Krool.

Will check it out.

Hi Krool,

Re: .AllowBigSelection = True.

I read up on this. Actually nothing much to read - very simple.
https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx

So I play around with this property.

When True:
I can only select Column but cannot select Row.
Can also select entire grid by clicking on the Top Left cell where both Headers meet, like in Excel.

When False:
The cell immediately below the Column Header is selected (normal). Spariodically, the cell below the Column Header get highlighted and scroll up one row when a random Column Header is clicked. Nothing happen when I click on Row Header.

Quote:

---

Originally Posted by chosk

Hi Krool,

Re: .AllowBigSelection = True.

I read up on this. Actually nothing much to read - very simple.
https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx

So I play around with this property.

When True:
I can only select Column but cannot select Row.
Can also select entire grid by clicking on the Top Left cell where both Headers meet, like in Excel.

When False:
The cell immediately below the Column Header is selected (normal). Spariodically, the cell below the Column Header get highlighted and scroll up one row when a random Column Header is clicked. Nothing happen when I click on Row Header.

---

I can select the row when .AllowBigSelection = True.
Did you try in the VBFlexGridDemo if you can do select the row?

I forgot about the demo. Yes, I can select row when .AllowBigSelection = True. I will see what I have done differently.

I found out what is causing this ".AllowBigSelection = True" not working for row. When AllowUserResizing is 0-None or 1-Column then it won't work.

Quote:

---

Originally Posted by chosk

I found out what is causing this ".AllowBigSelection = True" not working for row. When AllowUserResizing is 0-None or 1-Column then it won't work.

---

Update released. There was indeed an minor bug in an internal function (GetHitTestInfo).
Now it should work as expected. Thanks for reporting.

Thanks, Krool.

Hi Krool,

When .AllowBigSelection = False:
Spariodically, the cell below the Column Header get highlighted and scroll up one row when a Column Header is clicked.

Quote:

---

Originally Posted by chosk

Hi Krool,

When .AllowBigSelection = False:
Spariodically, the cell below the Column Header get highlighted and scroll up one row when a Column Header is clicked.

---

That behavior is expected and equals to MSFlexGrid. The "spariodically" is because you slightly move the mouse after your click, that's why it is scrolling up while your moving. (which is also expected and no bug)