Search:
Type: Posts; User: Crapahute
Search:
Search took 0.06 seconds.
-
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
|
Click Here to Expand Forum to Full Width
|