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 »

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 »

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 »

This program demonstrates how to create a screen saver in Visual Basic, it also shows how to make scrolling credits that fade in and out of the screen.The Fading, Scrolling credits:-Useful for end credits for a game etc.Easy to adapt for you own programs.Only one label and one timer are required at design time.Creating your own Screen Saver:-In… Read More »

u can contact me at haisrini@email.comAdd nodes to a TreeView at run time.(u can drag and drop the nodes with in a tree structure(it will check whether it can be dropeed there or not) Original Author: srinivas Attachments File Uploaded Size CODE_UPLOAD1276.zip 9/3/2020 3:45:00 PM 7355