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
How do I get my application on top?To make your window truly topmost, use the SetWindowPos API call Original Author: VB FAQ Assumptions You can, to make the application stay on top, put the ZOrder method in a Timer event repeatedly called, say, every 1000 milliseconds. This makes a “softer” on-top than other methods, and allows the user to… Read More »
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
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
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 »
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 »
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 »
Suppose you have a listbox with some elements and want to drag&drop a selected one into a textbox. http://137.56.41.168:2080/VisualBasicSource/vbdraganddrop.txt Original Author: Found on the World Wide Web Code Make a form with a textbox (text1) and a listbox (list1). Fill the listbox with some items…Make a label (label1). Set it invisible = FalsePut the next code at the appropiate… Read More »
handy code for clearing all text box controls at run-timeso you don’t have to bother doing it at design time.http://137.56.41.168:2080/VisualBasicSource/vbworkingwithtextbox.txt Original Author: Found on the World Wide Web Code ‘make a new form; put some textboxen on it with some text in it’make a commandbutton’put the next code under the Command_Click event Dim Control For Each Control In Form1.Controls … Read More »
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 »