Search:

Let me send you an invitation for https://github.com/VBForumsCommunity

(Anyone can send me a direct message with one's account on github.)

cheers,
</wqw>

No, this is not what the original code does and besides you cannot implement user-controls in Excel (or VBA) to test it.

The original MouseMove event is a handler in a user-control so pvSetCapture...

No, it does not.

The original purpose of SetCapture/ReleaseCapture API functions is to be able to receive WM_MOUSEMOVE on a hwnd (so called capturing window) even when mouse pointer is outside its...

https://i.giphy.com/3xkNUy3Vh8QbPmJZjK.webp

Keep in mind that StdPicture persistence was enhanced in subsequent version of Windows so there is a possibility of a user-control picture saved at design-time on Win7 to not load at run-time on...

8 is pretty small size for a MAC and thats why you can get away with Currency here. The array is not passed on the stack, it’s just a pointer and obviously you have to declare the Currency ByRef...

You still have to initialize VB runtime on exported functions the way it’s done on thread entry proc in multi-threading scenarios. I mean this approach will likely have the same issues with...

Are you operated from sense of humor or your understanding of English language is lacking?

Satire -- go check the meaning of this word. And it's not your work which is getting ridiculed here if...

They probably don't want to waste their time but instead work and polish all of their submissions to CodeBank. . . Don't stop these people from contributing here with your half-baked codes :-))
...

This is from Visual Studio debugger.

In VB6 project options you can check Create Symbolic Debug Info and select No Optimization level if you don't want to deal with weird ASM sequences then start...

What is the primary key of xtblUsersAndRates? Do you have other candidate keys (i.e. UNIQUEs) on xtblUsersAndRates like on (relJobControl, relProjectControl, EmpID, Team) you are using for look up?...

You can peek at codegen at callsite as done by the native compiler here: https://www.vbforums.com/showthread.php?903302-How-to-call-a-Procedure-by-Name&p=5639104&viewfull=1#post5639104

This or make all methods Friend (which is faster than Private apparently which suck at callsite codegen)

Btw, in TB you have module attribute for its procedures to be excluded from global symbol...

Btw, something interesting from yesterday: VBA-FastDictionary

This works there:


Option Explicit

Private Sub Form_Load()
With New Dictionary
.Add vbNullString, 42

Possibly useful link: https://wixtoolset.org/

I very much doubt there is a quick and easy way to customize this short of recreating (duplicating) the dialog to include the new control at certain position.

Btw, using a SmartCard (like Yubikey tokens) requires entering PIN every time signtool.exe is invoked which apparently cannot be used unattended as this pops up a entry screen in the middle of the...

Do you need advise on which certificate provider/reseller to use or actual tools to do the code-signing?

There aren't many options on the tools: signtool.exe is the standard one and osslsigncode...

Weird! For private methods it does codegen VTable calls.

This class:


Option Explicit

Public Function Init() As Long
Test1
Test2

Btw, there is nothing this Add-in does that cannot be done directly with LinkSwitches setting without fiddling with linker replacement.

You are currently using certmgr.msc (not .exe) to view certificates in LOCAL_USER certificate stores.

You can use certlm.msc to view certificates in LOCAL_MACHINE certificate stores.

There are...

Also note that Int in Int(Rnd * 20) is important. Using CLng or leaving it without explicit conversion (i.e. simple Format(Rnd * 20, "00")) will result in bias in final distribution with both end...

This sounds logical but VB6 leaves some internal VBProject structures in final binary which allow traversing modules/procedures and finding offset/address is current process. Another thing is that...

Btw, you can typedef a long as VBHRESULT and use it instead of HRESULT in IDL source so to leave a vestige of the crime you comitted :-))

This happens by pressing Command1 in my repro above or some other way?

I've been pressing it continuously for 5 minutes already but it stays at 29 here.

cheers,
</wqw>

Your code does not leak anything here. Here is my best effort to recreate the form you are testing with: NoLeak.zip -- there are no leaks both in IDE and compiled.

I already told you -- ZIP your...

Btw, IsWin11OrGreater = (lngMajor >= 10& And (lngMajor = 10& And lngBuild >= 22000&)) is also incorrect (needs an OR)

cheers,
</wqw>

Posting attachments in these forums is like an IQ test -- few succeed.

cheers,
</wqw>

Most annoying for anyone coming from Java world :-))

Btw, it says max 39 characters here. VB6 is chopping off ~10% for whatever reason.

cheers,
</wqw>

Post a complete ZIP with stubbed project demonstarting the GDI leak for anyone to make advises or to find workarounds.

Currently your question is non-actionable. Yes, we know it's possible to leak...

List of build numbers: https://www.gaijin.at/en/infos/windows-version-numbers

Btw, on net stop winmgmt in admin prompt I get a "The Windows Management Instrumentation service could not be stopped" message so it's not that simple to disable WMI but it makes sense for systems in...

1. You can name/rename columns in SQL like this: SELECT myuser AS OtherName, case(...) AS SecondColumn FROM ...

2. In ADODB.Recordset you can access Fields by key or by *ordinal* like this:...

Shell command will not be enough in your case.

Check out this previous thread on how to batch requests to exiftool:...

With ActiveX DLL in VB6 you *don't* have to do any hacks as there is no "entry point problem" at all. You just add classes to your project and put GetFileText, GetFileBinary, GetFileBinaryB as...

Are you creating Standard DLL?

ActiveX DLL is the "regular" type of DLL that VB6 can create without any of the troubles you have gone through.

Edit: Btw, what does "Ask" prefix in the title...

> For some reason today, the speed of the subroutine is now just 15 seconds, on this old desktop, for 7300 records, go figure.

You do realize how ridiculously slow this is? 7300 records are how...

Try this

Private Sub Form_Load()
Const PageRange = "1-b"
Dim vElem As Variant
Dim oPages As Collection
Dim sError As String

Set oPages =...

Btw, after calling TokenizePages when having Error output parameter populated it's up to you to discard any results of the procedure and show this error message or show a warning with "Do you want to...

This is not worth it. Handling wrong input requires extra code. Just treat "1to3:9~7" as pages "1 3 9 7" the way it currently does and leave users be creative with input. Is it any inconvenient?
...