VBForums - CodeBank - Visual Basic 6 and earlier

[VB6/TB] TC6 (TwinClient 6) — SQLite for VB6 and TwinBasic

wqweto — Wed, 15 Jul 2026 16:40:29 GMT

TC6SQLite is another "em dash repo" namely Claude's reimplementation of the SQLite subsystem of RC6 as a single Ax-DLL.

Note that TB's x64 port is not ready i.e. still uses winsqlite3.dll and does not embed sqlite in final Ax-DLL.

cheers,

[VB6] FlexGrid to XLSX (and CSV/PDF) Exporter — no Excel installation required

Eduardo- — Sat, 11 Jul 2026 22:13:00 GMT

Download from GitHub.

This code was made mainly by Claude Sonnet v4.6 and v5.0, but also with some collaboration from Gemini, ChatGPT, DeepSeek and off course from me.
It exports any FlexGrid-family control directly to a real .xlsx file**, without going through Excel automation and without any third-party XLSX library. It writes the OOXML (zip + XML) format directly.
For the zip compression it uses wqweto's cZipArchive.cls class.
Optionally, it can also output PDF files. For that feature to work, it needs BSPrinter ocx accessible for the project (whether registered or through SxS). When it is available the user will see the PDF option in th save dialog.

Supported grids

MSFlexGrid
MSHFlexGrid
VSFlexGrid
VBFlexGrid
(should work with any other API-compatible FlexGrid variant — it only relies on the standard TextMatrix/CellFontAttributes-style properties that all of these share)

What gets exported to XLSX

Cell values with correct types (text, numbers, dates/times using Excel's native date system)
Fonts, colors, bold/italic/underline, per-cell alignment (including vertical)
Cell borders (from the grid's own GridLines/GridLinesFixed settings)
WrapText (from the grid's WordWrap property or embedded line breaks)
Row heights / column widths matched from the grid
Frozen panes (matching the grid's fixed rows/columns), optional.
AutoFilter, optional.
Merged cells — detected from the grid's own MergeCells/MergeRow/MergeCol state,

including simultaneous row+column merging
Embedded pictures (CellPicture), with correct anchoring for every CellPictureAlignment value (Stretch, and all 9 combinations of Left/Center/Right × Top/Center/Bottom), so images resize/reposition correctly if the user later resizes rows or columns in Excel

Optional extras

CSV export, with proper UTF-8 + BOM handling and locale-aware separators
PDF export, but only if the optional BSPrinter30.ocx (BSPrinter component) is registered on the machine — the exporter detects this at runtime and only offers the PDF option if it's available. No PDF dependency is required otherwise.

Under the hood

No dependency on Microsoft Excel being installed — it writes the .xlsx zip/XML structure directly.
No typelib required.
Pure VB6, no ActiveX Data Objects required for the export itself.

Actual grid:

Excel export:

PDF export:

Download from GitHub.

Attached Images

[VB6] czWebview — Full-Featured WebView2 UserControl (No OCX, No Registration)

cyberzilla — Sat, 11 Jul 2026 09:06:55 GMT

czWebview — Full-Featured WebView2 UserControl for VB6

Embed modern web content (HTML5, CSS3, ES6+) in your VB6 applications using the Microsoft Edge WebView2 Runtime. Zero external dependencies beyond a single DLL, no OCX registration required — just add the source files to your project and go.

GitHub Repository • MIT License

Why another WebView2 control?

Existing solutions for embedding a modern browser in VB6 are either commercial, require OCX registration, or don't expose enough of the WebView2 API. czWebview takes a different approach:

Pure source-code embed — just add one .ctl, one .cls, and one .tlb to your project. No registration, no installer headaches.
Complete API surface — 44 callback interfaces, 29 events, 34 public methods, and 48 properties. This matches (and is inspired by) wqweto's excellent cWebView2 class.
Synchronous & Asynchronous — Execute JavaScript and get results synchronously via a message pump, or go fully async with event-based callbacks.
Bidirectional JavaScript Bridge — PostWebMessage / chrome.webview.postMessage for clean VB6 ? JS communication.
Host Objects — Expose your VB6 COM objects directly to JavaScript.

Feature Highlights

Navigation — Navigate, GoBack, GoForward, Reload, Stop, NavigateToString (render HTML directly), synchronous NavigateSync
JavaScript Execution — ExecuteScript (sync with JSON result), ExecuteScriptAsync, AddScriptToExecuteOnDocumentCreated
Print & Capture — PrintToPdf, ShowPrintUI (browser or system dialog), CapturePreview (screenshot as PNG/JPG byte array)
Cookie Management — GetCookies, AddOrUpdateCookie, DeleteCookies, DeleteAllCookies
Downloads — DownloadStarting event with custom file path support
DevTools Protocol — CallDevToolsProtocolMethod for direct CDP calls (device emulation, network throttling, etc.)
Resource Filtering — AddWebResourceRequestedFilter + WebResourceRequested event for ad-blocking, request interception, etc.
Virtual Host Mapping — Serve local files via SetVirtualHostNameToFolderMapping (e.g., map "app.local" ? App.Path & "\www")
Authentication — BasicAuthenticationRequested event
Permissions — PermissionRequested event (camera, mic, geolocation, etc.)
Script Dialogs — ScriptDialogOpening event (intercept alert/confirm/prompt)
Memory Management — TrySuspend / ResumeFromSuspend for background tabs
Browsing Data — ClearBrowsingData (cache, cookies, history, passwords, and more)
UI Control — Mute/unmute audio, zoom control, user agent customization, status bar, full-screen detection, context menu events

Requirements

VB6 IDE (SP6 recommended)
WebView2 Runtime — pre-installed on Windows 10 (1803+) and Windows 11
WebView2Loader.dll — included in the repository (~115 KB, x86)
czWebview.tlb — pre-compiled and included, or rebuild with the included compile_tlb.bat (requires Windows SDK / MIDL)

Quick Start

1. Add to your project:

Code:

Project ? Add User Control ? Existing ? select src\czWebview.ctl

Project ? Add Class Module ? Existing ? select src\czWebviewCallback.cls

Project ? References ? Browse ? select typelib\czWebview.tlb

Place WebView2Loader.dll next to your .exe (or in App.Path)

2. Handle events:
[CODE=vb6]
Private Sub czWebview1_InitComplete(ByVal Success As Boolean, ByVal ErrorCode As Long)
If Success Then
czWebview1.Navigate "https://www.google.com"
Else
MsgBox "WebView2 init failed: &H" & Hex$(ErrorCode), vbCritical
End If
End Sub

Private Sub czWebview1_TitleChanged(ByVal Title As String)
Me.Caption = Title
End Sub

Private Sub czWebview1_NavigationCompleted(ByVal IsSuccess As Boolean, ByVal WebErrorStatus As Long)
lblStatus.Caption = IIf(IsSuccess, "Done", "Error: " & WebErrorStatus)
End Sub

Private Sub czWebview1_WebMessageReceived(ByVal Message As String, ByVal IsJSON As Boolean)
Debug.Print "From JS: " & Message
End Sub
[/CODE]

3. JavaScript Bridge:
[CODE=vb6]
' VB6 ? JavaScript
Dim result As String
result = czWebview1.ExecuteScript("document.title")
' result = """My Page Title"""

' Send message to page
czWebview1.PostWebMessageAsString "Hello from VB6!"
czWebview1.PostWebMessageAsJSON "{""action"":""update"",""value"":42}"
[/CODE]

[CODE=javascript]
// JavaScript ? VB6
chrome.webview.postMessage("Hello from JavaScript!");

// Listen for messages from VB6
chrome.webview.addEventListener('message', function(e) {
console.log('From VB6:', e.data);
});
[/CODE]

More Examples

Screenshot to file:
[CODE=vb6]
Dim baPng() As Byte
baPng = czWebview1.CapturePreview(czCaptureAs_PNG)
Open "screenshot.png" For Binary As #1
Put #1, , baPng
Close #1
[/CODE]

Save page as PDF:
[CODE=vb6]
If czWebview1.PrintToPdf("C:\output\page.pdf") Then
MsgBox "PDF saved!"
End If
[/CODE]

Cookie management:
[CODE=vb6]
' Add a cookie
czWebview1.AddOrUpdateCookie "session", "abc123", ".example.com", "/", , True, True

' Get all cookies for a URL
Dim cCookies As Collection
Set cCookies = czWebview1.GetCookies("https://example.com")
Dim cItem As Collection
For Each cItem In cCookies
Debug.Print cItem("Name") & " = " & cItem("Value")
Next

' Clear all cookies
czWebview1.DeleteAllCookies
[/CODE]

Block specific URLs (ad-blocking, etc.):
[CODE=vb6]
Private Sub Form_Load()
czWebview1.AddWebResourceRequestedFilter "*.ads.example.com/*"
End Sub

Private Sub czWebview1_WebResourceRequested(ByVal URI As String, _
ByVal ResourceContext As czWebView2ResourceFilter, _
Permit As czWebView2PermissionState)
Permit = czPERMISSION_STATE_DENY
End Sub
[/CODE]

Serve local files via virtual hostname:
[CODE=vb6]
czWebview1.SetVirtualHostNameToFolderMapping "app.local", App.Path & "\www", czHostResourceAccess_ALLOW
czWebview1.Navigate "https://app.local/index.html"
[/CODE]

DevTools Protocol — Emulate mobile device:
[CODE=vb6]
Dim sResult As String
sResult = czWebview1.CallDevToolsProtocolMethod("Emulation.setDeviceMetricsOverride", _
"{""width"":375,""height"":812,""deviceScaleFactor"":3,""mobile"":true}")
[/CODE]

Project Structure

Code:

czWebview/

??? src/

?   ??? czWebview.ctl               ' Main UserControl — public API

?   ??? czWebviewCallback.cls       ' Internal callback handler (44 interfaces)

??? typelib/

?   ??? czWebview.odl               ' Interface definitions (ODL source)

?   ??? czWebview.tlb               ' Compiled type library

?   ??? compile_tlb.bat             ' Auto-compile script (uses MIDL)

??? External/

?   ??? WebView2Loader.dll          ' Microsoft x86 loader (~115 KB)

??? demo/

?   ??? SimpleTest/                 ' Simple browser demo

?   ??? WhatsappBot/                ' WhatsApp Web bot demo

??? README.md

Included Demos

SimpleTest — A minimal browser with navigation (back, forward, reload, address bar). Good starting point to see how the control works.
WhatsappBot — A practical demo showing WhatsApp Web automation via JavaScript bridge. Demonstrates real-world usage of ExecuteScript, WebMessageReceived, and DOM interaction.

Architecture Notes

The control is split into two files for clean separation of concerns:

czWebview.ctl (~1,650 lines) — The public-facing UserControl. Contains all properties, methods, events, and the synchronous message pump (SpinThreadMessagePump) that enables blocking calls while still allowing COM callbacks to arrive.
czWebviewCallback.cls — Implements all 44 COM callback interfaces required by the WebView2 API. Events are forwarded to the UserControl via Friend subs.

This design keeps the callback plumbing out of your face — you only interact with the clean .ctl API surface.

Credits

Interface patterns inspired by cWebView2 by wqweto
WebView2 Runtime by Microsoft

License

MIT — use it, modify it, ship it. No restrictions.

Source code and full documentation on GitHub: https://github.com/cyberzilla/czWebview

Feedback, bug reports, and contributions are welcome! :cool:

[VB6] cWebView2 — RC6-compatible WebView2 wrapper

wqweto — Tue, 07 Jul 2026 11:40:58 GMT

This is a drop-in replacement of vbRichClient6's cWebView2 class, implemented in pure VB6 directly against the official Microsoft WebView2 COM API.

No RC6.dll dependency, no dependency on the WebView2 SDK typelib — the only redistributable is WebView2Loader.dll authored by Microsoft deployed next to your exe, targeting the Evergreen WebView2 Runtime installed on the client machine.

Additions beyond RC6 parity

Methods with no RC6 counterpart, exposed because the native plumbing is cheap and the features are frequently requested:

PrintToPdf(ResultFilePath, [SecondsToWaitForPrintComplete], [Landscape], [ScaleFactor], [PageWidth/PageHeight], [margins], [ShouldPrintBackgrounds], [ShouldPrintSelectionOnly], [ShouldPrintHeaderAndFooter], [HeaderTitle], [FooterUri]) - blocking (or fire-and-forget at 0 seconds), returns True/False, Empty on timeout.
AddBrowserExtension(ExtensionFolderPath) - installs an unpacked extension into the profile, returns the extension Id (empty string on failure). Requires BindTo's AreBrowserExtensionsEnabled:=True optional parameter - must be decided before environment creation, and all instances sharing a user data folder must agree on it.
GetBrowserExtensions() - returns a Collection of per-extension Collections (Id, Name, IsEnabled keys), keyed by extension Id. Extension APIs need a recent Evergreen runtime; on older runtimes these return empty results.
SetVirtualHostNameToFolderMapping(HostName, FolderPath, [AccessKind]) / ClearVirtualHostNameToFolderMapping(HostName) - serve a local folder as https:///... AccessKind defaults to HostResourceAccess_DENY (the mapped origin still serves its own content; other origins can't read it - Microsoft's recommended default). Mappings persist for the browser instance's lifetime: set once after BindTo, then navigate. The host name must be a bare name - no scheme or slashes.
Stop_ - cancels in-flight navigation/loading, WebBrowser.Stop style (trailing underscore because Stop is a VB6 keyword).
PostWebMessageAsString/PostWebMessageAsJson - host-to-page messaging; page script receives via chrome.webview.addEventListener('message', ...).
ContainsFullScreenElement - detect HTML fullscreen (resize/borderless the host form).
IsBuiltInErrorPageEnabled - the one base setting RC6 didn't surface.
IsMuted (get/let), IsDocumentPlayingAudio - tab audio control.
Default download dialog control - OpenDefaultDownloadDialog/CloseDefaultDownloadDialog/IsDefaultDownloadDialogOpen, DefaultDownloadDialogCornerAlignment and DefaultDownloadDialogMargin.
Profile properties - PreferredColorScheme (dark mode), DefaultDownloadFolderPath, PreferredTrackingPreventionLevel, ProfileName, ProfilePath, IsInPrivateModeEnabled.
StatusBarText, BrowserVersion - runtime/status introspection; OpenTaskManagerWindow - browser diagnostics.
CallDevToolsProtocolMethodForSession - CDP against a specific target session, same blocking semantics as CallDevToolsProtocolMethod.
SetBoundsAndZoomFactor, NotifyParentWindowPositionChanged (also called internally on resize/move), HosthWnd is now writable (re-hosting).
TrySuspend/ResumeFromSuspend/IsSuspended - release memory while in the background; TrySuspend hides the webview first (a native precondition), ResumeFromSuspend makes it visible again.
ClearBrowsingData(DataKinds), ClearBrowsingDataInTimeRange(DataKinds, StartTime, EndTime), ClearBrowsingDataAll - clear cache/cookies/history etc per eWebView2BrowsingDataKinds flags; blocking with the usual fire-and-forget at 0 seconds.
Cookie management - GetCookies([URI]) returns a Collection of per-cookie Collections (Name, Value, Domain, Path, IsSession, Expires, IsSecure, IsHttpOnly, SameSite keys); AddOrUpdateCookie(Name, Value, Domain, [Path], [Expires], ...) (zero Expires = session cookie); DeleteCookies(Name, URI) (both required - cookies are matched by name and URI natively); DeleteAllCookies.
PrintToPdfStream([settings...]) - same settings as PrintToPdf but returns the PDF as a Byte() array, no file involved. ShowPrintUI opens the browser or system print dialog.

A handful of native WebView2/WebBrowser-style events with no RC6 counterpart are also exposed, since the native plumbing is either free (already needed for something else) or fills a gap the JS-bridge-based events can't:

ContentLoading(IsErrorPage) - fires before NavigationCompleted, akin to WebBrowser's early loading moment.
HistoryChanged() - back/forward stack changed; pair with CanGoBack/CanGoForward.
WindowCloseRequested() - page called window.close().
ZoomFactorChanged() - native counterpart to the ZoomFactor property.
MoveFocusRequested(Reason, Handled) - Tab/Shift+Tab reached the edge of the web content; Reason reuses eWebView2FocusReason.
DOMContentLoaded() - the classic DOM-ready moment, between ContentLoading and DocumentComplete.
StatusBarTextChanged(Text) - hover-link/status text, pairs with the StatusBarText property.
ContainsFullScreenElementChanged() - page entered/left HTML fullscreen; read ContainsFullScreenElement to react.
BasicAuthenticationRequested(URI, Challenge, UserName, Password, Cancel) - supply credentials for HTTP basic/proxy auth via the ByRef params. Note Chromium's flow: the challenged navigation first completes with WebErrorStatus 17 (VALID_AUTHENTICATION_CREDENTIALS_REQUIRED), then the authenticated retry loads.
ContextMenuRequested(PageURI, LinkURI, SelectionText, ScreenX, ScreenY, Handled) - the native context-menu event, richer than the JS-injected UserContextMenu (which only reports coordinates): carries link/selection info and can actually suppress the browser's context menu via Handled. Deliberately simplified - no custom menu item injection/CustomItemSelected. UserContextMenu is unchanged and still fires alongside it.

cheers,

How to use pixel-art upscaler for app icons on High DPI monitors

wqweto — Sun, 28 Jun 2026 21:07:29 GMT

Thanks to Claude this project has been ported to pure VB6 implementation and it works!

Code:

'=========================================================================

'

' xBRZ 1.8 VB6 translation

'

'=========================================================================

Option Explicit

DefObj A-Z



. . . source too long so rest at https://github.com/wqweto/Xbrz/blob/master/test/mdXbrz.bas

Source code here.

cheers,