begin process at 2010 02 10 03:18:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Jeux

 > CLICK AND GO

CLICK AND GO


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Jeux Classé sous :déplacement, image, souris, clic, formulaire Niveau :Débutant Date de création :27/12/2001 Date de mise à jour :27/12/2001 18:28:50 Vu :2 647
Auteur : ATH|500|

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

C'est un p-tit code que quand tu click ben l'image s'en va la ou tu as cliké... c'Est pratique pour les jeux d'aventure...

Je sais merde j'ai utilisé LE LOOP j'aurais peut-être du le convertir pour un timer ! Mais merde existe t'il quelques choses qui diffère pas d'un ordi a l'autre comme le loop !!!? À part le timer !!!

Besoin d'un image seulement...

Source

  • Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Do
  • DoEvents
  • If Image1.Left < X Then
  • Image1.Left = Image1.Left + 3
  • End If
  • If Image1.Left > X Then
  • Image1.Left = Image1.Left - 3
  • End If
  • If Image1.Top < Y Then
  • Image1.Top = Image1.Top + 3
  • End If
  • If Image1.Top > Y Then
  • Image1.Top = Image1.Top - 3
  • End If
  • Loop Until Image1.Left > X And Image1.Top > Y Or Image1.Left < X And Image1.Top < Y
  • Do
  • DoEvents
  • If Image1.Left < X Then
  • Image1.Left = Image1.Left + 3
  • End If
  • If Image1.Left > X Then
  • Image1.Left = Image1.Left - 3
  • End If
  • If Image1.Top < Y Then
  • Image1.Top = Image1.Top + 3
  • End If
  • If Image1.Top > Y Then
  • Image1.Top = Image1.Top - 3
  • End If
  • Loop Until Image1.Left > X And Image1.Top < Y Or Image1.Left < X And Image1.Top > Y
  • End Sub 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top > Y Or Image1.Left < X And Image1.Top < Y

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top < Y Or Image1.Left < X And Image1.Top > Y

End Sub

 Conclusion

Si quelqu'un serait assez gentil pour le convertir dans un timer ben je te le recommande !!


 Sources du même auteur

Source avec Zip Source avec une capture SIMON EN DIRECTX RÉPÉTEZ LA SÉQUENCE ( PARTICULES , MANIPUL...
Source avec Zip Source avec une capture JEU DE COURSE (VOITURES) AVEC DIRECTX 8.1
Source avec une capture ÉCRIRE DES NOMBRES EN BINAIRE !
Source avec Zip Source avec une capture TROUVE UN ANGLE GRÂCE À LA TANGEANTE ( TRIGONOMÉTRIE TRIANGL...
Source avec Zip Source avec une capture STARCRAFT VER: 0.00001
Toutes les sources de ATH|500|

 Sources de la même categorie

Source avec Zip Source avec une capture ASTROLEURRE par SaintMaur
Source avec Zip Source avec une capture PUISSANCE4 par SaintMaur
Source avec Zip Source avec une capture Source .NET (Dotnet) JEU DE PENDU (COUIC 1 DE +) par tresorsdevie
Source avec Zip Source avec une capture SEARCHMOTS par boscoauhunier
Source avec Zip Source avec une capture JEU DE TIR À L'ARC par xranto
Toutes les sources de la catégorie Jeux

 Sources en rapport avec celle ci

Source avec une capture Source .NET (Dotnet) CONTROLE IMAGE ZOOM/DÉZOOM par lesdis
Source avec Zip Source avec une capture Source .NET (Dotnet) AFFICHER UNE IMAGE DANS UNE CELLULE D'UN DATAGRIDVIEW LIÉ À ... par christcnet
Source avec Zip Source .NET (Dotnet) VB2005 ZOOM-DÉPLACEMENT IMAGE par filou26
Source avec Zip Source avec une capture Source .NET (Dotnet) USERCONTROL PERMETTANT D'AFFICHER UNE CARTE (OU N'IMPORTE QU... par preventionhs
Source avec Zip Source .NET (Dotnet) DÉPLACER LA SOURIS PAR CLAVIER par hdpn

Commentaires et avis

Commentaire de KL le 27/12/2001 19:01:15

suffit ke tu calcul le temps pour faire un tour de loop et tu les addtiones jusqu'a ce que ca fasse une seconde par exemple.
Une fois que tu as atteint ta seconde, tu peux declecher ton action

Commentaire de KL le 27/12/2001 19:03:28

ainsi, une seconde vaut toujours une seconde, meme dans un loop

Commentaire de ATH|500| le 28/12/2001 00:05:16

Nan ça va rien changer du tout car plus ton processeur va vite plus le loop v a vite donc c'est pas correct ton affaire...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Déplacement + clic de souris [ par cobra51 ] Salut,J'ai un formulaire avec 2 picturebox : PictureBox(0) et PictureBox(1).J'ai codé l'événement suivant : Private Sub PictureBox_Click(Index As Int Déplacement d'une image par rapport à la position X de la souris [ par Damob ] Bonjour,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;J'aimerais savoir s'il y a une m&#233;thode particuli&#232;re pour faire d&#233;placer une image sans que modification image page html [ par jauneas4 ] Bonjour, voila mon pb : je voudrais faire de la domotique. Bon, j'ai la photo d'une maison sur une page web. Je voudrais, d'un clic de souris, cr&#233 souris dans un formulaire [ par 1217meyrin ] bonjour,comment forcer la souris a rester &#224; l'int&#233;rieur d'un formulaire en vb.net Detection clic souris [ par yohann2004 ] Bonjour, Je souhaiterai détecter les clics de ma souris en vb.net dans une application qui tourne en background (ex: service). Quelqu'un peut m'aider Validation et déplacement entre controls [ par NETSAGE ] Bonjour a tous et toutes;Depuis que j'ai d&#233;couverts VB et ensuite VB.NET je n'ai toujours pas su r&#233;soudre&nbsp;CORRECTEMENT la validation et Image - Proportions - formulaire [ par capoueidiablo ] Bonjour &#224; tous,Une fois de plus je fais appel a la communaut&#233; pour demander de l'aide,cette fois je vous solicite pour savoir si quelqu'un & problème d'aperçu image sur formulaire [ par julio82 ] bonjour &#224; tous, j'ai un probl&#232;me avec mes formulaires. Jai cr&#233;&#233; deux boutons qui me permette d'aller chercher une image dans un do API pour detecter un objet sous le curseur [ par mickey91 ] Salut,Voici mon probl&#232;me :J'ai cr&#233;&#233; une macro (avec l'aide de certains d'entre vous!) qui fait parcourir le curseur de ma souris sur to génération de cercles [ par jekifvb6 ] Bonjour a toutes et tous, J'aimerais realiser la chose suivante: une picturebox dans laquelle, lorsqu'on deplace la souris, un cercle suit le curseur


Nos sponsors


Sondage...

Comparez les prix


HTC Hero
Entre 550€ et 550€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,936 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)