Writing an application that returns an ERRORLEVEL to Dos is quite difficult in VB6, because you are forced to use a Windows API that ends the application immediately, thus preventing
The System.Math class exposes several static methods that let you perform many common operations. These functions replace the VB6 functions with same name, but there are a few new functions
Everybody knows the game of Life, where a program simulates the life of a cell colony that is subject to strict survival rules. This VB6 super-optimized implementation is so fast
The GetFolderPath method of the Environment class lets you retrieve the path of several important system directories. For example, here’s how you determine the path of the Desktop directory for
In VB.NET you don’t need to call the GetWindowsDirectory and GetSystemDirectory API functions to retrieve the path the Windows and System directories. Retrieving the System directory is as simple as
You can easily retrieve information about the current user by means of a few properties of the Environment class. The Environment.UserName returns the name of the user; the Environment.UserInteractive property
You don’t need to call any Windows API function in VB.NET to determine which version of Windows your application is running on, because this information is exposed by the Environment.OSVersion
There is no method call that directly retuns information about the number and type of installed CPU(s). However, this information is stored in a few environment variables, so it’s just
‘ Determine which element of an option button control array was selected’ Returns -1 if no control has been selected’ Use : OptSelected = GetSelectedOption(Option1)Function GetSelectedOption(Opt As Object) As Integer
‘ Append a backslash (or any character) at the end of a path’ if it isn’t there alreadyFunction AddBackslash(ByVal Path As String, Optional ByVal ch As Char = “”c) _
When you resize a ListView control (this happens automatically if the ListView is docked to the form, and the user resizes the form), it’s nice to have the last column
‘ Change the extension of a file name’ if the last argument is True, it adds the extension even if the file doesn’t ‘ have oneFunction ChangeFileExtension(ByVal FileName As String,
Sometimes you may need to hide or show some pages of a TabControl according to the information you want to show, basing on the currently logged-in user for example (users
‘ This class does the owner drawing of a MenuItem to draw a color box.’ The class inherits from MenuItem, thus the ColorMenuItem objects’ can be added to a parent
‘ Not all fonts support the same styles. This function takes in ‘ input a font family and a font style, and returns a font style’ which is safe for
icrosoft’s recent release of the SQL Server 2000 Driver for Java Database Connectivity (JDBC) reminded me of my first big Java project. I worked on a basic two-tiered system in
You can extract RGB values out of a 32-bit color value by using the integer division and the MOD operators, but there is a much more effective way, based on
eductionism is an ongoing attempt to explain complex ideas in terms of a relatively few simple or primitive ones. As such, reductionism is the heart of programming. Over the past
he concept of threaded programming isn’t new; most modern operating systems provide support for threads in some fashion. However, as widespread as threads are, the number of developers who have
avaJe XE 1.0 (recently renamed SavaJe OS) is an operating system designed for mobile devices, in particular the Pocket PC-based Compaq iPAQ. The thing that makes SavaJe noteworthy is that
ecause Oracle does not provide a tool for outputting messages in real-time, Oracle database developers have always faced the challenge of monitoring their stored procedure execution in real-time. They’ve had
he first step in my initiation as a SQL Server admin came after only a week or two on the job. I was confronted with a message that made my
‘ Add a style to the selection of a RichTextBox,’ without deleting the current styles that may be already’ present in the selection or in portions of it” Example: AddFontStyle(richTextBox1,
‘ Remove a style from the selection of a RichTextBox’ Example: RemoveFontStyle(richTextBox1, FontStyle.Bold)Public Sub RemoveFontStyle(ByVal rtb As RichTextBox, _ ByVal style As System.Drawing.FontStyle) ‘ if the selection length is >
‘ Copy the RichTextBox’s selected text into the Clipboard’ Example: CopyFromRichTextBox (richTextBox1)Public Sub CopyFromRichTextBox(ByVal rtb As RichTextBox, _ Optional ByVal availableAfterEnd As Boolean = False) Dim data As New DataObject()
‘ Set the specified font to the selection of a RichTextBox’ Note: require GetSafeStyleForFontFamily” Example: SetFontFamily(richTextBox1, “Times New Roman”)Public Sub SetFontFamily(ByVal rtb As RichTextBox, ByVal fontName As String) Dim fontFam
‘ Paste the text currently in the Clipboard into the specified RichTextBox’ Example: PasteIntoRichTextBox (richTextBox1)Public Sub PasteIntoRichTextBox(ByVal rtb As RichTextBox) ‘ get the data currently in the Clipboard Dim data
‘ Set the specified font size to the selection of a RichTextBox’ Example: SetFontSize(richTextBox1, 16)Public Sub SetFontSize(ByVal rtb As RichTextBox, ByVal fontSize As Single) ‘ if the selection length is
he Web services programming model is breaking down the barriers of cross-platform and cross-language communications. Because it works through simple XML-formatted text messages, code written in any language should be
oftware systems rarely remain static once they are put into production. Most businesses undergo changes to their processes and so the systems that support them must constantly be modified to