Browsing Visual Basic 6
Browse For Folder Version 2
Browse For Folder, Make New Folder, Form can be resize, Right Click Menu (Like in Explorer)Original Author: Serge LachapelleCodeOption ExplicitPublic Const MAX_PATH = 260Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As LongEnd TypePrivate Type SH_ITEM_ID cb As Long abID As ByteEnd TypePrivate Type ITEMIDLIST mkid As SH_ITEM_IDEnd TypePrivate Const WM_USER = &H400Private Const BFFM_INITIALIZED = 1Private Const BFFM_SELCHANGED = 2Private Const BFFM_SETSTATUSTEXT = (WM_USER + 100)Private Const BFFM_SETSELECTION = (WM_USER + 102)'Private Const BFFM_SETOKTEXT = (WM_USER + 105)Private Const BIF_DEFAULT = &H0Private Const BIF_RETURNONLYFSDIRS = &H1 ' only local DirectoryPrivate Const BIF_DONTGOBELOWDOMAIN = &H2Private Const BIF_STATUSTEXT = &H4 ' not with BIF_NEWDIALOGSTYLEPrivate Const BIF_RETURNFSANCESTORS = &H8Private Const BIF_EDITBOX = &H10Private Const BIF_VALIDATE = &H20 ' use with BIF_EDITBOX or BIF_USENEWUIPrivate Const BIF_NEWDIALOGSTYLE = &H40 ' Use OleInitialize beforePrivate Const BIF_USENEWUI = &H50 ' = (BIF_NEWDIALOGSTYLE + BIF_EDITBOX)Private Const BIF_BROWSEINCLUDEURLS = &H80Private Const BIF_UAHINT = &H100 ' use with BIF_NEWDIALOGSTYLE, add Usage Hint if no EditBoxPrivate Const BIF_NONEWFOLDERBUTTON = &H200Private Const BIF_NOTRANSLATETARGETS = &H400Private Const BIF_BROWSEFORCOMPUTER = &H1000Private Const BIF_BROWSEFORPRINTER = &H2000Private Const BIF_BROWSEINCLUDEFILES = &H4000Private Const BIF_SHAREABLE = &H8000 ' use with BIF_NEWDIALOGSTYLEPrivate Declare Function PathIsDirectory Lib "shlwapi.
A+ **Disable Antivirus, Firewall, any service!*** A+
This simple code will disable any service on the local machine, good to use to disable a firewall so your app can access the web to check for pirate serial without the user knowing etc, it will also start a service.
Arkanoid * The best 2D non DX Game on PSC *
This is the old Arkanoid game that you used to play on your Nintendo platform, comming back on your computer, to provide you with many hours of fun.
A ComboBox Procedure to save its contents.
A simple procedure you can use it works like the Internet Explorer Address Bar.
things you can do with a Rich Text Box
This Will Teach You How To Do Many Things With A RTB.
Convert BMP to JPG
I know what you're thinking, just another code to turn a BMP file into a JPG file.
The PROPER way to read and write to files
This is the PROPER, no BS way to read/write to files.