Clik here to view.
Assembly in VB6: The Basics
I recently had a discussion with another member in which he indicated that assembly language has no real beginner friendly resources for one to pick it up, an assessment I agree with. I've always...
View ArticleVB6 Message Loop Wait For Form Closed
Code: Private Sub Command1_Click() Dim f As Form2 Set f = New Form2 'f.Show 1 ShowWindow f.hwnd, 5 WaitFormToClose f.hwnd Debug.Print "Form Cloesed OK" & "," & Now End Sub Code: Declare...
View ArticleClik here to view.
[VB6] SendMessage - 64 bit compatible.
Hello eveyone. I've added SendMessageW64 function to this module. Now you can pass a message to 64 bit applications and get 64 bit result. This is the example where you can obtain the treeview nodes...
View ArticleClik here to view.
vb6 Tga File To Alpha Png,Create transparent channel PNG image
Code: Dim Tga As String, Png As String Tga = "test32bpp_type02.tga" Png = App.Path & "\#tga_TO_Alpha.png" TgaToAlphaPNG Tga, Png MsgBox "ok-" & Png, , Tga for this [RESOLVED] Flipping a PNG...
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 ArticleVB6 Transparent Textbox MODULE
MakeTransparentTextbox Text1 HTML Code: Attribute VB_Name = "ModTransparentTextbox" Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Const...
View ArticleString 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 Article