You mean the reason that the tabs are vertically stacked is due to the Ambient.UserMode property?Quote:
Originally Posted by Romeo91
Printable View
You mean the reason that the tabs are vertically stacked is due to the Ambient.UserMode property?Quote:
Originally Posted by Romeo91
Yes it is.Quote:
Originally Posted by Krool
Depends on what I do not know, on one win7 I look normal on the second win7 tab are not just vertically, but without pictures and caption. The problem occurs only in the compiled exe.
All that i made it - replaced Ambient.UserMode property, and after compiling all was well
Can you try to isolate which call to Ambient.UserMode is causing exactly the problem?Quote:
Originally Posted by Romeo91
I will try to identify where the problem, but it is only at home in the evening, as on all working machines I have everything works correctly (XP/7/8).Quote:
Originally Posted by Krool
Enough to replace one parameterQuote:
Originally Posted by Romeo91
Private Sub CreateTabStrip()
....
If TabStripHandle <> 0 Then
If Ambient.UserMode = True Then Call ComCtlsSetSubclass(TabStripHandle, Me, 1)
End If
End sub
Hmmm.. is the Ambient.UserMode property returning "False" on the effected machine?Quote:
Originally Posted by Romeo91
Or does it return "True", but just the call to it will do the issue to the TabStrip?
Is this also effecting the OCX version?
Ambient.UserMode return "True" - I tested it by adding a MsgboxQuote:
Originally Posted by Krool
By my mistake I made in the variable assignment procedure sub main, and the project started with a form Form1.
As a result g_mbUserMode is always False, so the procedure call Call ComCtlsSetSubclass (TabStripHandle, Me, 1) does not occur. And then everything looks correct, but it works right? This is another question!
In OCX-version all is work correctlyQuote:
Originally Posted by Krool
So Ambient.UserMode returns the correct value. But the call to it mess up the TabStrip?Quote:
Originally Posted by Romeo91
Very strange problematic...
Recall that I have a Win8 x64 that exhibited the problem of the vertically stacked tabs. I was thinking this seems to be a problem of not able to create the tabs with the "proper" width and instead stretched full width and stacked. So I did a test. First I REM out the earlier Me.Refresh fix so that I can replicate the problem.
Strangely this time there was a problem but not the same problem. It resembles the problem one of the user reported back on Vista Home Premium.
Previously the tabs width were Justified. Now I tried Justified and Fixed. I hope the attached picture is self-explanatory and for further input hopefully can help in tracing the problem.
Attachment 111721
Hi Krool,
On the Toolbar. In your demo, the Divider is set to False, I set it to True to see how it would look like.
1) With Schmidt's method of inserting manifest into VB6.exe (the normal manifest file method does not work for me):
Initially, I see a thin sunken line between the top of the Toolbar and the Form caption bar. Then I run the project from the IDE. I get artifacts when I move the mouse around the Toolbar. Then when I close the run, back to the IDE, the Toolbar become black. I close and open the demo project, the Toolbar still black.
2) With the original VB6.exe, that is no theme:
No problem in the IDE, also after close the demo project and re-open no problem. But when I compiled (with your manifest in res), the compiled exe exhibited the same artifacts problem.
Perhaps the problem have to do when the Toolbar is themed and Divider is True?
Attachment 111729
That issue and one issue concerning the double-buffering are now fixed. Thanks for your report.Quote:
Originally Posted by chosk
Krool, does ListView support unicode?
Yes.Quote:
Originally Posted by Almeida
Krool, thank you. i just wanted to make sure before delving into it.
Update released.
I have found the problem with the "vertically stacked tabs" in the TabStrip control.
Reason was that the variable PropTabMinWidth is an 'Integer' and the lParam of the SendMessage expects a 'Long' variable.
So there was actually a value problem. It took the 2 bytes from the PropTabMinWidth variable and the other 2 bytes from "somewhere else" in the memory, resulting in a nonsense value. (but not always)
The fix was simple. I just put a CLng() around it.
Krool, Once we have so much time to discussing TabsStrip, make suggestions!
Can add to your set CommonControls control SStab (TabCtl32.ocx)?
I understand there are not very many differences from TabStrip, except that each tab is a separate container, and controls can be added to any of them even in the IDE.
If interested, I have two examples of more or less working but unstable
Thanks Krool for the update. Very much appreciated.
Update released. (Thanks to Jonney for finding)
Using listview on some computers I have an incomprehensible situation. Text element is reduced to a certain size, and placed at the end ...
Attachment 111939
How can I fix this?
I use a view=2 'viewlist
Elements add the following code
Quote:
With lvOptions.ListItems
If .Count = 0 Then
.Add 1, , strItemOptions1, , 1
.Add 2, , strItemOptions8, , 2
.Add 3, , strItemOptions2, , 3
.Add 4, , strItemOptions3, , 4
.Add 5, , strItemOptions4, , 5
.Add 6, , strItemOptions5, , 6
.Add 7, , strItemOptions9, , 7
.Add 8, , strItemOptions6, , 8
.Add 9, , strItemOptions10, , 9
End If
End With
Use the 'ColumnWidth' property and set it to a higher value.Quote:
Originally Posted by Romeo91
I tried, not help. No response to parameter change. Win XP, but met this and Win7Quote:
Originally Posted by Krool
I have tried to replicate and I was only able to replicate it when setting the 'ColumnWidth' in Form_Load, but I could resolve it by placing a 'DoEvents' before setting the 'ColumnWidth'. I am not sure why this is necessary.Quote:
Originally Posted by Romeo91
But please confirm that this solves your issue - for the moment.
On both my machines problem exist in the IDE, but no in compiled-exe. In IDE doevents not help.Quote:
Originally Posted by Krool
Tomorrow check on other computers, as I remember that the problems encountered in the project compiled, but something I doubt
***********
If I use the ColumnWidth property to compile the project, on the contrary it leads to any machine to the problem of reducing the text to the same species, regardless of the ColumnWidth.
If the property is not used, it appears not all machines
Does it work when setting the ColumnWidth not in the Form_Load event? For instance in a CommandButton_Click event instead?Quote:
Originally Posted by Romeo91
If property ColumnWidth is used in the event CommandButton_Click it works correctlyQuote:
Originally Posted by Krool
Very nice project.
Bug: When you click on the Icons property of the ListView control, VB crashes. Same result in both sample project and new project. VB6/SP6 Win7 x64.
I was looking into ImageLists for the ListView. I noticed that I cannot use the system image list by setting the .Icons and .SmallIcons property to the system image list handle (no errors, but no icons). Not sure if that's a bug or just not possible with the design. I tried assigning it with LVM_SETIMAGELIST, however that tripped several breaks on Debug.Assert CBool(OldPointer <> NewPointer) in VTableSubclass.cls followed by complete lockup, had to ctrl+alt+del the ide. No indication of the problem was otherwise given.
It's obviously critical to be able to use the system image list, hopefully it's something simple I'm overlooking.
I am not able to replicate it.Quote:
Originally Posted by fafalone
Is your IDE crashing when clicking in the property browser or on the property page? Or both?
The .Icons, .SmallIcons and .ColumnHeaderIcons does not handle a 'Long' value.Quote:
Originally Posted by fafalone
good work, pls keep it up
Update released.Quote:
Originally Posted by Romeo91
Text element is now not getting reduced anymore when setting the 'SmallIcon' property. So the behavior is now the same as the original ListView control from MS.
hello Krool
i found a bug in date and time picker:
Attachment 112461
when you click on UpDown Button, it changes so fast, i think it should have a delay before rapid change..
what do you mean by rapid change?Quote:
Originally Posted by quicken
By me, when I click, it increments or decrements by 1. But when you hold down the mouse button then it will speed up. I do not think that this is a bug.
Krool,
Thank for the CommonControls (Replacement of the MS common controls) project., a valuable project.
Do you have a user control developed for Explorer-style Folder/File Treeview?, If you can create such a tool which works without any dependency, it will be great to the VB6 community.
The only known solution to me in VB6 is Folder Treeview control I found at the following location.
http://ccrp.mvps.org/
But, it is released as an OCX.
Do you have any idea please?
Thanks once again.
I remembered PSC had the kind of Folderview codes using own-drawn treeview. You can search for it.Quote:
Originally Posted by Bandula Prasanna
sorry krool
i figured that the problem is from my Windows, even Date and Time picker of windows not changing correctly, I don't know where the problem came from and how to fix it...
thank you krool and sorry for wrong bug report..
Update released.
This is quite important when using the ListView control.
Update released.
For info:
This update breaks the compatibility with the VBCCR10.OCX.
I will not create a new OCX now, as I want to wait to collect more such "break compatibility" updates.
But if there will be a critical bug (that does not break the compatibility) then I will adopt this also to the VBCCR10.OCX. ;)
Update released.
VBCCR10.OCX cannot be updated with the new features as it breaks compatibility.
I still wait for more such updates before I will release VBCCR11.OCX.
treeview bug? when set treeview's propety HideSelection=False, treeview not draw selected cell when lost focus,
i found must comment some code in following, it seem about drag and drop, but i think these code not work right
Private Function WindowProcUserControl(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
...
...
Case NM_CUSTOMDRAW
Dim NMTVCD As NMTVCUSTOMDRAW
CopyMemory NMTVCD, ByVal lParam, LenB(NMTVCD)
Select Case NMTVCD.NMCD.dwDrawStage
Case CDDS_PREPAINT
WindowProcUserControl = CDRF_NOTIFYITEMDRAW
Exit Function
Case CDDS_ITEMPREPAINT
If NMTVCD.NMCD.lItemlParam <> 0 Then
Set Node = PtrToObj(NMTVCD.NMCD.lItemlParam)
With Node
'If Not NMTVCD.NMCD.uItemState = (CDIS_FOCUS Or CDIS_SELECTED) Then
'If SendMessage(TreeViewHandle, TVM_GETNEXTITEM, TVGN_DROPHILITE, ByVal TVI_ROOT) <> NMTVCD.NMCD.dwItemSpec Then
'NMTVCD.ClrText = WinColor(.ForeColor)
'NMTVCD.ClrTextBk = WinColor(.BackColor)
'CopyMemory ByVal lParam, NMTVCD, LenB(NMTVCD)
'End If
End If
Update released. Thanks for your bug report.Quote:
Originally Posted by netkiller
thanks for your nice work, first.
you add following code to skip problem:
If NMTVCD.ClrTextBk <> WinColor(vbButtonFace) Then
but i think your custom draw code with drag and drop seems no usage, comment it can increase custom draw speed and resolve this problem.
btw, hope ImageList can support 32bit color icon with alpha channel(XP ICON)
thanks a lot:)
Is it possible to use these controls in a VBA project? I have an existing VBA project that I've run into issues using the mscomctl.ocx library so I'm trying to find a replacement for it.
Thanks
Ron
Not possible to use in VBA. :-(Quote:
Originally Posted by rgregory
Well, the pre-compiled (and normally registered) OCX-version should do fine in VBA(UserForms).
Olaf
Update released.
Hi, Only found this a couple of days ago. Fantastic!
Still exploring but I note that there is no HelpContextID for the toolbar control although it's there for the other controls I've looked at. Pity as I use this on the project I was thinking of using replacing the controls on.
Also the toolbar has a BackColor property which doesn't seem to do anything. (But as there is no BackColor property for the MSToolbar I can't complain!)
Keep up the great work
The BackColor property is ignored when control paints via double-buffering. (DoubleBuffer property)Quote:
Originally Posted by Jim Naylor
So in order to use a custom BackColor you need to set the DoubleBuffer property to False.
Hmm. Thats true. The reason seems to be because the control cannot get the focus. As soon as I set the ToolBar to CanGetFocus = True the HelpContextID is available...Quote:
Originally Posted by Jim Naylor
Thanks for that.
I've modified the CanGetFocus in the control and yes I can get the HelpContextID and with DoubleBuffer off the color is all OK. But that makes me ask, what does DoubleBuffer do? as nothing else seems to change.
Double buffering is reducing some flickering. Especially in the ListView control you can see the difference.Quote:
Originally Posted by Jim Naylor
Thanks for the explaination. I doubt if flicker will be a problem on a toolbar, so I'll keep it off.
Krool,
Fantastic project, I have been following it for a while and tested several of the versions(the previous I downloaded was 2013-03-19) without any trouble.
I just tried the latest(2014-05-08) and got a new error from the Listview control at startup followed by IDE-crash.
Quote:
"To use this functionality, you must provide a manifest specifying comctl32.dll version 6.0 or higher"
I checked my system and my COMCTL32.DLL is File version 5.82.7601.18201 but Product version 6.1.7601.181201Code:Public Property Get Groups() As LvwGroups
If PropGroups Is Nothing Then
If ComCtlsSupportLevel() >= 1 Then
Set PropGroups = New LvwGroups
PropGroups.FInit Me
Else
Err.Raise Number:=91, Description:="To use this functionality, you must provide a manifest specifying comctl32.dll version 6.0 or higher"
End If
End If
Set Groups = PropGroups
End Property
The previous one(2014-03-19) I have works but not the newer one(2014-05-08)
Any suggestions?
The demo is using the 'Groups' functionality, which requires a manifest linking to the comctl32.dll version 6.0 or higher. The compiled .exe is linked to version 6.0. But the IDE itself is most likely linked to version 5.x. Thus the Error happens in the IDE only.Quote:
Originally Posted by Ramses800
However, whenever the functionality is called it will raise an error. (most likely in the IDE because this links to version 5.x)
In the demo I put a "On Error Resume Next" befor to the 'Groups' call to avoid this.
But this ("On Error Resume Next") will be only working when you configure the IDE like following:
Quote:
In order to trap error raises via "On Error Goto ..." or "On Error Resume Next" it is necessary to have "Break on Unhandled Errors" selected instead of "Break in Class Module" on Tools -> Options... -> General -> Error Trapping.
Excellent, that did the trick!
Again, fantastic work!
Couple of minor issues with the toolbar
The MSToolbar is a container but the replacement isn't, fixed by changing the ControlContainer property of the control to True.
If you set the whole toolbar to Enabled = False, then later set Enabled = True, the disabled shaddows still partly show.
I fixed this by putting UserControl.Refresh after
If ToolBarHandle <> 0 Then EnableWindow ToolBarHandle, IIf(Value = True, 1, 0)
in the Enabled property of the control.
Everything else so far working great.
Thanks for your help. Appreciated.Quote:
Originally Posted by Jim Naylor
Update released. :)
Re the DateTime Picker.
1) I click on the Day part to highlight it. Then I scroll the mousewheel:
a) If I am at 30-Apr-2014 and I scroll up,
instead forward to 1-May-2014, it goes backward to 1-April-2014.
b) If I am at 1-Apr-2014 and scroll down,
instead backward to 31-Mar-2014, it jumps forward to 30-Apr-2014.
2) Similarly for the Month part, then use mousewheel to scroll:
a) At Dec-2013 and scroll up, instead of Jan-2014, it goes backward to Jan-2013.
b) At Jan-2014 and scroll down, instead of Dec-2013, it goes forward to Dec-2014
3) When click to open and show the calendar view:
a) If I am at 15-April-2014, click on the < to go to previous month,
instead of 15-Mar-2014, it goes to the 1-Mar-2014.
b) If I am at 15-April-2014, click on the > to go to next month,
instead of 15-May-2014, it goes to 1-May-2014.
I assume this is the comctl32 v6.1 version?Quote:
Originally Posted by chosk
At this version I did not do any "custom procedures" for mousewheel or so as there is a default procedure for that.
Thus all that behavior you encounter are default procedures.
Important update released when using the MonthView control.
This is fantastic! I've been beating my head against the wall on an vb6 app trying to get it to load in the ide under windows 8.1 .... mscomctrl.ocx fails to load and though I''ve searched for a working solution I can't get any of them to work for more than a day or so. This looks pretty promising.
I'm hopeful this OCX help me get back on track. For any of you considering moving from xp to Windows 8.1 ... save yourself the frustration and stay on or upgrade to Win 7. It was a huge mistake for me to even try.
Great work! Bug report: seems to be something wrong with the statusbar control in the latest OCX version.
VBCCR10
Run-time error '91':
Object variable or With block variable not set
This message appears and won't close (or the IDE crashes).
I loaded in Vb5, ersed some lines in cls files as usual (vb5 can't regognize that, was vb6 flags), no missing of the reference to tlb, so press F5 and that happen:
Attachment 114289
why???