Code:
If e.KeyValue = Keys.Up Then piccar.Top = piccar.Location.Y - 6 ElseIf e.KeyValue = Keys.Down Then piccar.Top = piccar.Location.Y + 6 End If
If e.KeyValue = Keys.Up Then piccar.Top = piccar.Location.Y - 6 ElseIf e.KeyValue = Keys.Down Then piccar.Top = piccar.Location.Y + 6 End If
listBox.list(?) = "what ever"
Private Sub save_button_Click() if combobox1.Listindex < 0 then ' Not Selected Code else 'Selected Code endif end sub
Dim test As Integer Private Sub Command1_Click() test = Abs(test - 1) Timer1.Enabled = (test = 1) End Sub Private Sub Timer1_Timer() do your code End Sub
Private Sub Command1_Click() On Error GoTo errHandle PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\robert.lacour.RBG0\Desktop\dans vb stuff\pic\warrior.jpg") Exit Sub errHandle: your code here End Sub
Private Sub Combo1_Change() [or _Click()] Label1.Caption = Combo1.Text End Sub
public variable1 as string public variable2 as string ... your code ... variable1 = "hello" variable2 = variable1 + "there" ... if variable1 = "hello" then end if
Private Sub Command1_Click() PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\robert.lacour.RBG0\Desktop\dans vb stuff\pic\warrior.jpg") End Sub
Leave a comment: