VB6 Stuff

Encoding Strings using Escape Characters Basic

2010-08-29T11:04:00.000-07:00

This how to encoding string using escape character. First, create new module and copy this code:Public Function Encode(ByVal Val As String) As String Dim i As Long, curChar As String For i = 1 To Len(Val) curChar = Mid(Val, i, 1) If curChar = vbCr Then Encode = Encode & "c" ElseIf curChar = vbLf Then Encode = Encode & "l" ElseIf curChar = ""

Make a transparent bitmap

2010-08-27T20:55:00.000-07:00

Here's a simple way to create a bitmap to be transparent. First create a new module and paste the following code:Option ExplicitPublic Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd Type Public Declare Function BitBlt Lib "gdi32" _ (ByVal hDCDest As Long, ByVal XDest As Long, _ ByVal YDest As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hDCSrc As Long,

Get Mouse Cursor Position Inside or Outside Form

2010-01-14T07:25:00.000-08:00

Here is a simple way to get mouse cursor position on the form or outside the form. First create a new form, then add the label and the timer control on the form. After that, paste the following code:Private Declare Function GetCursorPos Lib "user32" (lpPoint As _ POINTAPI) As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim a As POINTAPIDim b As LongDim c As LongPrivate

Send Email using MAPI control on VB6

2010-01-13T08:18:00.000-08:00

Here is a simple way to send messages using MAPI control. First add the MAPI component and add the MAPI session and MAPI mail control in your form. Then paste the following code:Public Function send_mail(sendto As String, subject As String, _ text As String) As BooleanOn Error GoTo ErrHandler With MAPISession1 .DownLoadMail = False .LogonUI = True .SignOn

Play MPEG files in VB6

2010-01-06T06:59:00.000-08:00

Here is a simple example to play MPEG files in VB6. First create a new User Control, and then give the name MPEGViewer or whatever. After that, paste the code below:Option ExplicitPrivate Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As LongPrivate Declare Function GetShortPathName Lib "

Create Shortcut using VB6

2010-01-03T04:58:00.000-08:00

The following simple code example to create a shortcut. First of all, create a new module and name it "myshortcut" or whatever. After that, paste the code below :Sub CreateShortCut(File As String, icon As String, iconindex As Long, Target As String) Dim intFreeFile As Integer File = File & ".url" intFreeFile = FreeFile Open File For Output As intFreeFile Print #intFreeFile, "[

Disable Keyboard and Mouse using VB6

2009-12-14T06:47:00.000-08:00

The following simple example code to disable the keyboard and mouse. First create a form and add the two commands on the form, then paste the following code:' for disable keyboardPrivate Sub Command1_Click()dim aaaa=shell("rundll keyboard,disable")End Sub'for disable mousePrivate Sub Command2_Click()dim aaaa=shell("RUNDLL MOUSE,DISABLE")End SubNOTE;To reactive them you may need to restart your

Read Text From a File

2009-12-12T06:48:00.000-08:00

Here's how to read text from a file. First create a new module and paste the following code:Public Function TextFromFile(fInStream As String) As String Dim i As Long, strText As String i = FreeFile strText = "" Open fInStream For Input Lock Write As #i Screen.MousePointer = vbHourglass DoEvents strText = StrConv(InputB$(LOF(i), i), vbUnicode) Close #i Screen.MousePointer = vbDefault TextFromFile

Execute a file with its default program

2009-11-14T04:56:00.000-08:00

To execute application or file using vb6 you can insert this code:Private Declare Function ShellExecute Lib "shell32.dll" Alias _"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ByVal lpFile As String, ByVal lpParameters As String, ByVal _lpDirectory As String, ByVal nShowCmd As Long) As LongPublic Sub RunCMD(Optional Filename As String)Call ShellExecute(0&,vbNullString,Filename

Export SQL data to CSV

2009-08-30T04:51:00.000-07:00

Maybe you are confused to export SQL data to CSV file format. Here is a simple source code to export SQL data to CSV file formatFirst create a new module and paste the following code:Public Function CSVExport(db As DAO.Database, sSQL As String, sDest As String) As Boolean Dim record As Recordset Dim nI As Long Dim nJ As Long Dim nFile As Integer Dim

Change a file extension

2009-08-19T08:53:00.000-07:00

Maybe you want to change the file extension to your needs using VB6. Following simple way to change the file extension:Public Function ChangeFileExt(ByVal aFilename As String, ByVal NewExt AsString) As BooleanDim p As LongDim bp As LongDim nFileName As StringOn Error Resume NextChangeFileExt = FalseIf aFilename = "" Then Exit Functionp = 0Dobp = pp = InStr(p + 1, aFilename, ".", vbBinaryCompare)

Create and internet shortcut using vb6

2009-08-04T07:49:00.000-07:00

Maybe you want to create a shortcut in order to facilitate an internet connection you are connected to the internet. Here is a simple example to create a shortcut to the internet using VB6. First, create a new module, and after that paste the following code:Public Const NOERROR = 0Public Const CSIDL_FAVORITES = &H6Public Const CSIDL_DESKTOPDIRECTORY = &H10Private Type SHITEMID cb As Long abID

Open and Close CDROM using vb6

2009-08-02T07:47:00.002-07:00

To open and close of CDROM with vb6, you please make beforehand new module, afterwards insert code following :Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias _"mciSendStringA" (ByVal lpstrCommand As String, ByVal _lpstrReturnString As String, ByVal uReturnLength As Long, _ByVal hwndCallback As Long) As LongPublic Sub OpenCDROM()retvalue = mciSendString("set CDAudio

Access to regedit

2009-07-31T08:19:00.000-07:00

Inserting this code to your Class Module:Option ExplicitPrivate Declare Function RegOpenKeyEx Lib "advapi32.dll" _Alias "RegOpenKeyExA" _(ByVal hKey As Long, ByVal lpSubKey As String, _ByVal ulOptions As Long, ByVal samDesired As Long, _phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" _(ByVal hKey As Long) As LongPrivate Declare Function RegQueryValueEx Lib "

Making activex control XP Theme maskedbox

2009-07-30T07:05:00.001-07:00

First of all make new Activex Control project, up to you wish to give what name at your project. all important, ascertaining properties at your User Controls.Assign value at Autoredraw True and for the Scalemode of Twip.Then insert code following:Option ExplicitPrivate WithEvents TxT As TextBoxPrivate Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As

Desktop capturing

2009-07-28T07:03:00.000-07:00

following is the code for a desktop background that will be displayed on the form. First, create a new form and paste the code below:Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function BitBlt Lib "gdi32" _(ByVal hDestDC As Long, _ByVal x As Long, _ByVal y As Long, _ByVal nWidth As Long, _

Form on the top

2009-07-27T08:49:00.000-07:00

This sample source code how to form on the top.Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const HWND_TOPMOST = -1Private Const HWND_NOTOPMOST = -2Public

Balloon Tooltips

2009-07-26T05:33:00.001-07:00

To make balloon tooltips, make a new module then insert code following:Option ExplicitPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypePrivate Type TOOLINFOcbSize As LongdwFlags As LonghWNd As LongdwID As LongrtRect As RECThInst As LonglpszText As LonglParam As LongEnd TypePrivate Type ICCEXdwSize As LongdwICC As LongEnd TypePrivate Declare Function CreateWindowEx Lib "

Check and e-mail address for validity

2009-07-23T04:31:00.000-07:00

Code following to know the validity of e-mail:Function IsValidEmail(sEMail As String) As Boolean' original by Brad Murray' optimized by Rob Hofker, email: rob@eurocamp.nl,'23 august 2000Dim sInvalidChars As StringDim bTemp As BooleanDim i As IntegerDim sTemp As String' Disallowed characterssInvalidChars = "!#$%^&*()=+{}[]|\;:'/?>,< "' Check that there is at least one '@'bTemp = InStr(sEMail, "@")

Connect to secure access database

2009-07-22T07:00:00.000-07:00

This sample source code how to connect to secure access database using ADODB. Can open connection to your access database although database which you use to use password. if succeeding connection, hence will go out message using msgbox that success connection.First of all make database, last give password at database. Afterwards, make a new form and give name "Form1". Enhancing "Commandbutton" at

XP Theme using manifest

2009-07-21T06:28:00.000-07:00

If you want to view your applications such as Windows XP, you need not trouble downloading ActiveX or tools that can change your display applications such as Windows XP. Simply create your file manifest. But before you put the file or create a manifest, compile your project first. Then create a new file manifest. Open a notepad, and enter the code below:

Read and write INI File

2009-07-17T05:50:00.000-07:00

Following representing code to read and write INI file by using System API. First of all, make a module class, and give name "INIFILE", afterwards insert code following:Option ExplicitPrivate Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String)

Minimize and restore all windows active

2009-07-14T06:23:00.000-07:00

Code following can do and minimize and restore all windows which is active pass program which you make.Insert this code to your module:Private Declare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" _(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam

Back up SQL Database Using SQLDMO

2009-07-08T00:45:00.000-07:00

Possible you require code to back up your database SQL. We will try to give functioning code to back up your database by using SQLDMO. If you not yet owned SQLDMO, please download beforehand SQLDMO library by using search engine.Make a module and give name "modbackupsqldatabase" or up to you. Afterwards, including code hereunder to module.Public Function DBBackup(ByVal nServer_Name As String, _

XML connection using ADODB

2009-07-07T07:55:00.000-07:00

First of all, make a form, last of add control following :TextboxName = "Text1"CommandbuttonName = "Command1"Caption = "Create New"CommandbuttonName = "Command2"Caption = "Read"ListviewName = "Listview1"View = "3 - lvwReportAscertain control properties, arrange in such a manner. After you arrange it, inserting code following at your form:Option ExplicitPrivate XML_ADO As ObjectPrivate xd As

Evi Encrypter v1.0

2009-07-04T18:59:00.000-07:00

If you want to preserve your important data, whether images, applications, or other files, you can use as Evi Encrypter solution.Features are included in the Evi Encrypter?Encrypt using passwordDecrypt using passwordFast encrypt and decryptCan encrypt the file size is largeThen what is included in the download package?Application (EXE File)Readme fileSource code

Evi Collection Control XP UPDATE v1.2

2009-07-02T08:00:00.000-07:00

By using Evi Collection Control XP, you can design a form that you created with the view that more interesting. With XP or Vista style, as if you are a programmer in the case of a reliable design applications.What are the features of the Evi?Evi AnimationYou can use the Evi Animation as a progressbar. Evi such as file copy dialog is in vistaEvi ButtonButton with a variety of styles such as

Move form without title bar on VB6

2009-07-01T04:52:00.000-07:00

If form without titlebar, possible we cannot move the form. To be able to move form without titlebar, inserting code following, but previously make form without titlebar by assigning value Borderstyle at form properties 0 or NONE.Code:Private Declare Function SendMessage Lib "User32" _Alias "SendMessageA" (ByVal hWnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As

Transparent Form

2009-06-30T06:43:00.000-07:00

Code following to make your form become transparently.First of all, make a last module insert code following:Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As

Disable close button on form

2009-06-29T22:13:00.000-07:00

Insert this code to your module:Option ExplicitPrivate Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetMenuInfo Lib "user32" (ByVal hwnd As Long, mInfo As MENUINFO) As LongPrivate Declare Function GetSubMenu

Rename and delete file permanent or send to recycle on vb6

2009-06-28T05:00:00.000-07:00

Code following functioning to rename filename and delete file permanently or send to recycle. Make new module, then insert code following:Option ExplicitPrivate Type SHFILEOPSTRUCThwnd As LongwFunc As LongpFrom As StringpTo As StringfFlags As IntegerfAnyOperationsAborted As BooleanhNameMappings As LonglpszProgressTitle As StringEnd TypeEnum DeleteFileConst[Send To Recycle] = 0[Permanent] = 1End

Play wav file at VB6

2009-06-28T04:24:00.001-07:00

This source for play wav file on vb6. First create new module or insert this code to your module:Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName as String, ByVal uFlags as Long) as LongPrivate Sub PlayWav(ByVal Filename As String)sndPlay=sndPlaySound(Filename, 1)End SubExample to play wav file:Call PlayWav("C:mywav.wav")

Connection to MySQL Server using ADO

2009-06-26T04:06:00.000-07:00

If you want to create an office or other applications and you want to connect to the MySQL server, you can use the code below to be connected with your MySQL server.Dim cn as ADODB.ConnectionSet cn = New ADODB.Connectioncn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver};" & _"Database=yourdatabasename;" & _"UID=youruserID;" & _"PWD=yourPassword;" & _"PORT=portyourserver;" & _"OemToAnsi=No;" &

Detect a file and folder exists on VB6

2009-06-20T21:58:00.000-07:00

To find out if a file or folder does not exist or is exists in the VB6 programming, we can use a simple way as below:Make a first module with the new name "mdlfileexists" or it's up to you.Then paste the code below on the new module.Public Function FileExists (strPath As String) As Integer Dim lngRetVal As Long On Error Resume Next lngRetVal = Len(Dir$(strPath)) If Err Or lngRetVal = 0 Then

Clear all text on your form

2009-06-20T08:50:00.000-07:00

Textbox to clean, we can do with the way Text1.Text = "". If there's only 1 or 2 control textbox, do not come into question, but if there is 10 or more how?Text1.Text = ""Text2.Text = ""And so on...Really tire :).Possible you do matter like above if we like to clean text at control textbox. If yes, really tiring. Following simple code which possible a little a few you to clean text at control of

Find String

2009-06-18T08:53:00.000-07:00

Possible friends some of not yet known, to do find of string at one particular or sentence of text long. To easy to find of string, follow steps hereunder:First, create a new module first. Give the name "mdlfindstring" or it's friends.Then enter the code below to the module.Public Function FindString(ByVal Text As String, _ ByVal Search As String, _ Optional ByVal Position As Long, _ Optional