free css templates

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

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

Public Sub clear_screen() frmName.Cls End Sub

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

Select code

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

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

Kill "C:\Documents\example.txt"

This line of VB code removes the file example.txt

Select code

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

a:focus { outline:none; }

A CSS snippet which removes the often ugly dotted outline around links (anchor tags)

Select code

SELECT COUNT(*) from `table` WHERE `field` = 'value'

This query will return the amount of records for the query

Select code