Show how to make a text box not beep but do something else when I hit the Enter key. This code example makes nothing happen, for an extended period of time: Original Author: VB FAQ Code Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then ’13 is Key_ReturnKeyAscii = 0End If End Sub

Forgot your access 97 password?Never fear this function willhack the access 97 local filepassword Original Author: Tom Pickles Inputs an access 97 file with local password set Assumptions I hope this code will end the commercial password recoverers Returns the password API Declarations Original code translated direct from c snippet by Casper RidleyFrom the c code at http://www.nmrc.org/Turned into… Read More »

IP Break Out Box is a program that sits between a client program and a server. Once activated it displays every bit of data exchanged between the client and the server. Example: Set the remote host = www.yahoo.com, remote and local port = 80, Then click listen. next open up your web browser and type in the ip… Read More »

Format Floppy Disk using API:Here is the code on How to Format Floppy Disk using API. Note — This code can format your Hard Disk as well, so you should be careful!!!! Original Author: Duncan Diep API Declarations Private Declare Function SHFormatDrive Lib “shell32” _(ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _ByVal options As… Read More »

Validates whether a given hard/floppy/network drive is valid Original Author: Ian Ippolito (psc) Inputs strDrive–drive to validate Returns i the dirve exists returns TRUE, otherwise FALSE Code Function Validate_Drive (ByVal strDrive As String)   On Error GoTo BAD2    ‘Dim strOldDrive As String    ‘strOldDrive = Get_Drive_Name(CurDir$)    ChDrive (strDrive)    ‘ChDrive (strOldDrive)  On Error GoTo 0  Validate_Drive = TrueExit FunctionBAD2:  Validate_Drive = False  Resume Exit2Exit2:  Exit Function End Function

Dumps a string to a file Original Author: Ian Ippolito (psc) Inputs strString–string to dumpstrFile–file to dump to Code Sub Dump_String_To_File (ByVal strString As String, ByVal strFile As String)  Dim fileFile As Integer  fileFile = FreeFile  Open strFile For Output As fileFile    Write #fileFile, strString  Close fileFile  Dim intReturn  On Error Resume Next  intReturn = Shell(“c:appsutility extpad xtpad16.exe ” & strFile, 1)  On Error GoTo 0End Sub

Need help with geometry?? Well, this thing will do it! Calculate the Area of a circle, triangle, trapazoid, parallelagram, rectangle, square, find the volume of a cylinder, cubes and more! Very simple to use, understand. Also includes formulas so you can do the calculations yourself! Original Author: Dustin Davis Attachments File Uploaded Size CODE_UPLOAD1298.zip 9/3/2020 3:45:00 PM 4927

A module with 24 functions for enhancing the ListView.Resize columns based on Column Caption, Contents, or ListView Size.FullRow Select, GridLines, CheckBoxes, Allow Repositioning of Columns,Track Selected, One-Click Activate, Two-Click Activate,SubItem Images, Check All Items, UnCheck All Items, Reverse Checked Items,Flat Column Headers, Enhanced Sort ColumnsI’m currently working on Column Header Font effects: Bold, Italic, Underline…I will update the… Read More »

To add icons to the Menu items (which is not possible through the menu editor)thus is an easy way to add the icons to menu. u can contact me at haisrini@email.com Original Author: srinivas Attachments File Uploaded Size CODE_UPLOAD1292.zip 9/3/2020 3:45:00 PM 4401

To center all of your forms nicely on the screen, use this as the first line in the Form_Load event–resolution independent.‘note:call this function like this:Center_Form Me Original Author: Ian Ippolito (psc) Inputs frmForm–form to center. Call this function like this:Center_Form Me Code Sub Center_Form (frmForm As Form)frmForm.Left = (Screen.Width – frmForm.Width) / 2frmForm.Top = (Screen.Height – frmForm.Height) / 2End… Read More »