Results for "Author: kamilche"

Given a pathname, this function will return a string containing a list of all files in that folder plus subfolders. Much easier than other examples posted here! A single recursive function, with no API's or special types needed.

This one-line function returns whether or not a string consists of only the characters A-Z, a-z, and 0-9.

A one-liner that resizes a picture to fit the dimensions of a picturebox. No API calls.

A VB replacement for the old WebCam 2000 software, which no longer works under Windows 2000. It's a WebCam with a difference - it doesn't take the picture until a request comes in! This is good for lowering the hits on your CPU AND bandwidth, because it doesn't waste its time taking a picture and uploading it every 5 minutes like most WebCams do. It sits on port 2000, and when a request comes in, it grabs the picture via TWAIN, saves it as a JPG, and sends the picture to the person.

Stop the infernal blinking of the scrollbar in VB6.

Drag a form that has no titlebar! Add the routine listed below, and call it in the 'MouseDown' event of the form (or a control on the form): MoveWindow Me.Hwnd

A simple video capture program, in only 44 lines of code. Now includes a button to change video size, and a button to change video source. For a more complete implementation, go to Ray Mercer's site at www.shrinkwrapvb.com

Displays a 3D room with textures and lights, and lets the user move around in it. Uses DirectX Retained Mode.

Via API calls, has the user choose a directory. No commondialog needed!

This is the complete code for a VB IDE addin that will add error handling to your procedure. Requires that you have a routine called "HandleError" in a public module accessible to all routines. Sample HandleError routine follows: Public Sub HandleError(ByVal CurrentModule As String, ByVal CurrentProcedure As String, _ ByVal ErrNum As Long, ByVal ErrDescription As String) On Error GoTo Err_Init MsgBox CurrentModule & " " & CurrentProcedure & ": " & ErrNum & " - " & ErrDescription Exit Sub Err_Init: MsgBox CurrentModule & " HandleError: " & Err.Number & " - " & Err.Description End Sub The best VB code handles errors in every routine - this makes the program very robust. However, there's no easy way to determine WHICH routine failed once you're inside of your global error handler 'HandleError'. Therefore, you must pass the routine name to the global error. This can be very tedious! :-O This addin adds an 'On Error Goto Err_Init' to the beginning of the routine, and an 'exit function', 'exit sub', or 'exit property' statement plus the error handling code at the bottom. To add error handling to a routine, place the cursor anywhere in the routine code, and choose 'Add Error Handling' from the 'Add-Ins' menu. The code this routine adds, looks like this: Exit (sub, function, or property here) Err_Init: HandleError CurrentModule, "(your routine name here)", Err.Number, Err.Description Note that it will automatically determine which sort of 'exit' statement is necessary, and what the name of the current procedure is, and pass the procedure name to the error handler.

Inserts text files at desired spots in the code before compiling. Doesn't modify original source!

Prints out a 'table of contents' for your Visual Basic program, which contains method names, syntax, and comments only. Useful as 'cover sheets' for the actual code printout.

A function that returns whether or not the shift key is currently down.

This example performs a quicksort on multiple keys, on an array of UDT's in memory.

Inspired by the 'Sparks' example entered by Itay Sagui, this demo shows how to display sparks flying out of your mouse, against a background picture, with a programmer-defined color.

Are you tired of Outlook and Outlook Express hanging your machine, and letting the KAK virus in? Well, I am too, so in response, I made EZMailer, a simple email program that sends and receives mail, PERIOD. It doesn't attempt to interpret or auto-execute ANYthing, thus sparing you from the vagaries of security loopholes in 'advanced' mail programs. This program receives incoming mail from a POP3 server, sends outgoing mail through an SMTP server, handles MIME attachments, multiple users, and automatically routes incoming mail to folders based on criteria you specify. Note that to successfully execute this code in the runtime environment, you must own Apex Software's TrueDBGrid Pro, www.apexsc.com; and Funduc's Encode/Decode DLL, www.funduc.com

Displays the number of days, hours, minutes, and seconds till a specified date. Allows you to enter multiple dates. Illustrates how to use the new ListView control in VB6, saving and retrieving from the registry, and the datediff function.

BlitEngine is a 'mini graphic engine' suitable for games. It uses no DirectX - these are pure GDI API calls. It illustrates several concepts, including transparent blitting, 'dirty rectangle' processing, double buffering, multiple on-screen sprites on the screen, loading pictures into memory bitmaps instead of picture boxes, 8-bit vs. 24-bit color, 'inverse masks' which enable transparency, tracking frames per second, animating graphics on the screen, implementing a 'demo' mode, and more. With this app, I get 42 frames per second on a 233 mhz Pentium and 140 frames per second on a 350 mhz Compaq. What speed do YOU get, on what machine?

Adds the text to a textbox, checking for length overflow. First, it checks, and if the textbox exceeds 15,000 characters, it strips out all but the last 2000 characters to make room for the new text. It doesn't break in the middle of lines - it only deletes 'whole lines.' Then it adds the text to the end, using the color you specified (if any), and scrolls to the end of the textbox. I use it all the time, got tired of cutting/pasting out of old projects, thought I'd put it here on PSC.

Start and kill a timer using API calls only! Useful when you need timers that can't be placed on a form.