Visual Basic 6.0. Form Events - VB code example. By Sergey Skudaev. Hover mouse over a thumbnail to see a large image. In the lesson 1 Start VB you have learned how to use Visual Studio to create a simple VB project. In the lesson 2 you will learn form events and properties. Downloads - sample Visual Basic 6 code and database with new examples Lesson 12. New sample application: Project management Visual Basic 6 ADO database programming with connection to MySQL database server. This is a collection of highly requested Visual Basic code that I put together back in 1998 and 1999. Almost all of these samples will work on fine on Visual Basic 5.0 and for Microsoft Excel and Microsoft Access Programming (when done with VBA), however, I've only made sure that they work in VB6. Visual Basic 6 Code Sample; Visual Basic.NET Code Sample. Code Library Pick. Revolution IDL Revolution IDL unleashes the power of the IDL Object Graphics architecture by providing a high-level graphical user interface that allows the user to visualize data in a variety of ways, changing properties, positioning objects in 3D, and much more.
| C# / .NET Code Samples |
| DotNetResourcesExtract v1.00 DotNetResourcesExtract is a small utility that scan dll/exe files of .NET applications, and extract all .NET embedded resources (Bitmaps, Gifs, HTML files, and so on) stored in them into the folder that you specify. |
| Visual C++ Code Samples And Utilities |
| Source Code Samples |
Visual Basic 6 Example Code
| Changing the screen brightness programmingly - By using the Gamma Ramp API Some video cards allows you to programmingly modify the Gamma Ramp values.You can use this feature to change the brightness of the entire screen. |
| Preventing application crash by using exception handling mechanism When a program does something wrong, for example, reading from invalid memory address,the operating system displays a 'crash' window with information about the problem that caused the exception,and terminates the application. This sample project demonstrates how to avoidthis kind of crashes, display your own exception information window,and allow the user to continue running the application after the exception occurred. |
| Moving items up and down in a ListView control. In some occasions, you might want to allow the user the change the order of items in the ListView, by moving the selected items up and down. In the API of ListView control, there is no support for swapping between 2 items. The only way to do that, is by manually swapping all data of the items, including the lParam value and all columns ! |
| Displaying 'Browse Folders' dialog with the default folder selected. The 'Browse For Folder' dialog allows the user to select a folder from all available local drives and network resources. This code snippet demonstrate how to display this dialog-box. |
| Displaying the 'Properties' of a file or folder. When you select a file or folder in Explorer window, and choose 'Properties' from the menu, you get the properties window that contains some essential information about the file: The size of file, created date, modified date, attributes, and so on.It's possible to display this properties window programmatically, by using the ShellExecuteEx API function. |
| Enumerating Windows credentials with CredEnumerate function This code sample enumerates all credentials of the current logged on user,and dump them into the standard output. |
| Utilities With Full Source Code |
| ExeInfo v1.01 The ExeInfo utility shows general information about executable files (*.exe), dynamic-link libraries (*.dll),ocx files, and drivers files. |
| AtNow v1.1 AtNow is a command-line utility that schedules programs and commands to run in the near future. |
| WinExplorer v1.30 WinExplorer is a utility that shows all system's windows in hierarchical display. For every window in the hierarchy, you can view its properties, like handle, class name, caption, size, position and more. You can also modify some properties, like Caption and Visible/Enable. |
| Visual Basic Code Snippets and Utilities |
In the following section, you can find a variety of Visual Basic code samples. For every sample, you can download the entire project for opening in Visual Basic 6.0.
| Revealing the passwords behind asterisks in Internet Explorer This small utility reveals the passwords stored behind the asterisks in the web pages of Internet Explorer 5.0 and above. |
| Creating a real console application in Visual Basic ! Although the Visual Basic compiler doesn't allow officially to create console applications, it's possible to do it with a simple trick. Read more >> |
| Revealing the passwords behind asterisks This code snippet scans all opened windows, and reveals the passwordsbehind the password text-boxes. |
| Access 95/97 Password Revealer This small utility reveals the database password of Microsoft Access files. It works only with version 95 and 97 of Microsoft Access. |
| System resources in Windows 95/98 This code snippet shows the percentages of free system resources in Windows 95 and Windows 98. |
| Fast string concatenation With this class, you can concatenate small strings into one big string in faster way than the standard '&' operator. |
| Using bidi32.dll for Logical-Visual conversion This code snippet is designated for using in bidirectional systems only (Hebrew and Arabic). It uses the functions in bidi32.dll to convert strings from Visual to Logical and from Logical to Visual. |
| Painting a Gradient between 2 colors on a form This code snippet shows how to paint a gradient on a form using Win32 API. |
| Drawing a rotated text on a form This code snippet demonstrate how to draw a rotated text on a form. |
| Creating a circle shaped window This code snippet demonstrates how to create a circle shaped window, by using a few Win32 API calls. |
| Web client tester With this small utility, you can send HTTP queries and see how the servers responds to those queries. |
| Faster items adding in ComboBox This code snippet shows you how to add combo items with Win32 API. It's much faster than using the AddItem method of VB. |
| Faster items adding in ComboBox (with item data) This code snippet shows you how to add combo items (both strings and items data) with Win32 API. It's much faster than using the AddItem method of VB. |
| Executing Control Panel applets This code snippet shows how to run standard Control Panel applets (Display Properties, Reginal Settings, Mouse Properties, and more)from Visual Basic code. |
| Converting network drive-based path to universal path name This code snippet shows how to use the WNetGetUniversalName for convertingnetwork drive-based path (Like I:windows) to universal path name (Like MyComputercwindows) |
| Opening special Explorer windows This code snippet shows you how to open special Explorer windows, like My Computer, Control Panel, Printers, Fonts and more... |
| DoEvents alternative function This code snippet shows how to create an alternative function for the standard DoEvents function. |
| Registering and using a new window class This code snippet shows you how to register a new window class in Visual Basic anduse that class to create new windows, and show them on a form. |
| Displaying and using a dialog box from external DLL file This code sample shows you how to display a dialog box from external DLL file.In this sample, the standard 'Run' dialog of Microsoft Windows is shown on the screen. |
| Displaying the 'Shut Down Windows' dialog This code snippet displays the 'Shut Down Windows' by using undocumented API in shell32.dll |
| Getting the filename of an ActiveX class name |
Visual Basic 6 Sample Code
This demonstrates displaying some message boxes using the MsgBox function. Add three command buttons called cmdExample1, cmdExample2 and cmdExample3. Add the code below, and then run your project
Visual Basic Source Code Examples
Option Explicit
Private Sub cmdExample1_Click()
Start:
Dim Msg As String
Dim Icon As Integer
Dim Title As String
Dim Buttons As Integer
Dim Ans As VbMsgBoxResult
' Fill Message string
Msg = 'Select Abort to Cancel, Retry to try again and Ignore to ignore this problem' & Chr(vbKeyReturn)
Msg = Msg & 'This is the second line' & Chr(vbKeyReturn)
Msg = Msg & 'You can do this by using Char code 13'
' Set dialog Title
Title = 'Msgbox Example - Abort Retry Ignore'
' Set icon to critical (X)
Icon = vbCritical
' Set buttons to abort, retry and ingnore
Buttons = vbAbortRetryIgnore
Buttons = Buttons + vbDefaultButton2 'set default button to retry
Ans = MsgBox(Msg, Buttons + Icon, Title)
'alternatively, simply
'Ans = MsgBox(Msg, vbAbortRetryIgnore + vbDefaultButton2 + vbCritical, 'Msgbox Example - Abort Retry Ignore')
' If the user clicked Retry, try again
If Ans = vbRetry Then
GoTo Start
' If the user clicked abort exit procedure
ElseIf Ans = vbAbort Then
Exit Sub
End If
End Sub
Private Sub cmdExample2_Click()
Dim Msg As String
Dim Ans As VbMsgBoxResult
' Fill Message string
Msg = 'This may take a while. Click OK to continue' & Chr(vbKeyReturn)
Msg = Msg & 'If you click Cancel, to abort'
' Set icon to information (question mark)
' Set buttons to OK and Cancel
' Show Message Box
Ans = MsgBox(Msg, vbOKCancel + vbInformation, 'Msgbox Example - OK Cancel')
' If the user clicked cancel...
If Ans = vbCancel Then
MsgBox 'Cancelled'
Exit Sub
End If
End Sub
Private Sub cmdExample3_Click()
Dim Ans As VbMsgBoxResult
' Set icon to exclamation mark
' Set buttons to OK and Cancel
' Show Message Box
Ans = MsgBox('Are you sure you want to continue?', vbYesNo + vbExclamation, 'Msgbox Example - Yes No')
' If the user clicked no exit sub
If Ans = vbNo Then
Exit Sub
End If
End Sub