CommonControls (Replacement of the MS common controls)

[Dragokas]

How to compile OCX version? Is there a special instruction?
I'm receiving the error while compilation: "Object doesn't support this property or method" pointing to:

Public Function GetDispID(ByVal This As Object, ByRef MethodName As String) As Long
Dim IDispatch As OLEGuids.IDispatch, IID_NULL As OLEGuids.OLECLSID
Set IDispatch = This
IDispatch.GetIDsOfNames IID_NULL, StrPtr(MethodName), 1, 0, GetDispID
End Function

at "Writing OCX" stage.

Hmm, well, same issue with Std-exe.

[Krool]

How to compile OCX version? Is there a special instruction?
I'm receiving the error while compilation: "Object doesn't support this property or method" pointing to:

Public Function GetDispID(ByVal This As Object, ByRef MethodName As String) As Long
Dim IDispatch As OLEGuids.IDispatch, IID_NULL As OLEGuids.OLECLSID
Set IDispatch = This
IDispatch.GetIDsOfNames IID_NULL, StrPtr(MethodName), 1, 0, GetDispID
End Function

at "Writing OCX" stage.

Hmm, well, same issue with Std-exe.

Just update your OLEGuids.tlb

[Dragokas]

Krool, thanks!
I forgot to re-register as HKCU. Works good.

Have a nice day!

[Erwin69]

Hi,

Two questions:

UNICODE TOOLTIPS
In an old post in this thread it was stated that tooltips don’t support Unicode texts. Is that still the case, or is there a simple trick to assign the Unicode text to a CommandButton tooltip?


FASTEST WAY TO MOVE A SET OF DATA INTO A LISTVIEW
When working with sets of data, there is for example the Recordset.GetRows feature to quickly move all data retrieved from a database into an array. For exporting to Excel there is the Range.Resize function to quickly move the data from an array into a worksheet.

Does the ListView control offer such features as well, or is it simply a matter of cycling through the records in the recordset, or the items in the array, and using ListItem.Add and SubItems to add the data to the control?

Thanks,
Erwin

[Erwin69]

Hi,

Another question:

COLORING ITEMS IN A COMBO
Is it possible to give individual items in a combobox / dropdown list different colors, or use a different font?

Thanks,
Erwin

[baka]

so far I have not used it, much because the demo is huge.
today I decided to try one component. it was not easy, took me 10 minutes to create a new project and copy the needed files. (it was not obvious, lots of search and find the dependency needed and copy)
total of 8 mod/class/usercontrol and the tlb + some work with the registry to remove an old-entry that made it all stuck.

after all that I find myself with too many files, its confusing and Im not sure its worth it.
my solutions so far have been to create graphical-interface with, 10% or less coding and easier to manage.

[Erwin69]

so far I have not used it, much because the demo is huge.
today I decided to try one component. it was not easy, took me 10 minutes to create a new project and copy the needed files. (it was not obvious, lots of search and find the dependency needed and copy)
total of 8 mod/class/usercontrol and the tlb + some work with the registry to remove an old-entry that made it all stuck.

after all that I find myself with too many files, its confusing and Im not sure its worth it.
my solutions so far have been to create graphical-interface with, 10% or less coding and easier to manage.

Why don't you use the OCX? 1 file, simple and straightforward.

The primary reasone why I switched to Krool's controls, was to have Unicode support for my apps' user interfaces. Before them, supporting Unicode languages like Russian, Thai and Korean was a serious pain in the @ss, and only worked when the underlying Windows version was running in that language. Now it is no problem to run my apps in Korean on a French Windows, in Russian on an Italian Windows, etc.

All other enhancements are a bonus, and I believe there are plenty!

It works as a charm, and if I have any questions, I post them here and most of the time they are answered very quickly.

[Krool]

Hi,

Another question:

COLORING ITEMS IN A COMBO
Is it possible to give individual items in a combobox / dropdown list different colors, or use a different font?

Thanks,
Erwin

Use the DrawMode property and handle ItemMeasure/ItemDraw event.
For different fonts use DrawMode = Variable.
You can look in the FontCombo control. It's an built-in owner draw combo box.

[Erwin69]

Use the DrawMode property and handle ItemMeasure/ItemDraw event.
For different fonts use DrawMode = Variable.
You can look in the FontCombo control. It's an built-in owner draw combo box.

Thanks for the answer Krool, but I'm afraid this is a bit, or better said, waaaaaay beyond my skillset...

I studied your code for the FontCombo control, Googled examples of owner draw handling, and walked away cross-eyed.

What I was hoping for was something as simple as

MyListView.ListItems(i).ForeColor = vbRed

but then for the combo/dropdown.

Sometimes I think I'm doing pretty cool things, but then I come across stuff like this, and realize I'm just a mere mortal...

I'll figure out another approach.

[xiaoyao]

Can you add transparency properties to every newly invented, modern control?
For example, two options: use the picture property of the parent control, or specify a screenshot of all subsequent controls as the background image (hide the control itself, take a picture of the area of the form, and then display the custom control)

[Krool]

Update released.

CoolBar/ToolBar/TabStrip/StatusBar control now redirects to WM_PRINT (PRF_CLIENT Or PRF_ERASEBKGND) upon WM_PAINT when wParam is <> 0.
All Transparent properties improved to use GetParent() instead of .ContainerHwnd.

[smileyoufu]

Hello Krool!

The 'Animation' control, after referencing 'VBCCR17.OCX' and compiling it into an exe file, reported an error when running the exe file, with the error prompt '326 Resource with identifier' 100 'not found'”

The error code is:
Animation1.LoadRes 100

Attachment 189190

[Krool]

Hello Krool!

The 'Animation' control, after referencing 'VBCCR17.OCX' and compiling it into an exe file, reported an error when running the exe file, with the error prompt '326 Resource with identifier' 100 'not found'”

The error code is:
Animation1.LoadRes 100

Attachment 189190

This

Animation1.LoadRes 100

is from the demo project. (MainForm.frm)
You can delete it in your app..

[smileyoufu]

This

Animation1.LoadRes 100

is from the demo project. (MainForm.frm)
You can delete it in your app..

I found this issue when testing VBCCR17.OCX using the "ComCtlsDemo" demonstration file. If I don't remove the line "Animation1. LoadRes 100", it will cause the exe file to completely fail to start and report the error in # 3612 above. The exe file cannot start until the line is deleted.

Animation Can't the LoadRes method load the contents of the res file in exe?

If this is not a problem, please ignore it.

Thank you very much!
AnimationTest.zip

[Dragokas]

Possible bug with ListBox style "Checkbox". Can't set checkbox to be checked. Is VBCCR have different property?

Repro:
Add VB ListBox (Style:Checkbox) & VBCCR ListBox (Style:ListStyleCheckbox)
Run code:

Private Sub Form_Load()
    Dim i&
    With List1
        .AddItem "item1"
        .AddItem "item2"
        For i = 0 To .ListCount - 1
            .Selected(i) = True
        Next
    End With
    With ListBoxW1
        .AddItem "item1"
        .AddItem "item2"
        For i = 0 To .ListCount - 1
            .Selected(i) = True
        Next
    End With
End Sub

Result:

[Krool]

Possible bug with ListBox style "Checkbox". Can't set checkbox to be checked. Is VBCCR have different property?

Repro:
Add VB ListBox (Style:Checkbox) & VBCCR ListBox (Style:ListStyleCheckbox)
Run code:

Private Sub Form_Load()
    Dim i&
    With List1
        .AddItem "item1"
        .AddItem "item2"
        For i = 0 To .ListCount - 1
            .Selected(i) = True
        Next
    End With
    With ListBoxW1
        .AddItem "item1"
        .AddItem "item2"
        For i = 0 To .ListCount - 1
            .Selected(i) = True
        Next
    End With
End Sub

Result:

That's a intended discrepancy indeed.
Use .ItemChecked instead. This way .Selected is "free" for it's normal purpose.

[Dragokas]

Thank a much Krool. I overlooked this property.

[jpfa]

I can't find the OLEDragDrop event in the VBCCR17.RichTextBox (it's exposed in other VBCCR17 controls). There's instead a OLEDragDrop property that should enable the window as a OLE drop target but it doesn't actually do it. What am I doing wrong? Or is there a workaround for this? If there is one, can anyone provide an example? Thanks !

I'm running the VB6 Ide in a 64 bit Windows 10 OS.

[HackerVlad]

Finally add the Ctrl+A keyboard shortcuts for the TextBoxW text field.
Is it really that difficult for you? I think many users are used to highlighting all the text using these hotkeys.
And Ctrl+A doesn't work for you in the executable file.

[Dragokas]

@HackerVlad:

Option Explicit

Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetMem2 Lib "msvbvm60.dll" (Src As Any, Dst As Any) As Long

Private Const VK_CONTROL As Long = 17

Private m_bSkipDing As Boolean

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = Asc("A") Then
        If HIWORD(GetKeyState(VK_CONTROL)) Then
            SelectTextBox Me.ActiveControl
            m_bSkipDing = True
        End If
    End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If m_bSkipDing Then KeyAscii = 0: m_bSkipDing = False
End Sub

Private Sub SelectTextBox(ctl As Control)
    Dim txtB As VBCCR17.TextBoxW
    If TypeOf ctl Is VBCCR17.TextBoxW Then
        Set txtB = ctl
        txtB.SelStart = 0
        txtB.SelLength = Len(txtB.Text)
    End If
End Sub

Public Function HIWORD(dwNum As Long) As Long
    GetMem2 ByVal VarPtr(dwNum) + 2, HIWORD
End Function

[Mith]

Finally add the Ctrl+A keyboard shortcuts for the TextBoxW text field.

The key combos CTRL+A, CTRL+C, CTRL+V and CTRL+X are working without any problems here in the TextBoxW control. Win10x64.

[HackerVlad]

The key combos CTRL+A, CTRL+C, CTRL+V and CTRL+X are working without any problems here in the TextBoxW control. Win10x64.

I have already realized that a manifest styles is required for this

[Erwin69]

This works for me:

Private Sub MyTextBoxW_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = Asc("A") And Shift = 2 Then
        MyTextBoxW.SelStart = 0
        MyTextBoxW.SelLength = Len(MyTextBoxW.Text)
    End If
End Sub

[HackerVlad]

Thank you all so much for the answers! I just wanted the author of the control to make keyboard shortcuts Ctrl+A

[Semke]

I have noticed that in the latest version of the ocx, the ClientTop of the tabstrip is not working properly.

now the interesting thing is that on a computer which the scale is set to 150% it works perfect, ClientTop is relative to the top of the form.

But on computers with the scale set to %100 ClientTop will be relative to the top of the tabstrip.

This issue did not exist in version 1.7.0.61, although i don't at which version it started

I left this message Here

so i have been reading a bit on the updates and I saw this.

09-Oct-2023
- TabStrip's ClientLeft/ClientTop now matches to VBA and to VBFlexGrid. (CellLeft/ClientLeft etc.)
So use .Left + .ClientLeft instead of just .ClientLeft for positioning from a container.

looks like its something to do with this

[Krool]

I have noticed that in the latest version of the ocx, the ClientTop of the tabstrip is not working properly.

now the interesting thing is that on a computer which the scale is set to 150% it works perfect, ClientTop is relative to the top of the form.

But on computers with the scale set to %100 ClientTop will be relative to the top of the tabstrip.

This issue did not exist in version 1.7.0.61, although i don't at which version it started

I left this message Here

so i have been reading a bit on the updates and I saw this.

09-Oct-2023
- TabStrip's ClientLeft/ClientTop now matches to VBA and to VBFlexGrid. (CellLeft/ClientLeft etc.)
So use .Left + .ClientLeft instead of just .ClientLeft for positioning from a container.

looks like its something to do with this

Yes. It was a design error.
Use TabStrip.Top + TabStrip.ClientTop.
Sorry for the inconvenience caused.

[Semke]

Yes. It was a design error.
Use TabStrip.Top + TabStrip.ClientTop.
Sorry for the inconvenience caused.

No apologies required, you are doing great work.

The reason I had different results on different computers is, because I had different versions of the OCX on these computer. Nothing to do with scaling.



Once again, Thank you for all the work.

[xiaoyao]

how to set unicode text in vb6 ide (textw.ctl) and save it in UserControl_WriteProperties
韩文：한국어；英语：Korean

Just saw that there is a small button in the position of the property text. How did this happen?
It would be nice to replace the VB6 text box position directly with a new control that supports Korean UNICODE input

[Mith]

how to set unicode text in vb6 ide (textw.ctl) and save it in UserControl_WriteProperties

Click the button "..." inside the text field property and enter your korean text in the property window.

[logley]

Might be a silly question, but does anyone know of, or have created a utility to take in a VB6 project and convert all references from standard Microsoft controls to Krool's controls.

I have several large projects with 100-200 forms, that I'd like to convert to fully use Krool's controls, but doing this manually would take an age.

Thanks

Lee.

[Arnoutdv]

https://www.vbforums.com/showthread....ompile-Utility

[Erwin69]

I haven't used Mountain Man's utilities, but simply did the manual, and indeed more time consuming conversion using Search & Replace in the form files using NotePad++. (My 3 key projects have 50-65 forms each.)

The "simple" controls like labels, buttons, frames, etc. are very straightforward to convert, and require no further attention. What I found though is that "more complex" controls like the TreeView and ListView also required code changes, since some of the events for them have new/different parameters. Also, some of the objects related to these controls, e.g. Nodes, have a different definition, which means underlying code may have to be updated.

After the conversion of the first project, I decided to create for the other two a grid with in the first column the forms, and then additional columns for each of the types of controls, with a tick if that type of control is on the form. That way I could quickly convert the "simple" forms, and was aware of which forms needed more attention in the form of a code review for the "special" controls.

[nebeln]

Actually really intresting and fun to see this because in same era as I learned from EnumDeskVB which had dynamicly created sysListView32 and sysTreeView32 I was in the starting "how to make these into Shell controls". Due to a fatal disc crash (1999-2000) and no USB memory dongles and no back up on floppys back then I just left it. I worked out sysListView32, sysTreeView32 and ComboBoxEx32 as shellbrowsers back then but had no good SubClassing routine back then. When using more than one instance of the control of that time, it did only notified the first instance and the rest was "lame". Just memory and a recall...back then I was only the CCRP Project and no more. No GiT Hub or stuff like that. No MSDN Shell32 reference. Very much was "undocumented" and was only to find via certain books, web pages etc.
But it took really 11-12 years for it to become "resurrected" again. I had sysListView32, sysTreeView32, ComboBoxEx32 shellbrowser's as code samples at a webpage back then (1999-2000). I hade even Tab32, ProgressBar32 and some more But I didn't mind to work anymore on them. Thats just a little history about my experiance of the Common Controls.

[Krool]

Included the WindowedLabel control.

As the name says this control is not windowless and thus provides a hWnd property.
This can be useful for ZOrdering above other windowed controls or when a label control should be as a child control. (e.g. CoolBar etc.)

The BackStyle property is removed in the WindowedLabel and replaced by the Transparent property.

WM_PRINTCLIENT is supported for the WindowedLabel control.
Also WM_GETTEXTLENGTH/WM_GETTEXT/WM_SETTEXT is supported to replicate a "Static" class.

[AAraya]

Can you add transparency properties to every newly invented, modern control?

Transparency and also rounded rect shape. These two additions would allow for more Win11-like interfaces.

[AAraya]

Might be a silly question, but does anyone know of, or have created a utility to take in a VB6 project and convert all references from standard Microsoft controls to Krool's controls.

I have several large projects with 100-200 forms, that I'd like to convert to fully use Krool's controls, but doing this manually would take an age.

Thanks

Lee.

I use the free OCXUpdater tool from 10tec to quickly update OCXs: https://10tec.com/vb6-project-references-update/

Oh sorry - quickly read your post and misread it. The tool I mention is useful for updating from one version of an OCX to another one. For example, to upgrade from an older version of VBCCR to the new one. It doesn't do what you asked for.

[AAraya]

Updating a project from VBCCR16 to VBCCR17, all of my existing VBCCR combo box widths have been auto-changed to 20 twips. Not a HUGE deal to address, just a little tedious. Thought you'd want to know.

Thanks for your continued support and excellent work on these controls!

[Krool]

Updating a project from VBCCR16 to VBCCR17, all of my existing VBCCR combo box widths have been auto-changed to 20 twips. Not a HUGE deal to address, just a little tedious. Thought you'd want to know.

Thanks for your continued support and excellent work on these controls!

Thanks for reporting!
Bug is fixed. It was a recent stupid regression from 18-Dec-2023.

Sorry for this..

This bug affected also migration from VB.ComboBox to VBCCR17.ComboBoxW ..

[softv]

Included the WindowedLabel control.

As the name says this control is not windowless and thus provides a hWnd property.
This can be useful for ZOrdering above other windowed controls or when a label control should be as a child control. (e.g. CoolBar etc.)

The BackStyle property is removed in the WindowedLabel and replaced by the Transparent property.

WM_PRINTCLIENT is supported for the WindowedLabel control.
Also WM_GETTEXTLENGTH/WM_GETTEXT/WM_SETTEXT is supported to replicate a "Static" class.

That's fantastic, Krool.

Thanks a LOT.

Kind Regards.

[godeny]

Thank you, Krool, for this fantastic set of controls. I decided to convert my 20 years old project - and it looks like I am making relative quick progress.

Two incompatibilities I've noticed so far:
- The HitTest method of the Treeview control needs the coordinates in Pixels. The original MS control needed them in Twips. (The form the control is placed on has ScaleMode=3, it uses Pixels). Pixels seem to me a better choice in this case, but is an incompatibility.

- When the KeyPreview property of the containing form is set to true, I don't get it though some keystrokes from the TextboxW and ComboBoxW control int the forms KeyDown event - for example, the up and down arrows. I have to use the KeyDown event of that controls - of each of them - to grab this keystrokes, and to redefine, what they are doing.

- As the VirtualCombo is a new control, it is not a compatibility case, but when setting the ListIndex property of the control, why is the text field not updated ?