VBForums

how to close Access aplication if is opened

luca90 — Sat, 18 Jul 2026 05:19:15 GMT

How to close Access aplication if is opened?

Registry.CurrentUser.DeleteSubkey issues VS2026 VB10

scot-65 — Fri, 17 Jul 2026 16:59:20 GMT

Given the following:

Code:

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyTestKey", "MyTestKeyValue", "This is a test value.")

I wish to do one of the following:
a. Delete "MyTestKeyValue" or
b. Set "This is a test value" to Nothing.

This is in part to reset settings such as Background Color, Width, Height, Position-x, Position-y (all are REG_DWORD).
DeleteSubKey is not working. Error says key does not exist.
SetValue to Nothing also throws errors.

Thanks in advance.

"Concurrency violation: the DeleteCommand affected 0 of the expected 1 records."

Richard Friedman — Wed, 15 Jul 2026 20:42:54 GMT

I have an array of DataTables and Adapters

In this instance I have assigned one of the tables to a unique DataTable varable "rs" which is associated with the giLastTableIndex index as appears in the update command below

I wish to delete a row and update the DataTable

Code:

Dim rRow As DataRow



For Each rRow In rs.Rows

                                With rRow

                                        If .Item("DVN_SHAFT") = sDVN_SHAFT And .Item("DP") = fDP And .Item("PR_ANG") = fPR_ANG And .Item("DVR_N_T") = fDVR_N_T And .Item("DVN_N_T") = fDVN_N_T And .Item("DVR_AD") = fDVR_AD And .Item("DVN_AD") = fDVN_AD Then

                                                rRow.Delete()

                                                Exit For



                                        End If

                                End With

Next rRow



iRet = gda(giLastTableIndex).Update(gdt(giLastTableIndex))

The update results in the concurrency violation

I have looked for instances where I am holding the DataTable open with another variable and I do not believe I have any.

Suggestions?

[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,

Extract date from string

luca90 — Wed, 15 Jul 2026 08:10:46 GMT

I just have myvar="Fri, 05 Jun 2026 08:36:39 GMT"

how to transform in:

dt=05/06/2026

New strange behavior

wes4dbt — Sun, 12 Jul 2026 20:29:16 GMT

This has happened three days in a row now.

I write something using quick reply. Click "Post quick reply" , cloudflare askes me to verify I'm a human, I check the box, it thinks for a couple of seconds and then goes to a blank screen. When I restart VBF the post isn't there.

Luckily, I can use the post autosave and it restores the post. Then when I save the post it works fine. Never had this issue before.

I'm using Chrome.

Project to run IA locally in VB.NET

Thierry69 — Sun, 12 Jul 2026 11:52:26 GMT

LocalIAdotNet
LocalIAdotNet is a fully local Windows Forms application written in VB.NET for downloading, running, and comparing local large language models.

Features
Analyzes CPU, RAM, GPU, VRAM, instruction sets, and free disk space.
Recommends compatible GGUF models for the current computer.
Downloads models from Hugging Face with resume support.

Installs and runs llama.cpp automatically.
Supports CPU, Vulkan, and CUDA backends.

Provides a local chat interface with streaming responses.
Displays total response time, estimated input tokens, estimated output tokens, and output tokens per second.
Supports PDF, image, Excel, Word, PowerPoint, CSV, JSON, XML, HTML, SQL, source code, and plain-text attachments.
Extracts text locally from supported documents.
Renders scanned PDF pages as images for compatible vision models.
Detects already installed runtimes and models to avoid unnecessary downloads.
Supports runtime discovery for llama.cpp, Ollama, LM Studio, vLLM, Jan, GPT4All, Docker Model Runner, and Apple MLX.
Requirements
Windows 10 or Windows 11, 64-bit.
Visual Studio 2022 with the .NET desktop development workload.
.NET 8 SDK.
Internet access for restoring NuGet packages and downloading runtimes or models.
Build
Open LocalIAdotNet.sln, select Release and x64, then build the solution.

You can also run:

build.cmd
To create a self-contained Windows x64 publication:

publish-win-x64.cmd
The published application is generated under the standard bin\Release\net8.0-windows...\win-x64\publish folder.

First run
Start LocalIAdotNet.
Click Analyze PC.
Review the automatically ranked model list.
Install or select a runtime.
Download a compatible model if required.
Start the model.
Open the Local chat tab and send a message.
Downloaded content is stored under:

%LOCALAPPDATA%\LocalIAdotNet
Supported document formats
Local text extraction
PDF files containing a text layer.
XLSX and XLSM workbooks.
DOCX documents.
PPTX presentations.
TXT, CSV, MD, JSON, XML, HTML, SQL, VB, CS, PHP, and similar text-based files.
Vision analysis
With a compatible multimodal model, LocalIAdotNet can analyze:

PNG, JPG, JPEG, BMP, GIF, TIFF, and WEBP images.
Scanned PDFs or PDFs without an extractable text layer.
By default, only the first pages of a scanned PDF are rendered to limit memory use and context size.

Legacy XLS, DOC, and PPT files must first be saved in modern Office Open XML formats.

Privacy
After the initial runtime and model downloads:

Inference runs on the local computer.
Attached documents remain on the local computer.
The embedded server listens only on 127.0.0.1.
Documents are not uploaded to Hugging Face or GitHub.
A Hugging Face token is used only when a repository requires authentication or license acceptance.
The Hugging Face token is currently stored in the local settings.json file. For production distribution, consider protecting it with Windows DPAPI.

Local API
When a llama.cpp model is running, llama-server exposes an OpenAI-compatible endpoint:

http://127.0.0.1:18456/v1/chat/completions
The port can be changed in the Settings tab.

Example request body:

{
"model": "local-model",
"messages": [
{
"role": "system",
"content": "You are a precise local assistant."
},
{
"role": "user",
"content": "Summarize this text."
}
]
}

Acceleration
The application recommends:
CUDA for supported NVIDIA GPUs.
Vulkan for other compatible GPUs.
CPU when no suitable GPU backend is available.
If a CUDA package is not available for a specific llama.cpp release, the installer can fall back to Vulkan or CPU.

Limitations
Hardware recommendations are estimates and should be validated with real benchmarks.
WMI may report inaccurate VRAM values for some non-NVIDIA GPUs.
Large documents are truncated to protect the context window.
Password-protected documents cannot be read.
Local models can produce incorrect information; important output should be reviewed.
A built-in vector database and RAG knowledge base are not yet included in this version.

Next step, attaching RAG

Attached Files

LocalIA.zip (53.5 KB)

The character "1" appears to be handled differently with the Print statement

Ben321 — Sun, 12 Jul 2026 07:09:01 GMT

Unlike any other character, including all the other decimal digit characters, is handled weirdly by the Print statement, in what appears to be a bug. If you have the code:

Code:

Print "1"; "1"; "1"; "1"

Print "1111"

Those two lines of code SHOULD produce identical outputs. However (at least with VB6's default Font for Form1, which is Arial) the result is that the Print statement with 4 concatenated "1" characters is used the digits are displayed as separated slightly more from each other, compared to when the single string "1111" is displayed via the Print statement. I've tried the other numbers, and even skinny letters like "l", but none of those produce this same discrepancy. So I'm guessing this is a bug.

[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 on Windows11

mms_ — Fri, 10 Jul 2026 19:40:19 GMT

HAD to update work computer OS from Win10 to Win11.

While everything seems to work ok with existing programs and IDE,
one thing I can see is wrong is:
when I place a new control on a form, I can see on my blank laptop monitor the
"outlines" of these controls moving.
(my setup is laptop with 2 additional monitors)

Can this moving "artifact" be eliminated somehow?

btw: I really don't like Windows11

delete all dir and file but not the dir CSV

luca90 — Fri, 10 Jul 2026 16:20:14 GMT

The path is:

C:\Lavori_Vb6\GARDA_INF\CSV\

how to?

Attached Images

Extract date from string

luca90 — Fri, 10 Jul 2026 09:56:07 GMT

I just have myvar="gi_db_comuni-2026-07-10-b893f.zip"

how to get date?

note:
before and after the date are lenght variable

Important news for twinBASIC

VB6 Programming — Wed, 08 Jul 2026 16:08:30 GMT

Big news for twinBASIC!
TWINBASIC Ltd. has secured strategic investment to accelerate development and expand the team...

TWINBASIC LTD Secures Strategic Investment to Advance the Future of BASIC

Published 7th July 2026

TWINBASIC LTD today announced the successful completion of its first external investment round, securing strategic funding to accelerate development of the twinBASIC platform, expand the engineering team, and support the company's long-term vision... read more

HOW to decode this string in ascii code

luca90 — Wed, 08 Jul 2026 08:27:36 GMT

i just have decoded only:

\u00E8="è"

...
\u00E8
\u00E0
\u0027A
\u0027O
\u00F9
\u00E9r
\u00E8r
\u00E9
\u00C8t
\u00F4n
\u00E7a
\u00E9
\u00EAm
\u00E9m
\u00E8s
\u0027
\u00F2
\u00EC
\u00E8y
\u0027E
\u0027I
\u00F9
\u00E0
...

in other case i use this code to return value:

...
URL = "https://situas-servizi.istat.it/publish/reportspooljson?pfun=51&pdata=17/03/1861"

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "GET", URL, False
xmlhttp.send

STRINGA= xmlhttp.responseText

Dim F As Integer
F = FreeFile
Open "C:\TABULATI\ISTAT_COMUNI.txt" For Output As #F
Print #F, STRINGA
Close #F

...

For AN idea see the First comune Is Agliè... In txt file

Attached Files

ISTAT_COMUNI.zip (162.6 KB)