|
|
|
|
|
|
|
|
 |
QuickSort - Sort Arrays using the QuickSort Algorithm
|
| Total Hit (1746) |
«Code LangId=1»' QuickSort an array of any type
' QuickSort is especially convenient with large arrays (>1,000
' items) that contains items in random order. Its performance
' quickly degrades if the array is already almost sorted. (There are
' variations of the QuickSort algorithm that work goo
....Read More |
Rating
 |
|
|
|
GetAttrDescr - The attributes of a file in a readable format
|
| Total Hit (2606) |
«Code LangId=1»
' The attributes of a file in a readable format.
' It works also with open files, raises an error if the file doesn't exist.
Function GetAttrDescr(filename As String) As String
Dim result As String, attr As Long
' get file attributes as a bit-coded field
attr =
....Read More |
| Rating
|
|
|
|
|
|
|
|
Download a file with one API call
|
| Total Hit (3633) |
If you have Internet Explorer 5 or later version, you can use an API call to download a file from the Internet withouth displaying any message box.
«Code LangId=1»
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As Strin
....Read More |
Rating
 |
|
|
|
Cascade all the child windows of a window
|
| Total Hit (3136) |
The Windows API provides an handy function that lets you cascade all the child windows of another window with one single call. The effect of this function is similar to the Cascade Windows command in most MDI apps, except the parent window doesn't have to be an MDI window.
This is the (incorrect)
....Read More |
| Rating
|
|
|
|
Create explicit Field objects when looping on large Recordsets
|
| Total Hit (2572) |
Whenever you access a database field through the Recordset object you incur in a slight overhead. Take for example the following code snippet:
«Code LangId=1»
Dim rs As New ADODB.Recordset
rs.Open "SELECT au_lname, au_fname FROM authors", "DSN=pubs", , , adCmdText
Do Until rs.EOF
List1.
....Read More |
Rating
 |
|
|
|
Open and close the CD drive's door
|
| Total Hit (3120) |
Here's a short code snippet that lets you programmatically open and close the CD door. Note that not all the CD drives support these functions:
«Code LangId=1»
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnStr
....Read More |
| Rating
|
|
|
|
Determine how a control got the focus
|
| Total Hit (2343) |
At times it might be convenient to know how a given control got the focus, namely by means of the Tab key, an associated hotkey or a click of the mouse. You can learn this information through the GetKeyState API function, that returns the current state of a key. Here is a simple function that is mea
....Read More |
| Rating
|
|
|
|
The number of days in a month
|
| Total Hit (3777) |
You need just one-line function to evaluate the number of days in a month (while taking leap years into account, of course). The trick is to use the DateDiff and DateSerial functions to calculate the difference between the first day of the current month and the first day of the subsequent month :
....Read More |
Rating
 |
|
|
|
Retrieve the currency symbol
|
| Total Hit (3042) |
It is very simple to retrieve the correct currency symbol, using just plain VBA statements:
«Code LangId=1»
currSymbol = Trim$(Replace(FormatCurrency(0,0), "0", ""))
«/Code»
If you can also determine if the symbol precedes or follows the currency amount using this method: «Code LangId=1»
If
....Read More |
| Rating
|
|
|
|
Use the right type for constants
|
| Total Hit (3007) |
VB stores symbolic and literal constants internally using the simplest data type possible; this means that most common numeric constants-such as zero or one-are stored as Integers. If you use these constants in floating point expressions you can speed up your code using a constant of appropriate typ
....Read More |
Rating
 |
|
|
|
Implement the CallByName function using the TLI library
|
| Total Hit (5387) |
Thanks to the undocumented TlbInf32 library you can emulate the VB6 CallByName() function in VB5 too. First, add a reference to the "TypeLib Information" type library in your project. This library contains the InvokeHook function, which is very similar to CallByName.
Let's suppose you have an Act
....Read More |
| Rating
|
|
|
|
How to retrive and delete all internet cache entries?
|
| Total Hit (4773) |
In this article I will show you the use of FindFirstUrlCacheEntry, FindNextUrlCacheEntry, FindCloseUrlCache and DeleteUrlCacheEntry APIs. First three APIs are used to retrive cache entries and DeleteUrlCacheEntry is used to delete a specific entry from the cache.
Here is the example
«b»Step-By
....Read More |
| Rating
|
|
|
|
|
|
How to use BeginPath and EndPath to fill open shapes.
|
| Total Hit (4310) |
Have you ever tried to fill shapes which are drawn by Polyline or PolyBezier which doesn't draw closed figures. The problem is its not closed figure so you cannot fill using regular fill method which works very well with closed figures. The solution to this problem is BeginPath and EndPath apis
Y
....Read More |
| Rating
|
|
|
|
Get the List of all the Active Tasks
|
| Total Hit (3634) |
API Declarations
«Code LangId=1»
Option Explicit
' API Constants
Const WS_MINIMIZE = &H20000000 ' Style bit 'is minimized'
Const HWND_TOP = 0 ' Move to top of z-order
Const SWP_NOSIZE = &H1 ' Do not re-size window
Const SWP_NOMOVE = &H2 ' Do not reposition window
Const SWP_SHOWWINDOW = &
....Read More |
| Rating
|
|
|
|
|
|
|
|
How to Determine Selected ListItems
|
| Total Hit (1279) |
A quick routine to demonstrate using SendMessage with LVM_GETSELECTEDCOUNT and LVM_GETNEXTITEM messages to traverse a listview to retrieve the indices to the selected items in a MultiSelect control. Also contains a portion of the LVM_SUBITEMHITTEST code from How to Deselect ListItems on Clicking a L
....Read More |
| Rating
|
|
|
|
Creating a Common Control Progress Bar - Overview
|
| Total Hit (1418) |
The following is an explanation of the messages and structures used by the Windows Progress Bar common control, written by Brad Martinez and provided for distribution on VBnet.
The Windows Common Controls API continues to grow as more features are added. Currently, comctl32.dll contains the follo
....Read More |
| Rating
|
|
|
|
|
|
Enumerating the Installed and Supported System Locales
|
| Total Hit (1562) |
In addition to locale information pertaining to the current system setting, the EnumSystemLocales API provides the means to enumerate via callbacks all supported or installed national language support for a given system. Armed with the country LCID's returned by the call, an application can retrieve
....Read More |
| Rating
|
|
|
|
HiWords and LoWords from Long Values
|
| Total Hit (697) |
When translating C code to VB, you quite often come across the HiWord and LoWord operators, used to pack two integers into a long value. A simple translation of HiWord code will run into difficulties when unsigned integer arithmetic is being used in the C code and the highest bit of the long value c
....Read More |
| Rating
|
|
|
|
Storing Objects Against ItemData and Tag properties
|
| Total Hit (1876) |
ListBox and Combo boxes have an ItemData property to allow you to store an additional long value against each ListItem. Similarly, ListView items and TreeView nodes have a Tag property which can be used to store a string. But what if you want to associate more data along with an item? Clearly you ca
....Read More |
| Rating
|
|
|
|
vbAccelerator S-Grid Control
|
| Total Hit (2265) |
The SGrid control is an all-VB grid which can emulate the Outlook messages list, including grouping of messages and message preview. The highly optimised display code makes this grid draw faster than FlexGrid and other VB grids even while it allows more sophisticated displays to be set up. It is als
....Read More |
| Rating
|
|