Clik here to view.
Hand-rolled windowless Button demo.
An interesting topic about windowless buttons came up recently and it gave me the idea for this demo. Most people are used to controls having a window handle, a window procedure and a device context...
View Articlevb6 /vba call .net com object CLRHost
GitHub - jet2jet/vb2clr: The helper class for Visual Basic for Applications (VBA) 7.0, providing access to CLR (.NET Framework) assemblies and classes. Code: https://github.com/jet2jet/vb2clr Visual...
View Articleget process exe is x64 or x86
Code: dim s as string s=Environ("PROCESSOR_ARCHITECTURE") if S="x86" THEN MSGBOX "32BIT" ELSE MSGBOX "64BIT" END IF 32bit value="x86" 64bit vba,value=AMD64 IT'S UESED FOR VB6,VBA64,TWINBASIC,FREEBASIC
View ArticleClik here to view.
Pure VB6 Multithreading example with a standalone ActiveX EXE application
This project is a standalone ActiveX EXE application that shows how to create multiple threads to perform lengthy tasks and then communicate the results via "event-like" callbacks. In this example, we...
View ArticleClik 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 Articlevb6 dynamic add control vs Freebasic
Function: vb6 dynamic add control Code: Private Sub Form_Load() 'Add: PICTURE1 control, button control 'Example: Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1 Dim NewText1 As TextBox Set...
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 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 Article