This ONE LINE of code will make a form stay on top of your application. This is good to use for toolbars, search forms, and so on. This WILL NOT make the form stay on top of all running applictions, only yours. Original Author: Mr Hanna Assumptions Need Two forms, the second form being smaller then the first. Side… Read More »
Checks if a file exists.If you have anyquestions fax me at 1(305)847-0621dont forget to visit my website for more codes and full program source codes + forms available for downloading Original Author: Greg G API Declarations none- if this doesnt work go to i3usy.8m.com Code Public Function FileExists(strPath As String) As Integer FileExists = Not (Dir(strPath) = “”)End Function
A Easy way to READ/WRITE and DELETE from the registry.I’ve designed this class to be as easy as posible to use.To read write and delete from the registry is actually easy (if you know how). With this code you can be a pro in the regestry without realy working with the nitty-gritty of the API Call’s etc. Hope… Read More »
This allows a user to sort the contents of a listview by clicking on a column header in report-mode. Clicking again will sort descending. Original Author: Adam Hansen Assumptions This assumes that a ListView named ‘ListView1’ exists on a form, and that code exists to put values into it. Also, the ListView style-property must be ‘report’.Paste the code into… Read More »
Makes a little pong style game Original Author: Matthew Eagar Assumptions Nothin much, just a very basic knowledge of VB programming. Code Dim vmom As Integer ‘holds the ball’s vertical momentumDim hmom As Integer ‘holds the ball’s horizontal momentum Private Sub Form_Load() Randomize ‘make the vertical and horizontal momentums random vmom = 100 + Int(Rnd * 200) hmom = 100 + Int(Rnd *… Read More »
This code reads a CD’s Identification Number and then access the CDDB for a list of Tracks and information about the CD. Original Author: Brian Returns CDDB Information Side Effects Works best with VB6 and could cause VB5 to crash (But it very rarely does that) API Declarations ‘Put the following code in a CLASS MODULE named CCDOption Explicit‘… Read More »
This code generates a moving 3D star field, almost identical to the windows ‘flying through space’ screen saver, except this runs in a window of any size, and when the user moves the mouse over it, they can change the camera angle, which I suppose could make a neet game back ground for an outter space filght sim.… Read More »
This code gives the “enter” key the same functionality as the “tab” key in a vb form. When the user presses the “enter” key, it moves the focus to the next control, based on the tab index order. Don’t forget to set the KeyPreview property of the form to True. (My thanks to Pennington. His TabToEnter2 code laid… Read More »
This code shows a circle bouncing off of the sides of the form like Jezzball (But not as good). Original Author: Ben Doherty Assumptions you need to make 2 timers named Timer1 and Timer2, make a circle shapeand name it pic. set the background color to black. Code Private Sub Form_Load()Form1.Height = 4770Form1.Width = 5865Form1.BackColor = &H0pic.BorderColor = &HFF&pic.Top… Read More »
This code pastes into a Module that Create (if not exists) a MDB to record the errors that occur in your application. Original Author: WalkerBro Inputs Needs (DatabaseName, Date, Err.Number, Err.Description, PrivateNotes, Optional(User))Load in “References” the “Microsoft DAO 3.51 Object Library” Assumptions Basic Error handling information. Returns True or False if it was succesful. Side Effects No known side… Read More »