Discussion :

[kiter4ever]

Hello tout le monde,

Et bien voilà je suis débutant en VB et j'ai un petit soucis concernant un programme/jeu que j'aimerais faire.
Si quelqu'un pouvait m'aider ou me donner des idées se serait super

Je vous explique en quelques mots :
J'aimerais créer une application Windows ouvre un formulaire contenant un bouton en son centre.
L'application doit déplacer le bouton dans une des 9 zones possibles (en gros on divise la fenetre d'application en 9 cases/emplacement, non visible pour l'utilisateur, où peux venir se mettre le bouton) à chaque tentative de clic.

L'idée c'est de faire un jeu du style, le chat qui cours après la souris sans jamais l'attraper. Le chat étant dans ce cas ci notre souris et la souris étant le bouton. Et donc le bouton se déplacerait de gauche à droite de bas en haut, et à chaque fois que l'utilisateur essayerais de placer son curseur sur le bouton ce dernier se déplace à l'emplacement suivant.

Merci d'avance

[Arofu]

Bonjour,

Pour réaliser ce que tu souhaite, je te conseille de regarder l’évènement Form1_Click de ton formulaire, ensuite dans le code associé a cet évènement, regarde la propriété Location de ton bouton.

Petit conseil, tu ne peux pas changer directement les valeurs de x et y de ton bouton, il faut déclarer un nouveau point.
Exemple:
...Location = New Point (newX, newY).

Voila en espérant que cela te suffise pour démarrer.

[asmduty]

Exact, il y a aussi la possibilité de créer un TableLayoutPanel en Dock.Fill dans ta fenêtre.
Tu crées 3 colonnes et 3 lignes de 33% dedans
Ainsi tu auras tes 9 zones qui n'apparaitront pas à l'écran.
Pour changer le bouton de zone il suffira de changer bouton.column et/ou bouton.row
L'avantage de cette solution est que c'est plus visuel pour toi, et que c'est plus facil, si tu autorises d'agrandir/diminuer la taille de la fenêtre, de faire en sort que le bouton soit placé correctement dans ta fenêtre sans avoir à recalculer la position ou tu dois le mettre pour que ça fasse joli

[kiter4ever]

Ok super merci à tout les 2 je vais essayer ca !!

[kiter4ever]

Re,

J'ai regardé un peu la doc sur TableLayoutPanel mais je reste calé :s

Mon Code
-----------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Class debile
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TableLayoutPanel1.ColumnCount = 2 Then
            Button1.
 
        End If
    End Sub
End Class

Je ne vois pas comment programer le fait que si mon bouton1 se trouve sur la ligne1 et la colonne2, il doit par exemple passer à la ligne1 et colonne3 et comment programmer le passage d'une "cellule" à l'autre.

Quelqu'un a-t-il une idée?

[chrismonoye]

Bonjour,
il faut utiliser l'event adéquat.
exemple : à chaque passage de la souris sur le button, celui change de location.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Dim locX As Integer = Button1.Location.X
        Dim locY As Integer = Button1.Location.Y
        Button1.Location = New Point(locX + 10, locY + 10)
    End Sub

[kiter4ever]

Un tout grand merci pour votre aide, ca fonctionne