CommonControls (Replacement of the MS common controls)

Hello Krool !
Hello! Thank you for providing the great VBCCR series controls. I have been using your controls for many years while developing software for clients. These controls are very convenient to use. I really appreciate your help, thank you so much!

Here is some feedback: The 'StatusBar' control, 'Public Enum SbrPanelStyleConstants' and 'Public Enum SbrPanelDTFormatConstants' are inconsistent between 'ComCtlsDemo' and 'VBCCR18', with the specific situation as follows:

Code:

---


ComCtlsDemo.StatusBar

Public Enum SbrPanelStyleConstants
SbrPanelStyleText = 0
SbrPanelStyleCaps = 1
SbrPanelStyleNum = 2
SbrPanelStyleIns = 3
SbrPanelStyleScrl = 4
SbrPanelStyleTime = 5
SbrPanelStyleDate = 6
SbrPanelStyleKana = 7
SbrPanelStyleHangul = 8
SbrPanelStyleJunja = 9
SbrPanelStyleFinal = 10
SbrPanelStyleKanji = 11
SbrPanelStyleHanja = 12
SbrPanelStyleDateTime = 13
End Enum


VBCCR18.StatusBar

Public Enum SbrPanelStyleConstants
SbrPanelStyleText = 0
SbrPanelStyleCaps = 1
SbrPanelStyleNum = 2
SbrPanelStyleIns = 3
SbrPanelStyleScrl = 4
SbrPanelStyleTime = 5
SbrPanelStyleDate = 6
SbrPanelStyleKana = 7
SbrPanelStyleHangul = 8
SbrPanelStyleJunja = 9
SbrPanelStyleFinal = 10
SbrPanelStyleKanji = 11
SbrPanelStyleHanja = 12
End Enum


ComCtlsDemo.StatusBar

Public Enum SbrPanelDTFormatConstants
SbrPanelDTFormatShort = 0
SbrPanelDTFormatLong = 1
SbrPanelDTFormatMedium = 2
SbrPanelDTFormatGeneral = 3
SbrPanelDTFormatCustom = 4
End Enum




VBCCR18.StatusBar

Public Enum SbrPanelDTFormatConstants
SbrPanelDTFormatShort = 0
SbrPanelDTFormatLong = 1
End Enum

---

Quote:

---

Originally Posted by smileyoufu

Hello Krool !
Hello! Thank you for providing the great VBCCR series controls. I have been using your controls for many years while developing software for clients. These controls are very convenient to use. I really appreciate your help, thank you so much!

Here is some feedback: The 'StatusBar' control, 'Public Enum SbrPanelStyleConstants' and 'Public Enum SbrPanelDTFormatConstants' are inconsistent between 'ComCtlsDemo' and 'VBCCR18', with the specific situation as follows:

Code:

---


ComCtlsDemo.StatusBar

Public Enum SbrPanelStyleConstants
SbrPanelStyleText = 0
SbrPanelStyleCaps = 1
SbrPanelStyleNum = 2
SbrPanelStyleIns = 3
SbrPanelStyleScrl = 4
SbrPanelStyleTime = 5
SbrPanelStyleDate = 6
SbrPanelStyleKana = 7
SbrPanelStyleHangul = 8
SbrPanelStyleJunja = 9
SbrPanelStyleFinal = 10
SbrPanelStyleKanji = 11
SbrPanelStyleHanja = 12
SbrPanelStyleDateTime = 13
End Enum


VBCCR18.StatusBar

Public Enum SbrPanelStyleConstants
SbrPanelStyleText = 0
SbrPanelStyleCaps = 1
SbrPanelStyleNum = 2
SbrPanelStyleIns = 3
SbrPanelStyleScrl = 4
SbrPanelStyleTime = 5
SbrPanelStyleDate = 6
SbrPanelStyleKana = 7
SbrPanelStyleHangul = 8
SbrPanelStyleJunja = 9
SbrPanelStyleFinal = 10
SbrPanelStyleKanji = 11
SbrPanelStyleHanja = 12
End Enum


ComCtlsDemo.StatusBar

Public Enum SbrPanelDTFormatConstants
SbrPanelDTFormatShort = 0
SbrPanelDTFormatLong = 1
SbrPanelDTFormatMedium = 2
SbrPanelDTFormatGeneral = 3
SbrPanelDTFormatCustom = 4
End Enum




VBCCR18.StatusBar

Public Enum SbrPanelDTFormatConstants
SbrPanelDTFormatShort = 0
SbrPanelDTFormatLong = 1
End Enum

---

---

The ComCtlsDemo is the leading source. I can't make new features into the OCX immediatelly. So, they will be integrated into a future 1.9 OCX.

Quote:

---

Originally Posted by Krool

The ComCtlsDemo is the leading source. I can't make new features into the OCX immediatelly. So, they will be integrated into a future 1.9 OCX.

---

Hello Krool!
Thanks for your quick reply, now I know how to handle this issue.

Quote:

---

Originally Posted by smileyoufu

Hello Krool!
Thanks for your quick reply, now I know how to handle this issue.

---

I did a typelib edit for the VBCCR18.OCX and included those enums you mentioned. So, fixed so to say.

Quote:

---

Originally Posted by Krool

I did a typelib edit for the VBCCR18.OCX and included those enums you mentioned. So, fixed so to say.

---

Hello Krool!
Your fix was super quick. I've applied the latest version you provided to the project.
Thanks so much for your help!

I have two questions about the listview control when being used in report view:

1. Is it possible to "lock" columns on the left so that they remain visible when scrolling? If not directly, does anyone have a suggestion how to achieve such behavior (e.g. by hiding / unhiding columns when scrolling)

2. Does anyone have an example of how to use the ColumnFilterBar? I can't find that in the demo.

Thanks in advance,
Erwin

1. Use the vbFlexGrid control, also by Krool

2. Check out the ColumnFilterChanged and ColumnFilterButtonClick event. Then a ColumnHeader has a EditFilter and ClearFilter method. Also a ColumnHeader has a FilterType and FilterValue property.
So, obviously you react upon ColumnFilterChanged and use the FilterValue properties of the column to have the criteria to refresh and refeed the list according to that. That's your duty to handle that.

Hi Krool.

Thanks again for your great controls. I have an observation with Listview. It looks like the ItemSelect event is raised twice when you click on a row. First it shows the old item, the second one shows the new item. Same happens when you use the cursor keys. Is this correct behavior? Using ItemFocus runs only once and gives the correct selected item so this can be used instead.

Edit: I've learned that it is a Windows thingy. The windows listview send two notifications, LVN_ITEMCHANGING and LVN_ITEMCHANGED which causes the event to run twice. ItemFocus looks like to correct way the way to go.

Quote:

---

Originally Posted by MSI-Packager

Hi Krool.

Thanks again for your great controls. I have an observation with Listview. It looks like the ItemSelect event is raised twice when you click on a row. First it shows the old item, the second one shows the new item. Same happens when you use the cursor keys. Is this correct behavior? Using ItemFocus runs only once and gives the correct selected item so this can be used instead.

Edit: I've learned that it is a Windows thingy. The windows listview send two notifications, LVN_ITEMCHANGING and LVN_ITEMCHANGED which causes the event to run twice. ItemFocus looks like to correct way the way to go.

---

I raise the ItemSelect event upon LVN_ODSTATECHANGED and LVN_ITEMCHANGED only. You need to check the Selected arg in the ItemSelect event. It's fired two times because the old get's de-selected and the new one is being selected. So, where is the problem ?

Quote:

---

Originally Posted by Krool

I raise the ItemSelect event upon LVN_ODSTATECHANGED and LVN_ITEMCHANGED only. You need to check the Selected arg in the ItemSelect event. It's fired two times because the old get's de-selected and the new one is being selected. So, where is the problem ?

---

It is no longer a problem. I failed to understand that a deselect and a select both fire the event. I also forgot to check the Selected Arg. Thanks!

VB6SP6, Win10

Hi krool,

i only can enter 255 chars in the textbox of a ComboBoxW (DropDownCombo) when setting MaxLength=0.
Using a TextboxW with MaxLength=0 i can enter more than 255 characters.

Using the following code extends the 255-char-limit of the combobox-textbox:

Code:

---

Call SendMessage(cbo.hWndEdit, EM_LIMITTEXT, 32767, 0)

---

Can you add this line to the comboxbox control source code?

Quote:

---

Originally Posted by Mith

VB6SP6, Win10

Hi krool,

i only can enter 255 chars in the textbox of a ComboBoxW (DropDownCombo) when setting MaxLength=0.
Using a TextboxW with MaxLength=0 i can enter more than 255 characters.

Using the following code extends the 255-char-limit of the combobox-textbox:

Code:

---

Call SendMessage(cbo.hWndEdit, EM_LIMITTEXT, 32767, 0)

---

Can you add this line to the comboxbox control source code?

---

It's done deliberately to be compatible with the VB.ComboBox.

Code:

---

SendMessage ComboBoxHandle, CB_LIMITTEXT, IIf(PropMaxLength = 0, 255, PropMaxLength), ByVal 0&

---

Quote:

---

Originally Posted by Krool

It's done deliberately to be compatible with the VB.ComboBox.

Code:

---

SendMessage ComboBoxHandle, CB_LIMITTEXT, IIf(PropMaxLength = 0, 255, PropMaxLength), ByVal 0&

---

---

ok, i guess i only need to set MaxLength=32767 to extend the 255-limit?

Quote:

---

Originally Posted by Mith

ok, i guess i only need to set MaxLength=32767 to extend the 255-limit?

---

Yes.