VBForums - Visual Basic 6 and Earlier

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?

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

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

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)

Looking to hire to help with my VB4.0

cal424 — Tue, 07 Jul 2026 21:24:06 GMT

Hey everyone! I am looking to hire someone to give my property management software a revamp/ideas to either convert to vb6 or to help me give it a little face lift along with some bugs that need to be addressed. Thank you for your interest!!

no idea.... save as csv file in c:mydir\test.csv

luca90 — Tue, 07 Jul 2026 00:44:27 GMT

based this link:
https://situas.istat.it/web/#/territ...rom=2026-07-06

how to save as csv file in c:mydir\test.csv, based a selction from combobox...

see image

Attached Images

[RESOLVED] Lower code does not necessarily mean greater speed

prote01 — Mon, 06 Jul 2026 20:14:58 GMT

They help me understand why, here are some examples

Code:

        Dim sString  As String: Dim lTemp As Long: Dim iCont As Integer: Dim sText As String

        sString = Replace("First,Second,Third,Fourth,Fifth,Sixth,Seventh", ",", vbTab)

        For lTemp = 0 To 9999999

         'sText = GetIt(sString, iCont)  '20.5715377233699 miliseconds

         'sText = GetIt1(sString, iCont) '39.5765626636905 miliseconds

         'sText = GetIt2(sString, iCont) '23.1855129632397 miliseconds

         If iCont = 9 Then iCont = 0 Else iCont = iCont + 1

        Next lTemp

20 lines

Code:

Public Function GetIt(ByVal vSource As String, vIndex As Integer, Optional vSep As String = vbTab) As String

 Dim oTexto As String

 Dim oTempo As Integer '2025-12-11

 If vSource = "" Then

  oTexto = ""

 Else

  If InStr(vSource, vSep) > 0 Then oTexto = vSource + vSep Else Exit Function

  Do While InStr(oTexto, vSep)

   If oTempo = vIndex Then

    oTexto = Mid(oTexto, 1, InStr(oTexto, vSep) - 1)

    Exit Do

   ElseIf oTempo > vIndex Then

    oTexto = ""

    Exit Do

   End If

   oTexto = Mid(oTexto, InStr(oTexto, vSep) + Len(vSep))

   oTempo = oTempo + 1

  Loop

  If Len(oTexto) > 200 Then oTexto = Trim(oTexto)

 End If

 GetIt = oTexto

End Function

8 lines

Code:

Public Function GetIt1(vSource As String, vIndex As Integer, Optional vSep As String = vbTab) As String

 Dim vStrings() As String '2026-07-03

 If vSource <> "" Then

  If InStr(vSource, vSep) > 0 Then

   vStrings = Split(vSource, vSep)

   If vIndex <= UBound(vStrings) Then GetIt1 = vStrings(vIndex) Else Exit Function

   If Len(GetIt1) > 200 Then GetIt1 = Trim(GetIt1)

  End If

 End If

End Function

17 lines

Code:

Public Function GetIt2(ByVal vSource As String, vIndex As Integer, Optional vSep As String = vbTab) As String

 Dim oTempo As Integer '2026-07-06

 If vSource <> "" Then

  vSource = IIf(InStr(vSource, vSep) = 0, "", vSource + vSep)

  Do While InStr(vSource, vSep)

   If oTempo = vIndex Then

    vSource = Mid(vSource, 1, InStr(vSource, vSep) - 1)

    Exit Do

   ElseIf oTempo > vIndex Then

    vSource = ""

    Exit Do

   End If

   oTempo = oTempo + 1

   vSource = Mid(vSource, InStr(vSource, vSep) + Len(vSep))

  Loop

  If Len(vSource) > 200 Then vSource = Trim(vSource)

 End If

 GetIt2 = vSource

End Function

error acedss denied reverse geocode

luca90 — Mon, 06 Jul 2026 09:42:12 GMT

Code:

Sub Getadress()

    

    Dim myURL As String

    Dim lat As String

    Dim lon As String

    Dim txt As String, test As String

    

    lat = "40.848641"

    lon = "14.225083"

    

    

    myURL = "http://nominatim.openstreetmap.org/reverse?format=xml&lat=" & lat & "&lon=" & lon & "&addressdetails=1"

    Debug.Print myURL

    Dim WinHttpReq As Object

    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")

    WinHttpReq.Open "GET", myURL, False

    

    WinHttpReq.send<<<<<<<<<<<<
    

    If WinHttpReq.Status = 200 Then

        txt = WinHttpReq.responseText

        test = getfield(txt, "road") & getfield(txt, "postcode") & getfield(txt, "village") & getfield(txt, "country")

        Debug.Print test

    End If

    

End Sub

IDE Find Window Jumps to Projects

Dev101 — Thu, 02 Jul 2026 14:00:35 GMT

All of a sudden when typing CTRL-F the find dialog pops in the Project Window rather then the Code Window. Not sure what's happening or how to reset it back to it's normal behavior.

Thanks.

AI-ness

SteveM22 — Wed, 01 Jul 2026 18:36:17 GMT

For example, I ask. What does Claude Pro do (better or?) other than Claude Free does not do in regard to VB6 programming assistance? I have found the Claude Free and CoPilot make newbie mistakes like using inappropriate variables in a For Each loop and then at my pointing out the error uses a For Next rather than changing the variable type. Then a week or so later, they make the same mistake.

We are less ignorant than AI it seems.

VB6 on windows 11

OxfordGuy — Wed, 01 Jul 2026 11:27:55 GMT

I am having a strange problem on Windows 11, not being able to load all controls. On my XP virtual machine running on my iMac, it loads all the custom controls no problem. But on Windows 11, I have to load AUTO32LD.VBP first, then rename the project. Any help will be most appreciated.

VB6 - on Windows 10: how use\activate the OLDragDrop??

joaquim — Mon, 29 Jun 2026 19:22:44 GMT

how use\activate the OLDragDrop??
the DragMode is manual, but the mouse icon is forbidden :P
how can i resolve it?