VBForums - Visual Basic 6 and Earlier

FolderExists Issue

k_zeon — Wed, 03 Jun 2026 16:40:33 GMT

Hi All

I recently started to get some errors in my Folderexists function. If the Folder name was not the same case it would cause it to return False.

Code:

Private Const MAX_PATH As Long = 260

Private Const INVALID_HANDLE_VALUE As Long = -1

Private Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10



Private Type FILETIME

    dwLowDateTime As Long

    dwHighDateTime As Long

End Type





Private Type WIN32_FIND_DATA

    dwFileAttributes As Long

    ftCreationTime As FILETIME

    ftLastAccessTime As FILETIME

    ftLastWriteTime As FILETIME

    nFileSizeHigh As Long

    nFileSizeLow As Long

    dwReserved0 As Long

    dwReserved1 As Long

    cFileName As String * MAX_PATH

    cAlternate As String * 14

End Type







Private Declare Function FindFirstFile Lib "kernel32" _

() '                                       Alias "FindFirstFileA" _

                                       (ByVal lpFileName As String, _

                                        lpFindFileData As WIN32_FIND_DATA) As Long



Private Declare Function FindClose Lib "kernel32" _

() '                                   (ByVal hFindFile As Long) As Long







Public Function FolderExists(sFolder As String) As Boolean



    Dim hFile As Long

    Dim WFD As WIN32_FIND_DATA



    'remove training slash before verifying

    sFolder = UnQualifyPath(sFolder)



    'call the API pasing the folder

    hFile = FindFirstFile(sFolder, WFD)



    'if a valid file handle was returned,

    'and the directory attribute is set

    'the folder exists

    FolderExists = (hFile <> INVALID_HANDLE_VALUE) And _

                   (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)



    'clean up

    Call FindClose(hFile)



End Function



Private Function UnQualifyPath(ByVal sFolder As String) As String



'trim and remove any trailing slash

    sFolder = Trim$(sFolder)



    If Right$(sFolder, 1) = "\" Then

        UnQualifyPath = Left$(sFolder, Len(sFolder) - 1)

    Else

        UnQualifyPath = sFolder

    End If



End Function

i then swapped to

Code:

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" _

(ByVal pszPath As String) As Long





Public Function FolderExists(ByVal sFolder As String) As Boolean

    FolderExists = PathIsDirectory(sFolder)

End Function

and it works fine.

Why would the first example now say False if case is incorrect but the folder path is correct.

tks

mousemove and treeview

luca90 — Wed, 03 Jun 2026 14:15:25 GMT

how to, intercept when mousemove cursor go to node key to another node key:

nodekey =1
next move
nodekey =1
no effect

node key=1
next move
node key=a1
then msgbox ="different node!"

VB6 2-nd pass compiler error on BAS module

wqweto — Tue, 02 Jun 2026 19:59:05 GMT

Sharing this Claude generated tool here (to not get it lost) which finds procedures with useless On Error GoTo 0 which trip up VB6 compiler's codegen and result in linker error i.e. the binary produced is non-functional because of 2-nd pass codegen the compiler bombs out. The problem is exacerbated when line numbers are used with such extraneous On Error GoTo 0 i.e. compiling production code with Erl support for error handling might bomb on build server.

Here is the powershell script that you might want to check you projects for potential problems:

Code:

# Find-DanglingOnErrorGoto0.ps1



param(

    [string]$Path

)



# Finds VB6 procedures that have `On Error GoTo 0` but do NOT have a real

# error handler (neither `On Error GoTo ` nor `On Error Resume Next`).



if (-not $Path) {

    @"

Find-DanglingOnErrorGoto0.ps1 - Find VB6 procedures with a dangling 'On Error GoTo 0'.



Reports procedures that contain 'On Error GoTo 0' but never install a real error

handler ('On Error GoTo ' or 'On Error Resume Next') before it.



Usage:

    .\Find-DanglingOnErrorGoto0.ps1 -Path 



Parameters:

    -Path   Folder (searched recursively) or file to scan. Scans *.bas, *.cls,

            *.frm and *.ctl files.



Example:

    .\Find-DanglingOnErrorGoto0.ps1 -Path C:\Projects\MyVB6App

"@ | Write-Output

    return

}



$reProcStart = '^\s*(?:(?:Public|Private|Friend|Static)\s+)*(?:Sub|Function|Property\s+(?:Get|Let|Set))\s+(\w+)'

$reProcEnd   = '^\s*End\s+(?:Sub|Function|Property)\b'

$reGoto0     = '^\s*On\s+Error\s+GoTo\s+0\s*$'

$reResume    = '^\s*On\s+Error\s+Resume\s+Next\b'

$reGotoLabel = '^\s*On\s+Error\s+GoTo\s+(?!0\s*$)\S+'



$files = Get-ChildItem -Path $Path -Recurse -Include *.bas, *.cls, *.frm, *.ctl -File

$results = foreach ($f in $files) {

    $lines = Get-Content -LiteralPath $f.FullName

    $inProc = $false

    $procName = ''

    $procStartLine = 0

    $handlerInstalled = $false   # is a handler active AT THIS POINT

    $danglingLines = @()         # On Error GoTo 0 with no active handler before it



    for ($i = 0; $i -lt $lines.Count; $i++) {

        $line = $lines[$i]

        $lineNo = $i + 1



        if (-not $inProc) {

            $m = [regex]::Match($line, $reProcStart, 'IgnoreCase')

            if ($m.Success) {

                $inProc = $true

                $procName = $m.Groups[1].Value

                $procStartLine = $lineNo

                $handlerInstalled = $false

                $danglingLines = @()

            }

            continue

        }



        if ($line -imatch $reProcEnd) {

            if ($danglingLines.Count -gt 0) {

                [pscustomobject]@{

                    File      = $f.FullName

                    Procedure = $procName

                    ProcLine  = $procStartLine

                    Goto0At   = ($danglingLines -join ',')

                }

            }

            $inProc = $false

            continue

        }



        if ($line -imatch $reResume -or $line -imatch $reGotoLabel) {

            $handlerInstalled = $true       # installs a handler for the rest of the procedure

        } elseif ($line -imatch $reGoto0) {

            # flag only if NO handler was installed anywhere earlier in the procedure;

            # sticky flag, because due to branching (each GoTo 0 sits in a separate branch,

            # followed by Err.Raise/Exit) the top-level handler is actually active on the path

            if (-not $handlerInstalled) { $danglingLines += $lineNo }

        }

    }

}



$results = @($results)

if ($results.Count -gt 0) {

    $results | Sort-Object File, ProcLine | Format-Table -AutoSize

    "Total: $($results.Count) procedure(s) with dangling 'On Error GoTo 0'." | Write-Output

} else {

    "None found." | Write-Output

}

cheers,

Show tool tip ballon on each node of a treeview

luca90 — Tue, 02 Jun 2026 17:26:01 GMT

Possibile?
Tks

ADD also a baloon tooltip on treeview

luca90 — Tue, 02 Jun 2026 09:18:31 GMT

i use this code on mosenove treewviev:

Code:

Private Sub TreeView1_MouseMove(Button As Integer, Shift As _

                                Integer, x As Single, y As _

                                Single)

  Dim N As ComctlLib.Node

  

    Set N = TreeView1.HitTest(x, y)

    If Not (N Is Nothing) Then

      

        Set TreeView1.DropHighlight = N

      

      Set N = Nothing

    End If

    

End Sub

possible to add also a tooltip ballon during the mouse move event?

VBMAN - A Modern Network Development Framework for VB6/VBA (Open Source)

woeoio — Mon, 01 Jun 2026 13:53:35 GMT

Hey, ervrybudy, visualbasic!

I'm excited to share that I've just open-sourced **VBMAN**, a network application development framework I've been working on since 2017. It's designed specifically for VB6 and VBA developers who need modern networking capabilities.

## What is VBMAN?

VBMAN is a comprehensive network development framework that brings modern web technologies to the BASIC ecosystem. If you've ever struggled with making HTTP requests, hosting a web server, or handling WebSockets in VB6/VBA, this might save you some headaches.

## Key Features

### Web Development
- **HTTP Server** - Build lightweight web services directly in VB6/VBA
- **HTTP Client** - Modern HTTP/HTTPS requests with JSON support
- **WebSocket** - Real-time bidirectional communication
- **Server-Sent Events (SSE)** - Server-to-client streaming
- **JSON Processing** - Native JSON serialization/deserialization

### Database & Storage
- **Database Access** - Simplified SQL operations
- **Redis Client** - Cache and message broker support
- **INI File Handler** - Structured configuration management

### Industrial IoT Protocols
- **Modbus TCP/RTU** - Master and Slave implementations
- **MQTT Client/Server** - Lightweight messaging for IoT
- **Serial Port** - Direct hardware communication

### Utilities
- **Shadow Window** - Modern UI effects for VB6 forms
- **Collection Tools** - Enhanced data structures
- **Cryptography** - AES, Hash, HMAC support
- **Logging System** - Structured application logging

## Why VBMAN?

I started this project in 2017 because I needed to build network applications for industrial automation, but VB6's built-in networking capabilities were... limited. Rather than migrate everything to .NET, I decided to extend VB6's capabilities.

The framework is designed to feel native to VB6 developers - the API style follows familiar patterns, so you don't need to learn a completely new way of thinking.

## VBMAN2 - The Next Generation

I'm also working on **VBMAN2**, which **includes all VBMAN capabilities** and adds WebView2 support with two-way data binding. This means you can build modern web-based UIs that communicate seamlessly with your VB6/VBA code:

> **Note**: VBMAN2 is a superset of VBMAN - everything in VBMAN works in VBMAN2, plus more. You can seamlessly upgrade when you're ready.

```vb
' Bind UI elements to VB6 code
wv.BindData "username", "#user-name", "textContent"
wv.SetData "username", "John" ' UI updates automatically

' Two-way binding
wv.BindUI Me, "OnSearch", "#search-input", EventName:="input"
```

## Project Info

- **License**: GPL-3.0 (Binary files are free forever, source available for personal use)
- **Documentation**: see gihub
- **Repository**: https://github.com/woeoio/vbman

## Who is this for?

- Maintaining legacy VB6/VBA applications
- Industrial automation systems
- Quick prototyping for internal tools
- Anyone who still enjoys BASIC syntax (no judgment here!)

## Questions?

Happy to answer any questions! The documentation site has detailed API references and examples. I've been using this in production environments for years, so it's battle-tested for industrial scenarios.

---

**Fun fact**: This project started as "BSMAN" (Basic Server Man) back in 2017, with grand plans for ASPMAN, VBSMAN, and VBAMAN sub-projects. Only VBMAN survived... and thrived!

Line Numbering withiin a subroutine

SteveM22 — Fri, 29 May 2026 18:16:18 GMT

Trying to load an app into the IDE on Win 10. This works on win XP no problem.

I get at Ctrl-F5 an error messages saying a problem on line 700 about licensing in Sub Main.
There seems to be no indicator in the IDE to determine line I am at the subroutine so finding that particular line number in the subroutine becomes tedious.

How can I find it easily?

screen crack animation joke ideas

dz32 — Fri, 29 May 2026 16:42:10 GMT

so this is a joke app I have wanted forever maybe some of the game guys will have some ideas here

- copy the desktop into your own image and take over screen to play with
- play cracking glass sound and draw cracks on the desktop image
- shards of the desktop start dropping away and some demon image from behind starts advancing
- second stage of shards/glass cracking sound
- demon emerges with a sound track
- disappears leaving people blinking at their screens

AI was able to do a pretty good job but it just feels likes it missing something / not everything it could be

ideas?

maybe an demon animation sequence like a video game as it runs and crawls through teh shards or
busts out the rest of the shards with a fist

there are 9 variants, you can choose on the command line by entering 1-9, 5 is the default

Attached Files

screen_crack.zip (1.27 MB)

FLASHING image

luca90 — Wed, 27 May 2026 07:01:10 GMT

how to flashing two image ?
attached the image

alternate the two color image:

yellow
red
yellow
red
ecc...

Attached Images

Windows Fails to Execute VB Program in IDE (How to Troubleshoot)

vb6forever — Tue, 26 May 2026 04:37:58 GMT

1. I just created a simple VB Program and it worked fine.

2. My main program executed fine in the IDE at around noon today. After shutting off computer and restarting, it will not execute in the IDE (No Changes we're made in the Program).
My Error Log shows nothing.
The Error is occuring just after StartUp
(A breakpoint (F9) was placed on Form_Load and the Error Message occurred a second or two after it encountered the breakpoint.)

The IDE appears to load all Forms and Modules, it is just the execution.

FWIW still using Windows-10 offline.

3. This link offers some insight BUT has Not solved it.
https://stackoverflow.com/questions/...topped-working

This is the Error I am Getting :

Attached Images

Windows 11 effects applied on borderless form

Crapahute — Mon, 25 May 2026 10:18:01 GMT

I have build my own system of menus based on a VBCCR toolbar. I use forms with BorderStyle=0 to popup my menus.

Now I have tested my program on a more recent version of Windows 11 and I lose the rounded corners and the blur shadow.

I have adapted my code for the rounded corners, but I can’t reproduce the Windows 11 shadow.

Has someone encountered the same problem ?

Here is the code I use :

Code:

Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function DwmSetWindowAttribute Lib "dwmapi" (ByVal hWnd As Long, ByVal dwAttribute As Long, ByRef pvAttribute As Any, ByVal cbAttribute As Long) As Long

Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi" (ByVal hWnd As Long, pMarInset As RECT) As Long

Private Const DWMWA_WINDOW_CORNER_PREFERENCE = 33

Private Const DWMWCP_ROUND = 2



Public Sub ApplyRoundedCorners(frm As Object)

' If we are on Windows 11 and the build is < 26200, we don't need to apply this sub

' as ApplyWin11Effects() does the work.

    If IsWindows11 Then

        If WinVerBuild < 26200 Then Exit Sub

    End If



Dim hRgn As Long

    ' Cut form

    hRgn = CreateRoundRectRgn(0, 0, frm.ScaleWidth + 1, frm.ScaleHeight + 1, 14, 14)

    SetWindowRgn frm.hWnd, hRgn, True

    

    DrawFormRect frm, 14

    

End Sub



Public Sub ApplyWin11Effects(frm As Form)

'This only works on Windows 11 Build < 26200.

'For the other vesions, we use ApplyRoundedCorners() for rounded corners.

    If IsWindows11 = False Then Exit Sub

    If WinVerBuild >= 26200 Then Exit Sub

    

    On Error Resume Next

    Dim Pref As Long

    Dim rc As RECT



    Pref = DWMWCP_ROUND



    '--------------------------------------

    ' Rounded corners Win11

    '--------------------------------------

    DwmSetWindowAttribute frm.hWnd, DWMWA_WINDOW_CORNER_PREFERENCE, Pref, 4

    

    '--------------------------------------

    ' DWM Shadow

    '--------------------------------------

    rc.Left = 1

    rc.Top = 1

    rc.Right = 1

    rc.Bottom = 1



    DwmExtendFrameIntoClientArea frm.hWnd, rc



End Sub

Attached Images

[RESOLVED] VB6 - can i use SetMenuItemInfo for transparent bitmap?

joaquim — Fri, 22 May 2026 22:42:00 GMT

Code:

Option Explicit



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

' API DECLARATIONS

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

Private Type RECT

    Left As Long: Top As Long: Right As Long: Bottom As Long

End Type



Private Type MENUITEMINFO

    cbSize As Long

    fMask As Long

    fType As Long

    fState As Long

    wID As Long

    hSubMenu As Long

    hbmpChecked As Long

    hbmpUnchecked As Long

    dwItemData As Long

    dwTypeData As Long

    cch As Long

    hbmpItem As Long

End Type



' User32

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long

Private Declare Function GetSysColorBrush Lib "user32" (ByVal nIndex As Long) As Long

Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAni As Long, ByVal hbrFlickerFree As Long, ByVal diFlags As Long) As Long



' Gdi32

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

' API para extrair o ícone da ImageList

Private Declare Function ImageList_GetIcon Lib "comctl32.dll" ( _

    ByVal himl As Long, _

    ByVal i As Long, _

    ByVal flags As Long) As Long

' Adiciona esta declaração importante

Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

Private Const IMAGE_BITMAP As Long = 0

Private Const LR_COPYRETURNORG As Long = &H4



' Constants

Private Const MIIM_BITMAP As Long = &H80

Private Const COLOR_MENU As Long = 4

Private Const DI_NORMAL As Long = &H3

Private Const ILD_TRANSPARENT As Long = &H1



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

' MAIN FUNCTION

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

Public Sub DrawMenuImage(ByVal hwndWindow As Long, ByVal MenuHeaderPos As Long, ByVal SubMenuPos As Long, ByVal pic As StdPicture)

    Dim hMenu As Long, hSubMenu As Long, hBmp As Long

    Dim mii As MENUITEMINFO



    hMenu = GetMenu(hwndWindow)

    If hMenu = 0 Then Exit Sub



    hSubMenu = GetSubMenu(hMenu, MenuHeaderPos)

    If hSubMenu = 0 Then Exit Sub



    If pic Is Nothing Then Exit Sub



    hBmp = PictureToBitmap32(pic)

    If hBmp = 0 Then Exit Sub



    ' Configurar a estrutura para o SetMenuItemInfo

    mii.cbSize = Len(mii)

    mii.fMask = MIIM_BITMAP

    mii.hbmpItem = hBmp



    ' Aplicar ao item do menu usando o novo método

    If SetMenuItemInfo(hSubMenu, SubMenuPos, True, mii) = 0 Then

        MsgBox "SetMenuItemInfo falhou", vbExclamation

    End If

End Sub



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

' CONVERT StdPicture -> 32x32 HBITMAP

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

' Altera apenas a função PictureToBitmap32 para incluir a máscara

Private Function PictureToBitmap32(ByVal pic As StdPicture, _

    Optional imgWidth As Long = 16, _

    Optional imgHeight As Long = 16) As Long

    

    Dim hdcScreen As Long, hdcMem As Long

    Dim hOld As Long, hBmp As Long

    Dim r As RECT



    hdcScreen = GetDC(0)

    hdcMem = CreateCompatibleDC(hdcScreen)

    hBmp = CreateCompatibleBitmap(hdcScreen, imgWidth, imgHeight)

    hOld = SelectObject(hdcMem, hBmp)



    ' Fundo COLOR_MENU — única "transparência" possível sem owner draw

    r.Right = imgWidth: r.Bottom = imgHeight

    FillRect hdcMem, r, GetSysColorBrush(COLOR_MENU)



    If pic.Type = vbPicTypeIcon Then

        ' DI_NORMAL sobre COLOR_MENU compõe o alpha do ícone 32bpp

        ' É o máximo possível sem owner draw

        DrawIconEx hdcMem, 0, 0, pic.handle, _

                   imgWidth, imgHeight, 0, 0, DI_NORMAL

    End If



    SelectObject hdcMem, hOld

    DeleteDC hdcMem

    ReleaseDC 0, hdcScreen



    PictureToBitmap32 = hBmp

End Function



Private Function CreateCompatibleBitmapForMenu(ByVal hIcon As Long) As Long

    Dim hdcScreen As Long, hdcMem As Long, hBmp As Long, hOld As Long

    

    hdcScreen = GetDC(0)

    hdcMem = CreateCompatibleDC(hdcScreen)

    

    hBmp = CreateCompatibleBitmap(hdcScreen, 16, 16)

    hOld = SelectObject(hdcMem, hBmp)

    

    ' ALTERAÇÃO: Pintar com MAGENTA (A cor mágica da transparência clássica)

    ' Muitos componentes de menu interpretam o Magenta como "transparente"

    Dim hBrush As Long

    hBrush = CreateSolidBrush(&HFF00FF)

    Dim r As RECT

    r.Right = 16: r.Bottom = 16

    FillRect hdcMem, r, hBrush

    DeleteObject hBrush

    

    ' Desenha o ícone

    DrawIconEx hdcMem, 0, 0, hIcon, 16, 16, 0, 0, DI_NORMAL

    

    SelectObject hdcMem, hOld

    DeleteDC hdcMem

    ReleaseDC 0, hdcScreen

    

    CreateCompatibleBitmapForMenu = hBmp

End Function



' Adiciona esta API para libertar o ícone da memória depois de usado

Public Sub DrawMenuImageFromList(ByVal hwndWindow As Long, ByVal MenuHeaderPos As Long, ByVal SubMenuPos As Long, ByVal imgList As Object, ByVal imgIndex As Long)

    Dim hMenu As Long, hSubMenu As Long, hIcon As Long, hBmp As Long

    Dim mii As MENUITEMINFO



    hMenu = GetMenu(hwndWindow)

    hSubMenu = GetSubMenu(hMenu, MenuHeaderPos)

    

    ' 1. Extrair o ícone

    hIcon = ImageList_GetIcon(imgList.hImageList, imgIndex, ILD_TRANSPARENT)

    

    If hIcon <> 0 Then

        ' 2. Criar o bitmap compatível (DIB)

        hBmp = CreateCompatibleBitmapForMenu(hIcon)

        

        ' 3. Configurar o Menu

        mii.cbSize = Len(mii)

        mii.fMask = MIIM_BITMAP

        mii.hbmpItem = hBmp

        

        SetMenuItemInfo hSubMenu, SubMenuPos, True, mii

        

        ' 4. Limpeza

        DestroyIcon hIcon

    End If

End Sub

can i show the bitmap menu transparent?

how to put value in a TEXTBOX web page

luca90 — Fri, 22 May 2026 00:20:17 GMT

https://www.gratis.it/utility/abicab/#gsc.tab=0

my test code:

Code:

Sub Test()

    

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.application")

    IE.Visible = True

    IE.navigate ("https://www.gratis.it/utility/abicab/#gsc.tab=0")

    Do

        If IE.readyState = 4 Then

            IE.Visible = False

            Exit Do

        Else

            DoEvents

        End If

    Loop

    IE.document.forms(0).all("codabi").Value = "08441"    

    

End Sub

Attached Images

VS 98 - is there a add-in for 'save as...'?

joaquim — Thu, 21 May 2026 17:58:36 GMT

is there any 'save as...' dialog for Visual Studio 98?
objective:
1 - avoid the problems on VC++ 6 with 'save as....'(for avoid problems on Windows 7 or above);
2 - using UNICODE!!!

[RESOLVED] Taking screenshots of forms

chris223b — Wed, 20 May 2026 10:21:18 GMT

I need an app to be able to take a screenshot of itself and save that out to a file to use for a journalling features which will track what was on the screen at the time a given control was clicked on. Ideally I just wanted to implement this as a function which can be called with a one liner whenever this is used.

The journalling feature is all done, and for screenshots I tried using this technique I found in an old post:

https://www.developerfusion.com/thre...form-as-image/

The example captures to the clipboard when fired but uses a button as a separate event to save the file. I just added the code for the button onto the end to make it capture and save in one step.

The problem I'm having is that there seems to need to be a separate process to execute with user intervention for capturing to the clipboard to complete. As it stands, if I run it the first time it gives a runtime error as the clipboard data is invalid. Then on rerunning it will save the screenshot from the first run. Then on a third rerun the screenshot from the second etc etc.

No way of doing this (including having the capture/save as separate functions) seems to work unless the execution stops. Eg trying

CALL Capture_Screenshot
CALL Save_Screenshot

won't work, but if I plonk a messagebox in between the two calls to break the execution it then will. I've even tried insanely messy attempts to workaround like pasting the screenshot into an imagebox on a hidden form and save the contents of the imagebox or using a timer to call the save, still doesn't work. There needs to be a total break in execution somewhere for the clipboard to update and I can't have this as it needs to happen silently.

Any ideas? Or an alternative approach to doing the capture?