spyka webmaster

Center form on load

in vb6

Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 End sub

Center a form on the screen on load. Centers the form that the code is put into when it first loads up.

Select code

Check if value is decimal

in vb6

Function isDecimal(ByVal i As Variant) As Boolean isDecimal = False parts = Split(i, ".") If (UBound(parts) - LBound(parts) + 1) > 1 Then If parts(1) > 0 Then isDecimal = True End If End If End Function

Check if a value is decimal. Accepts values in both long/integer and string data types. Using this function a value such as 25.0 is not counted as a decimal.

Select code

Clear form

in vb6

Public Sub clear_screen() frmName.Cls End Sub

Clears a form of all drawings (namely those greated with the .line method)

Select code

Remove all whitespace from string

in vb6

Public Function remove_whitespace(str As String) As String Dim current_char As Variant Dim new_str As String For i = 1 To Len(str) current_char = Mid$(str, i, 1) If current_char = " " Then current_char = "" End If new_str = new_str & current_char Next i remove_whitespace = new_str End Function

Remove all the whitespace from a string. This removes every instance of a space in the given string returning the new string as a string for Visual Basic 6 (VB6)

Select code

VB6 array count

in vb6

Public Function array_count(vbArray As Variant) Dim count As Integer count = UBound(vbArray) - LBound(vbArray) + 1 array_count = count End Function

A function to count the elements in an array in Visual Basic 6

Select code

Delete file

in vb6

Kill "C:\Documents\example.txt"

This line of VB code removes the file example.txt

Select code

Create and write to file

in vb6

Private Sub Form_Load() Open "C:\Documents\example.txt" For Output As #1 Write #1, "Hello world!" Close #1 End Sub

Create a file called example.txt and write the text Hello world! into it

Select code

Convert a string to upper/lower case

in vb6

Dim simpleString As String simpleString = "tHis IS a sTriNG" MsgBox LCase$(simpleString) MsgBox UCase$(simpleString)

Convert a string to either upper or lower case with the LCase and UCase functions

Select code

Disable text box

in vb6

Private Sub Command1_Click() Form1.Text1.Enabled = False End Sub

Disable text box on commandButton click. Be sure to update the control names to make it work!

Select code

Check file exists

in vb6

Dim fileLocation As String fileLocation = "D:\folder\file.txt" If Dir$(fileLocation) = "" Then MsgBox "File does not exist" Else MsgBox "File does exist" End If

A Visual Basic 6 code snippet to check if a given file name exists

Select code

PHP, Javascript, CSS & mySQL code snippets