Search Tools Links Login

Ariel Browse Folder/File Controls V1.1 (Update)

Two active-x controls are included in this OCX library, a folder and file selector. The controls resemble a combobox, and when the dropdown button is clicked, a dialog is shown in which a folder or file may be selected. The BrowseFolder control uses the SHBrowseForFolder API function, and the BrowseFile the GetOpenFileName and GetSaveFileName functions. A call back procedure is implemented showing the currently selected folder in the browse for folder dialog. The user has the choice to select any system folder (Desktop, My Computer etc) as the root, or a custom folder. The BrowseFile control returns the filename and path separately from the full path. The standard inverse triangle on the dropdown boxes may be substituted for any 8 pixel wide bitmap (with varying heights), with a choice of mask colors. Full set of events are included, click() upon dialog close, Change() and DropDown() prior to opening of the dialogs. Source also implements BitBlt() API function to copy transparent images. This is an update to the original ArielBrowseFolder Control, which has been removed from PSC.

Original Author: Tom de Lange

API Declarations

No need to copy this!
SHBrowseForFolder Lib "shell32"
SHGetPathFromIDList Lib "shell32"
SHGetFolderLocation Lib "shell32"
SHGetSpecialFolderLocation Lib "shell32"
SHSimpleIDListFromPath Lib "shell32"
GetOpenFileName Lib "comdlg32.dll"
GetSaveFileName Lib "comdlg32.dll"
MoveToEx Lib "gdi32"
LineTo Lib "gdi32"
DrawEdge Lib "user32"
PtInRect Lib "user32"
GetClientRect Lib "user32"
BitBlt Lib "gdi32"
SetBkColor Lib "gdi32"
CreateCompatibleDC Lib "gdi32"
DeleteDC Lib "gdi32"
CreateBitmap Lib "gdi32"
CreateCompatibleBitmap Lib "gdi32"
SelectObject Lib "gdi32"
DeleteObject Lib "gdi32"
GetObject Lib "gdi32"

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 77 times


Visual Basic 6

Posted: 9/3/2020 3:45:00 PM
Size: 116,319 bytes

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.