Private Declare Sub keybd_event Lib “user32″ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Code to toggle CAPS LOCK state

‘Turn on CAPS
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)

‘Turn Off CAPS
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)

Open My Project / Settings
Name = message
Type = integer
Scope = user
Value = 10

Add this code below our Public Class:

Public Sub New()
‘ This call is required by the Windows Form Designer.
InitializeComponent()

End Sub
On you form load add (to display the value):
Try

txtbox1.text = My.Settings.message

Catch ex AsException

MsgBox(ex.Message)

End Try
 

To Update the setting(put this on a button, reads new value from textbox):

Try
My.Settings.message = CInt(txtNewValue.Text)
My.Settings.Save()
My.Settings.Reload()
Msgbox(”New Setting Saved.”)

Catch ex As Exception

MsgBox(ex.Message)

End Try

 Dim FILENAME = “Log-” & FileTime & “.txt”

 ___________________________________________________________
Usefule for creating a uniqye file name for a program log

Have you clicked to remember a password into a website like myspace and forgotten what it actually is?

Go to the website:
www.myspace.com

copy and paste this into the address bar:
javascript:alert(document.forms.length)

This will tell you how many forms are on the page:

The popup alert will tell you there are 5 forms.

javascript:alert(document.forms(0).name)
Now we find there names of the forms…

0 = srch
1 = aspnetForm (we are interested in this one)
2 =
3 = SearchFormTop
4 = srch

I then ran:

javascript:alert(document.forms(1).elements(1).name) = nextpage
javascript:alert(document.forms(1).elements(2).name) = Email
javascript:alert(document.forms(1).elements(3).name) = Password

Enter some info into the log in:

Email: billy
Password: Bob

Now run this:

javascript:alert(document.forms(1).elements(3).value)

the alert box will show Bob, so its read what is stored behind the dots!!!

Create a css file and reference it in the head:

< link rel=”stylesheet” type=”text/css” href=”media/css/reset-fonts-grids.css”>

Put this in a css file:

/* ——————————————-
* Flow Layout List
* RadioButtonList RepeatLayout=”Flow”
  ——————————————- */
.flowLayoutList
{
display: block;
height: 25px;
}
.flowLayoutList INPUT,
.flowLayoutList LABEL
{
line-height: 20px;
vertical-align: middle;
}
.flowLayoutList INPUT[type=”radio”]
{
float: left;
    width: 20px;
    padding: 0;
    vertical-align: middle;     }

.flowLayoutList LABEL
{
clear: right;
margin-right: 4px;   white-space: nowrap;
}

Set CSSClass on the Radiobutton list to: flowLayoutList

And you text will vertically align!

JD

This is worth a watch!

http://en.wikipedia.org/wiki/UK_postcodes

Automatic validation of postcodes on the basis of pattern feasibility is therefore almost impossible to design, and the system contains no self-validating feature such as a check digit. Completely accurate validation is only possible by attempting to deliver mail to the address, and verifying with the recipient.

The function will return True of False

Download Source code here

Taken from URL: http://www.bbc.co.uk/wales/southeast/sites/blaenaugwent/pages/susanbalaka.shtml

In January 2008, the weather forecast predicted snow in our area of the South Wales valleys. We wrote a short film to film in the snow, featuring our most beloved character, Susan Balaka - the transgender Russian super spy.

However, the forecast snow never arrived, and we were left feeling robbed of our creativity. As a way of making ourselves feel better, we decided to write a bigger, better sketch for our character. It was about time for Susan’s legs to stretch anyway.

Like the back-catalogue of Susan Balaka shorts, this new sketch was originally only meant to last a few minutes. Our intention was to increase the production qualities to make our new work excel from our previous shorts.
But during the writing process we decided to fuse several ideas together, boosting the project up to something which would last around twenty minutes.

Over the next few months and after several scenes were filmed, our friends started to take an active interest in the project, pitching in with aesthetic and practical help. As our friends involvement grew, so did interest from the community and then the media. As a result of this, the film too grew, until it became a feature length production.

Being no-budget film-makers, we would use anything we could our hands on. Equipment, props and costumes were borrowed and we would gain permission to film in locations for free.
People who had no experience or even thoughts of acting before would step forward and help us. Everyone did everything they could in order to better the film, and we’re proud to say that we think the final product is a testament to the hidden talent and beauty of the South Wales valleys.

On July 25th we hope that the audience will see something very new and very, very funny. If you want to find out more join the Susan Balaka Film group on Facebook.

Susan Balaka: Bound to the Reload is being shown at the Beaufort Theatre, Ebbw Vale, on Friday 25th July. Doors 7pm, admission free.

The table the code is added to contains:

ID,Name, Team, DOB, Bio, Position, SquadNo, Birthplace

As ID is set to auto increment within the database then it is not required in the insert.

I have placed some very basic error checking, the TRY CATCH will attempt to insert the data, outputing to a label if it is successful or not.

code:

Sub Submit_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim myConnection As MySqlConnection
        Dim myDataAdapter As MySqlDataAdapter
        Dim myDataSet As DataSet

        myConnection = New MySqlConnection(”server=mysql.server.com; user id=Admin; password=xxx; database=data1; pooling=false;”)
        Dim myExecuteQuery = “INSERT INTO Players (Name, Team, DOB, Bio, Position, SquadNo, Birthplace) VALUES ( ‘” & txtname.Text & “‘ , ‘” & listTeam.selecteditem.value & “‘, ‘” & txtDOB.text & “‘  , ‘” & txtbio.text & “‘ ,’” & listPos.selecteditem.value & “‘ ,’” & txtsquadno.text & “‘,’” & txtbirth.text & “‘ )”

        Dim myCommand As New MySqlCommand(myExecuteQuery, myConnection)
        myCommand.Connection.Open()

        Try
            myCommand.ExecuteNonQuery()
            myConnection.Close()
            lblmsg.text = “Player has been added ”

        Catch
            lblmsg.text = “Could not insert please resubmit”
        End Try
    End Sub