• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
begin process at 2008 07 06 19:33:05
1 205 742 membres
305 nouveaux aujourd'hui
14 119 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Deplacer une image [ Divers / Aide & Documentation ] (DraaFil)

Deplacer une image le 05/01/2007 20:08:52

DraaFil
Bonjour a tous,

J'ai une image dans une form, je voudrais deplacer cette derniere a l'endroit ou j'ai cliquez avec la souris, mais je veux pas quel apparaise a cettte endroit, je veux la voir ce deplacer automatiquement a ce point.


Merci

DraaFIl
Re : Deplacer une image le 05/01/2007 20:21:54

reacen

Si j'ai bien compris , tu veux avoir l'effet de l'image qui dessent ...
  Je pense qu'il faut utiliser des Timer exemple :

Dans Timer 1 :

Image1.top = label2.caption
Image1.Left = label1.caption

label1.caption = label1.caption + 1
label2.caption = label2.caption + 1

car avec le For i = 1 to 100 ne va pas bien fonctionner dans un pc faible ...

  fé marcher ta servelle pour  trouver une solution a partire des timer  (sinon , c la technique que j'itulise tj !)

  si tu  trouve une autre plus simple .... tant mieux !
Technologie Reacen²
Re : Deplacer une image le 05/01/2007 20:44:19

Charles Racaud
Membre Club
Salut,

Tiens, un exemple, avec un timer (TimerMove), une picturebox (TaPictureBox) et une autre (PicMove) dans la premiere.
Tu attribut une image via la propriété Picture de TaPictureBox et tu colle ce code :
Const MoveSpeed As Integer = 20
Dim Img As StdPicture
Dim MoveX As Single, MoveY As Single

Private Sub Form_Load()
  TimerMove.Enabled = False
  TimerMove.Interval = 1
  PicMove.BorderStyle = 0
  Set Img = TaPictureBox.Picture
  Set TaPictureBox.Picture = Nothing
  Set PicMove.Picture = Img
  TaPictureBox.AutoRedraw = True
  PicMove.Width = Img.Width
  PicMove.Height = Img.Height
End Sub

Private Sub TaPictureBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' PicMove.Move MoveX, MoveY
  MoveX = X
  MoveY = Y
  TaPictureBox.Cls
  PicMove.Visible = True
  TimerMove.Enabled = True
End Sub

Private Sub TimerMove_Timer()
  Dim L As Integer: L = CInt(Sqr((MoveX - PicMove.Left) ^ 2 + (MoveY - PicMove.Top) ^ 2))
  If L <= 20 Then
    TaPictureBox.PaintPicture Img, MoveX, MoveY
    PicMove.Visible = False
    TimerMove.Enabled = False
  Else
    PicMove.Move PicMove.Left + (MoveSpeed / L) * (MoveX - PicMove.Left), _
                 PicMove.Top(MoveSpeed / L) * (MoveY - PicMove.Top)
  End If
End Sub
(Coloration syntaxique automatique par Kenji)

__________
Kenji


Re : Deplacer une image le 05/01/2007 20:46:53

Charles Racaud
Membre Club
Désolé, la ligne que j'ai modifié après coup, il m'a viré un "+"
PicMove.Move PicMove.Left + (MoveSpeed / L) * (MoveX - PicMove.Left), _
             PicMove.Top + (MoveSpeed / L) * (MoveY - PicMove.Top)

__________
Kenji


Re : Deplacer une image le 05/01/2007 21:27:31

DraaFil
je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil
Re : Deplacer une image le 05/01/2007 21:27:35

DraaFil
je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil
Re : Deplacer une image le 05/01/2007 21:27:38

DraaFil
je vais analyse votre code! merci!


Parcontre avez-vous tenu conte qu'il doit s'arrete ou j'ai cliquez avec la souris??


DraaFil
Re : Deplacer une image le 05/01/2007 21:31:17

DraaFil
ok j'ai vu, ton code pour la souris


mais quand je l'oad ma form ma picture disparait et quand je clique j'ai une erreur sur cette ligne

TaPictureBox.PaintPicture Img, MoveX, MoveY

 (on peut-tu faire paraille avec une imagebox ?


Merci
DraaFil
Re : Deplacer une image le 05/01/2007 21:42:22

Charles Racaud
Membre Club
Non, il faut forcement une picturebox.
Avec une imagebox, on ne peut pas chosir l'emplacement de l'image dans celle-ci.

__________
Kenji


Re : Deplacer une image le 05/01/2007 21:48:37

DraaFil
ok mias pour les autre probleme si haut as-tu une idee

[Page 1 Page 2]
 Classé sous : image, deplacer, endroit

Participer à cet échange

Pub



Appels d'offres

WEB DESIGN
Budget : 1 000€
Plugin Dialer outlook
Budget : 2 000€
Travail graphique- ill...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
Dotnet-News.com Colocation dans toute la France Visual Basic - Centre de développement TechHeadBrothers.com Feed247,com Toute l'actu Internet 24h/24 7J/7 Moteur de recherche Mozbot


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
VBFrance.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
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,1719-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.