String functions for VB6 to handle BSTR strings with surrogate-pairs
Ok, I just knocked this out today. I've now tested fairly well, including edge conditions, so I'm done unless someone finds a bug. Others are also certainly willing to test and report any problems. For...
View ArticleClik here to view.
Pure VB6 Multithreading example with both a Standard EXE and a Standalone...
UPDATE: The fourth post below contains an example of this same project but with a Standard EXE instead of an ActiveX EXE! This project is a standalone ActiveX EXE application that shows how to create...
View ArticleClik here to view.
VB6 Link-Label-Widget with colored KeyWord-rendering
Since it recently came up - here an appropriate Demo with a small Widget-Class, which implements this (in cwLinkText.cls). Here is what it produces (the colored KeyWords show a "Hand-Cursor" and are...
View ArticleCurrency Problems
I use this to get a value as signed long, Code: Public Function Signed(A) As Long Dim p p = Fix(CDec(A)) Signed = MemLong(VarPtr(p) + 8) End Function Its ok, but this has a correction. The...
View ArticleClik here to view.
IOCP Server - VB6
The attached server program is my first attempt at using IOCP {Input Output Completion Port). It is based on one submitted by xiaoyao, but I am not sure who deserves the credit as it was a repost. To...
View ArticleClik here to view.
HOOK DllFunctionCall Maybe it can be used to make wrappers for multiple DLLS
If a program needs 1 EXE plus 5 DLLS, perhaps using this method, you can put all DLL API calls, JMP jump to the memory resource DLL address, realize multiple files bundled into 1 EXE. There are many...
View Articlevb6 call dll api in other folder
Code: Private Declare Function Add Lib "AComDll_Thread" (ByVal A As Long, ByVal B As Long) As Long Private Sub Form_Load() Dim DllPath As String, NowPath As String DllPath = App.Path &...
View ArticleClik here to view.
vb6 edge webview demo by IUnknown，without rc6.dll
This is just a simple example to open a URL. More can be done with TLB files or better dynamic lightweight COM interfaces. Code: If CreateCoreWebView2EnvironmentWithOptions(0&, 0&, 0&,...
View ArticleClik here to view.
vb6 edge webview2 demo by IUnknown，without rc6.dll
This is just a simple example to open a URL. More can be done with TLB files or better dynamic lightweight COM interfaces. Code: If CreateCoreWebView2EnvironmentWithOptions(0&, 0&, 0&,...
View ArticleClik here to view.
vb6 webview2(Edge-Chromium) by IUnknown WebView2Loader.dll
download webview sdk *.nupkg you can find: webview.tlb , WebView2.idl WebView2Loader.dll https://globalcdn.nuget.org/packages....1774.30.nupkg https://learn.microsoft.com/en-us/mi...s=dotnetcsharp...
View ArticleClik here to view.
vb6 webview2 by IUnknown WebView2Loader.dll-Edge-Chromium
download webview sdk *.nupkg you can find: webview.tlb , WebView2.idl WebView2Loader.dll https://globalcdn.nuget.org/packages....1774.30.nupkg https://learn.microsoft.com/en-us/mi...s=dotnetcsharp...
View ArticleClik here to view.
All Combinations of a String
This is not all my code. Found it on internet and made changes to meet my needs. Works really good. Attached Images Attached Files Combinations String.zip (3.2 KB)
View Articleexcel vba Webview2 Demo(edge Chromium)
Code: 'need rc6.dll Option Explicit Private Declare Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As Object, phwnd As Long) As Long Private Declare Function ShowWindow Lib "user32"...
View ArticleClik here to view.
Demo: Fill GDI+ path with scaled texture image
I had a need for this and noticed that there isn't much information about how to fill a GDI+ path with an image which is scaled or stretched to fit said path. Plenty of simple ways to fill a path with...
View Articlesearch file or search file content,Everything SDK For vb6,vba
Everything VBA SDK https://www.voidtools.com/forum/down...le.php?id=1087 Everything32.dll down from: https://www.voidtools.com/Everything-SDK.zip VB6 search file body by everything.exe-VBForums...
View ArticleTimerEx for vb6,vba, Timer in vb6 Class
TimerEx.cls Code: Option Explicit Dim DoTimes As Long Dim m_Interval As Long, m_Enabled As Boolean, lngTimerID As Long Public Event Timer() Sub TimerProc() RaiseEvent Timer End Sub Public Property...
View ArticleClik here to view.
Optical Character Recognition (OCR) With Tesseract3
I needed to perform OCR on values selected out of a larger image by users one-at-a-time, and that led me to Tesseract 3 (there are more recent versions, but I I found V3 first and it worked well enough...
View ArticleGet Class Function Address,vba x64 call by address,CallWindowProc
Code: Declare PtrSafe Sub CopyMemoryX64 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr) Dim ClassA As New Class1 Dim Address1 As LongPtr...
View ArticleDoes VB6 ReDim Preserve cause memory reallocation?
Does ReDim Preserve cause memory reallocation? The original array has 1000 members, if you want to change it to 998. Should not re-allocate all the memory? What if it is changed to 1002? Code: dim...
View Article[VB6] Extended InStr-Function
Here's a small function i use extensively when parsing strings. Arguments: Source = The string to search in Delimiters = The single Delimiters as a String we're searching for LeftToRight = The...
View Article