Click here to Skip to main content

VS 2012/2013 & .NET 4.5.1

 
GeneralRe: How to query database using Entity to SQL PinmemberADSCNET13-Apr-13 3:06 
GeneralRe: How to query database using Entity to SQL PinprofessionalRichard Deeming15-Apr-13 1:27 
GeneralRe: How to query database using Entity to SQL PinmemberADSCNET15-Apr-13 1:52 
Questiondeploy vsto Excel template in intranet [modified] Pinmemberwassim_mar2-Apr-13 0:16 
QuestionCrystal report groups PinmemberTufail Ahmad25-Mar-13 3:11 
Questionsnake game error, moving randomly. [modified] Pinmembersrinivasankrishnaa28-Feb-13 3:57 
AnswerRe: snake game error, moving randomly. [modified] PinprotectorPete O'Hanlon28-Feb-13 4:04 
GeneralRe: snake game error, moving randomly. Pinmembersrinivasankrishnaa28-Feb-13 4:45 
Public Class Form1
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = Val(Label1.Text) +10

End Sub
 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
OvalShape1.Location = New Point(OvalShape1.Location.X, OvalShape1.Location.Y - 1)
OvalShape3.Location = New Point(OvalShape3.Location.X, OvalShape3.Location.Y - 1)
OvalShape4.Location = New Point(OvalShape4.Location.X, OvalShape4.Location.Y - 1)
OvalShape5.Location = New Point(OvalShape5.Location.X, OvalShape5.Location.Y - 1)
OvalShape6.Location = New Point(OvalShape6.Location.X, OvalShape6.Location.Y - 1)
OvalShape7.Location = New Point(OvalShape7.Location.X, OvalShape7.Location.Y - 1)
OvalShape8.Location = New Point(OvalShape8.Location.X, OvalShape8.Location.Y - 1)
 
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
If OvalShape1.Location = OvalShape2.Location Then
OvalShape2.Hide()
End If
Timer2.Stop()
Timer3.Stop()
Timer4.Stop()
Timer5.Stop()
Timer6.Stop()
Timer7.Stop()
End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
Timer4.Stop()
Timer5.Stop()
Timer6.Stop()
Timer7.Stop()
End Sub
 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
OvalShape1.Location = New Point(OvalShape1.Location.X, OvalShape1.Location.y + 1)
OvalShape3.Location = New Point(OvalShape3.Location.X, OvalShape3.Location.y + 1)
OvalShape4.Location = New Point(OvalShape4.Location.X, OvalShape4.Location.y + 1)
OvalShape5.Location = New Point(OvalShape5.Location.X, OvalShape5.Location.y + 1)
OvalShape6.Location = New Point(OvalShape6.Location.X, OvalShape6.Location.y + 1)
OvalShape7.Location = New Point(OvalShape7.Location.X, OvalShape7.Location.y + 1)
OvalShape8.Location = New Point(OvalShape8.Location.X, OvalShape8.Location.y + 1)
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Timer2.Start()
If OvalShape1.Location = OvalShape2.Location Then
OvalShape2.Hide()
End If
End Sub
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Stop()
Timer2.Stop()
Timer3.Start()
If OvalShape1.Location = OvalShape2.Location Then
OvalShape2.Hide()
End If
Timer4.Stop()
Timer5.Stop()
Timer6.Stop()
Timer7.Stop()
End Sub
 
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
OvalShape1.Location = New Point(OvalShape1.Location.X - 1, OvalShape1.Location.Y)
OvalShape3.Location = New Point(OvalShape3.Location.X - 1, OvalShape3.Location.Y)
OvalShape4.Location = New Point(OvalShape4.Location.X - 1, OvalShape4.Location.Y)
OvalShape5.Location = New Point(OvalShape5.Location.X - 1, OvalShape5.Location.Y)
OvalShape6.Location = New Point(OvalShape6.Location.X - 1, OvalShape6.Location.Y)
OvalShape7.Location = New Point(OvalShape7.Location.X - 1, OvalShape7.Location.Y)
OvalShape8.Location = New Point(OvalShape8.Location.X - 1, OvalShape8.Location.Y)
End Sub
 
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
OvalShape1.Location = New Point(OvalShape1.Location.X + 1, OvalShape1.Location.Y)
OvalShape3.Location = New Point(OvalShape3.Location.X + 1, OvalShape3.Location.Y)
OvalShape4.Location = New Point(OvalShape4.Location.X + 1, OvalShape4.Location.Y)
OvalShape5.Location = New Point(OvalShape5.Location.X + 1, OvalShape5.Location.Y)
OvalShape6.Location = New Point(OvalShape6.Location.X + 1, OvalShape6.Location.Y)
OvalShape7.Location = New Point(OvalShape7.Location.X + 1, OvalShape7.Location.Y)
OvalShape8.Location = New Point(OvalShape8.Location.X + 1, OvalShape8.Location.Y)
End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
Timer4.Start()
If OvalShape1.Location = OvalShape2.Location Then
OvalShape2.Hide()
End If
Timer5.Stop()
Timer6.Stop()
Timer7.Stop()
End Sub
 

End Class
AnswerRe: snake game error, moving randomly. Pinmemberryanb3120-Mar-13 1:54 
AnswerRe: snake game error, moving randomly. PinprofessionalFilipe Moreira de Oliveira17-May-13 15:58 
QuestionCI in TFS Pinmembernitin_ion20-Feb-13 23:29 
QuestionThanking Mike Meinz Pinmembersrinivasankrishnaa20-Feb-13 5:00 
AnswerRe: Thanking Mike Meinz PinmvpRichard MacCutchan20-Feb-13 5:35 
AnswerRe: Thanking Mike Meinz PinmvpSandeep Mewara20-Feb-13 6:27 
Questionfind sentence with regular expression in VS PinmemberElham M18-Feb-13 21:25 
AnswerRe: find sentence with regular expression in VS PinprotectorPete O'Hanlon18-Feb-13 22:24 
Questionprocessor id Pinmembersrinivasankrishnaa16-Feb-13 3:38 
AnswerRe: processor id [modified] PinmemberMike Meinz16-Feb-13 4:22 
GeneralRe: processor id Pinmembervivek51117-Feb-13 23:48 
GeneralRe: processor id PinmemberRichard Deeming18-Feb-13 2:05 
AnswerRe: processor id PinmemberMike Meinz18-Feb-13 5:23 
QuestionCrystal Report for Visual Studio 2010 Pinmembersource.compiler14-Feb-13 20:10 
QuestionAdd a Class to a Windows App [modified] PinmemberASPnoob8-Feb-13 18:09 
AnswerRe: Add a Class to a Windows App PinmvpRichard MacCutchan8-Feb-13 22:55 
GeneralRe: Add a Class to a Windows App PinmemberASPnoob8-Feb-13 23:27 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web04 | 2.8.140721.1 | Last Updated 10 Jul 2014
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid