If joueurColor1.BackColor = Color1.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor2.BackColor = Color2.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor3.BackColor = Color3.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor4.BackColor = Color4.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor5.BackColor = Color5.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor6.BackColor = Color6.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor7.BackColor = Color7.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor8.BackColor = Color8.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(1)) End If If joueurColor1.BackColor = Color1.BackColor Then If joueurColor2.BackColor = Color2.BackColor Then If joueurColor3.BackColor = Color3.BackColor Then If joueurColor4.BackColor = Color4.BackColor Then If joueurColor5.BackColor = Color5.BackColor Then If joueurColor6.BackColor = Color6.BackColor Then If joueurColor7.BackColor = Color7.BackColor Then If joueurColor8.BackColor = Color8.BackColor Then point.Text = CStr(CSng(point.Text) + CSng(12)) End If End If End If End If End If End If End If End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub diminuer_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles diminuer.MouseLeave diminuer.BackgroundImage = Image.FromFile("diminuer.jpg") End Sub Private Sub diminuer_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles diminuer.MouseMove diminuer.BackgroundImage = System.Drawing.Image.FromFile("diminuerON.jpg") End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = Keys.PrintScreen Then MessageBox.Show("Tricheur :p") End If End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyValue = 44 Then MessageBox.Show("Tricheur :p") End If End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick Dim x As Keys If x = Keys.PrintScreen Then MessageBox.Show("tricheur") End If End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Dim rnd As System.Random = New System.Random Dim vert As Image = My.Resources.BouleVerte Dim violet As Image = My.Resources.BouleViolette Dim rouge As Image = My.Resources.BouleRouge Dim orange As Image = My.Resources.BouleOrange Dim bleu As Image = My.Resources.BouleBleu Dim Montab As Image() = New Image() {vert, violet, bleu, rouge, orange} boule1.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule2.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule3.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule4.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule5.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule6.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule7.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) boule8.BackgroundImage = Montab(rnd.Next(Montab.GetUpperBound(0) + 1)) End Sub
If boulechoix1.BackgroundImage = boule1.BackgroundImage Then score.Text = CStr(CSng(score.Text) + CSng(1)) End If