Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMais je vois pas trop comment faire pour la première !
Il faut rendre l'image "interactif" en quelque sorte.
Case "1"
If Form3.Enabled = True Then
Form3.PictureBox1.Size = New Size(626, 342)
Form3.Size = New Size(626, 342)
Else
jarvis.SpeakAsync("Désolé, je ne peux pas traiter cette commande sans la grille d'ouverte.")
End If
Case "1"
If Form3.Enabled = True And Form3.PictureBox1.Visible = True Then
Form3.PictureBox1.Visible = False
Form3.Size = New Size(640, 360)
Form3.PictureBox2.Visible = True
Form3.Location = New Point(0, 0)
Else
jarvis.SpeakAsync("Désolé, je ne peux pas traiter cette commande sans la grille d'ouverte.")
End If
Case "1"
If Form3.Enabled = True And Form3.PictureBox1.Visible = True Then
Form3.PictureBox1.Visible = False
Form3.Size = New Size(640, 360)
Form3.PictureBox2.Visible = True
Form3.Location = New Point(0, 0)
ElseIf Form3.Enabled = True And Form3.PictureBox1.Visible = False And Form3.PictureBox2.Visible = True Then
Form3.PictureBox2.Visible = False
Form3.Size = New Size(213, 120)
Form3.PictureBox3.Visible = True
Form3.Location = New Point(0, 0)
Else
jarvis.SpeakAsync("Désolé, je ne peux pas traiter cette commande sans la grille d'ouverte.")
End If
Case "1"
If Form3.Enabled And Form3.PictureBox1.Visible Then
Form3.Location = New Point(0, 0)
Dim Value As Point
Value = New Point(Form3.Location)
Dim Value1 As Point
Value1 = New Point(Form3.Size)
Dim result As Integer
result = Convert.ToInt32(e.Result.Text)
Form3.Location = New Point((Value.X / 3) * result, (Value.Y / 3) * result)
Form3.Size = New Size((Value1.X / 3) * result, (Value1.Y / 3) * result)
Form3.PictureBox1.Size = Form3.Size
Else
jarvis.SpeakAsync("Désolé, je ne peux pas traiter cette commande sans la grille d'ouverte.")
End If