Option buttonRésolu

Question

Salut je voudrais savoir comment faire fonctionner un option button, je vous explique je suis en train de faire un menu dans un jeux et je voudrais que quand je s&#233;lectionne un type d'auto dans mon frame de droite quand je clique sur le bouton commencer l'auto que j'aurais choisi avec l'option button de droite sois s&#233;lectionner dans une autre feuille.
Pis jai 4 type d'auto que je peux choisir donc 4 option button.

Merci

Japprecierais une reponse rapide!!

acecel · Accepted Answer

Dans ton autre feuille  :

If FeuilleMenu.OptButton1.Value = 1 Then
      ' Action si bouton1 activ&#233;
ElseIf FeuilleMenu.OptButton2.Value = 1 Then
      ' Action si bouton2 activ&#233;
ElseIf FeuilleMenu.OptButton3.Value = 1 Then
      ' Action si bouton3 activ&#233;
ElseIf FeuilleMenu.OptButton3.Value = 1 Then
      ' Action si bouton4 activ&#233;
Else
      ' Rien n'est selectionn&#233; donc probl&#232;me 
End If

franklachance · Answer

salut encore une petite question jai noter le principe pour faire fonctionner dans l'autre feuille mais dans le menu principal je dois surment marquer quelque chose sur mon bouton de commande "commencer", ou bien sur les option button.

Pis egalement je voudrais savoir comment on peux mettre une musique en midi en font sonore...de projet..

merci beaucoup

acecel · Answer

salut encore une petite question jai noter le principe pour faire fonctionner dans l'autre feuille mais dans le menu principal je dois surment marquer quelque chose sur mon bouton de commande "commencer", ou bien sur les option button. 

> Non pas besoin. Tu r&#233;cup&#232;re la valeur dans l'autre fen&#234;tre, donc c'est inutile.

Pis egalement je voudrais savoir comment on peux mettre une musique en midi en font sonore...de projet..

> Pour ca par contre il faut utiliser une API windows, elle permet de lire les fichiers .wav (ou d'autre formats)
Mais je n'ai pas son nom sous la main. Fait une recherche sur le site, tu devrait trouver facilement.

franklachance · Answer

Salut &#224; tous je voudrais avoir un exemple de comment faire tourner une voiture sur une piste de course de mon projet. Avec 4 image de l'auto diff&#233;rente. Une vers la droite une vers le bas une vers la gauche et une vers le haut. Je ne sais pas trop comment proc&#233;der et ensuite je dois faire pareil pour 3 autres voiture.

Merci &#224; l'avance

acecel · Answer

Tu veut faire pivoter l'image c'est ca? 

Le plus simple, enregistrer 4 copies de ton image dans windows, et utiliser un logiciel style paint photoshop etc.. pour modifier leur angle de rotation 
(la 2 avec un angle de 90&#176;, la 3 avec 180&#176;..)
et afficher soit l'une soit l'autre sur ton contr&#244;le dans l'application.

Ou plus complexe, utiliser une api (on ne peut pas faire pivoter une image dans un contr&#244;le standard de vb) qui permet de modifier l'inclinaison de l'image.

acecel · Answer

Pour la faire bouger sur la feuille, tu peut utiliser soit :
- la m&#233;thode .Move de l'objet (fait pour ca donc plus joli)
- les propri&#233;t&#233;s .Left et .Top (pas terrible)

franklachance · Answer

Justement c'est ca je veux savoir comment les faire bouger je sais que cest avec top et left jai esayer de quoi mais cela ne fonctionne pas!! je voulais que tu me donne un exemple, pis les image cest ca que jai fais dans photoshop jai fais 4 copie de limage de different angle. Mais cest les faire le tour de la piste..

Merci

acecel · Answer

Active le "AutoRedraw" de ta feuille (j'ai pas le nom exact sous la main)

Pour charger une image :

Picture1.Picture = LoadPicture("MonImage1")

Par exemple sur ton bouton "avancer" :

Si tu doit avancer a droite :

Picture1.Left = Picture1.Left + (Picture1.Width / 2) 

Si tu doit avancer a gauche :

Picture1.Left = Picture1.Left - (Picture1.Width / 2) 


Sur ton bouton "Tourner a Gauche" :
Picture1.Picture = LoadPicture("MonImage2")
Picture1.Refresh (je ne sais plus si ca existe/utile j'ai pas vb avec moi)
Picture1.Top = Picture1.Top - (Picture1.Height / 2)



Aprés tu doit aussi gérer les bords de ta circuit, etc..

acecel · Answer

Au fait cet exemple ne concerne que le cas ou la voiture est tourné vers la droite (horizontale)

Tu dois donc gérer aussi les autres cas genre :

Si tu doit avancer a droite :

If Picture1.Picture = ("MonImage1") then '(orienté à droite)
     Picture1.Left = Picture1.Left + (Picture1.Width / 2)
ElseIf Picture1.Picture = ("MonImage2") Then '(orienté en bas)
     Picture1.Top= Picture1.Top+ (Picture1.Height/ 2)
ElseIf Picture1.Picture = ("MonImage3") Then '(orienté à gauche)
     Picture1.Top= Picture1.Left - (Picture1.Width/ 2)
ElseIf Picture1.Picture = ("MonImage4") Then '(orienté en haut)
     Picture1.Top= Picture1.Top - (Picture1.Height/ 2)
Else
     ' BUGGGG
End If

Option button

9 réponses

Discussions similaires