VB6 Monitoring/Manipulating clipboard example, clipboard viewer
Code: Dim ClipSetCount As Long Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText Text2.Text End Sub Private Sub Form_Load() SetClipboardViewer Me.hwnd Show...
View ArticleVB6 InlineAssembler,asm bind to vb6 function
Code: CDeclTrampolin.vbp [InlineAssembler] FileName=CDeclTrampolin.ia Code: Private Declare Function LoadLibrary Lib "kernel32" _ Alias "LoadLibraryW" ( _...
View ArticleVb6 cdecl wrapper for SQLITE3. DLL
The latest version has perfect support for running in the IDE, no need to press CTRL+F5 In VB6 ide, you need to press CTRL+F5 to run, or press F5 twice before running. After compiling it into EXE,...
View Article"Open" TreeView Helper Procedures thread
I'm starting this thread as a place where people might post "TreeView helper procedures". I'm just making extensive use of TreeView these days, and have developed quite a library of "helper...
View ArticleVB6 Creating Virtual Disk Source Code with API
Without subst.exe DefineDosDevice(0, sDriveLetter, sMountPath) DefineDosDevice(DDD_REMOVE_DEFINITION, sDriveLetter, sMountPath) Code: Private Sub Command3_Click() DefineDosDevice 0, "M:",...
View ArticleClik here to view.
[VB6/Win8+] Using DirectX to show emojis with color
ColorEmojiDemo With phones and web browsers, people are getting used to seeing emojis with color everywhere. But disappointingly, the basic Windows GDI functions do not support these, so in VB6 (and...
View ArticleUsercontrol Listbox by VB6 RC6+RC6Widgets
CaList1.Width = CaList1.Width / 2 How to add controls before resizing and deleting items? Add item? How to delete the controls drpList and Panel in order to redraw the modified LISTBOX? Unsupported...
View ArticleShowPicFromStream by vb6,Show Picture from Byte array
I have found many ways to load images in formats such as PNG, and I don't know which one is the fastest. Interested friends can test it out. Code: Dim Gdi1 As New ShowPicStream Private Sub...
View ArticleClik 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
Environ("PROCESSOR_ARCHITECTURE") x86, in vba x64,value=AMD64
View ArticleClik here to view.
How do I stop the "Properties" from disappearing?
I experience something strange since a few days: The properties window is gone, also from the context menu. Usually, when I right-click a control, it offers "Properties". Clicking this item would open...
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 Article