Search:

No problem and thank you for the great codes of yours !

(Next time I will look for known issues :p)

Here is what crashes :


Private Function FindFirstFileNt(ByVal strDirectory As String, bytBuffer() As Byte) As Long
[...]
' THIS LINE :
RtlFreeUnicodeString strUnicode
[...]

If I quote it,...

Ok, it crashes there :



Private Sub LVLoadFolderEx(ByVal sPath As String, Optional bLoadFID As Boolean = False, Optional bFallbackPresent As Boolean = False, Optional siFallback As...

To be comlete, that's what I did to get the log :


private Sub PrintLog(s As String)
Dim n As Long
n = FreeFile
Open "d:\test\test.txt" For Append As #n
Print #n, s
Close #n...

Here is the 'log' I get. When launched from IDE with Shell, the program (Demo\ShellBrowse-v111-RC1-Std01.exe) crashes after the last line :

UserControl_Initialize
DebugAppend UCSB Initialize...

The code you provide is already set like that, I did not touch anything.

Yes I tried with my own programs which use your ucShellBrowse.

I have investigated a bit further.

Looking in ucShellBrowse.ctl I remerbered that I had to make changes to make it work in the...

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As...

With this code :

Option Explicit

Private Sub Form_Load()
Shell "D:\Tests\ucShellBrowse\Demo2\Project4.exe", vbNormalFocus
End Sub

Nothing happens when run in IDE, but if I compile,...

Hi !
Everything works for me except when I use Shell instruction to launch a program using ucShellBrowse.

For example, when I compile Demo\ShellBrowseDemo.vbp or Demo2\Project1.vbp, I can use the...

Thanks a lot. Yes you're right, I had only changed mTDSample.bas. New version is fine. Cheers.

Sorry, my bad, I hadn't upgraded OLEGuids.tlb

Hi,
I just extract the files in my VBCCR folder and I can't compile the new version ComCtlsDemo.exe , I get an error in VTableHandle.CallByDispId function on ", pDispParams As...

Thank you very much. Note that I had to delete all the 'PtrSafe' to test it on my VB6.

I don't know, but maybe you have to Replace (') with ('') (double ')...

Ooops, sorry, silly me. You're right I thought it was index.
Thanks a lot.

Hi,
I can't use some shell32/imageres icons. For example number 228 in imageres which is "update" (double circled arrows) does not display. I tried all icons in a loop from 0 to 328 and lots of...

I use LoadIcoFile and IconToHICON which you provided in mTDSample.
I am under Windows 11 and I encounter what I describe above (#216)

Now with the changes you suggested, it works. Thank you.
...

Hi,
With the demo, I try to use an icon file for the buttons but I only get 32x32 icons. The 16x16 is stretch to 32x32. Any idea ?

Here is what I've done :


Private Sub Command16_Click()
Dim...

Maybe I will make mDefHighPerfMode a variable :


'Private Const mDefHighPerfMode As Boolean = True
Private mDefHighPerfMode As Boolean

and use IsIDE to set its value.


Private Sub...

I have only tested the .CTL


' * ucShellBrowse v11.2 *
' * Shell Browser Control *...

Thank you for your help.

It is the same behaviour with HighPerformanceMode = False. The IDE closes when the program reaches the Function FindFirstFileNt where RtlFreeUnicodeString strUnicode...

Hi,

All the demos of ucShellBrowse don't work on my PC with Windows 11. (I think it work on my old PC with Windows 7).
I have to comment the line :

' RtlFreeUnicodeString strUnicode
in the...

Hi Krool,

I get a problem with the Dir Function in the Common.Bas

I've got 2 PCs, PC1 runs Windows 7 and PC2 runs Windows 11.

When in the IDE I do


debug.print...

Your code is so clever! It is really useful to me.

Thank you

Poposal for French



Select Case TextID
Case cdUIT_frmColorDialog_Form_Caption
Text = "Sélection couleur"
Case cdUIT_ColorSelector_chkFixedPalette_Caption
...

Hi,
I’ve got difficulties to print a RichTextBox on a printer.



Printer.CurrentX = 800
Printer.CurrentY = 800
Printer.Print "x"

RichTextBox1.PrintDoc Printer.hDC,...

This is a piece of an old code that might help :



Dim OoServiceManager As Object
Dim OoDesktop As Object
Dim OoDocument As Object
Dim OoFeuille As Object

Private Sub saveods()

Génial, cela fonctionne, un énorme merci. :)

Thank you very much, you rock.

Thanks. I knew this way but I was looking for a solution without using Adobe Reader

Anyway, thanks again.

Hi,
Thanks a lot for your code. My problem is that when printing, it is in low quality. Is there a way to define print quality ?

La qualité d'impression est comme floue par rapport à une...

Thank you, very interesting and useful code!

Hello,
With the latest version, do we have now to remove this line from our projects :
Call ComCtlsInitIDEStopProtection

Thank you