creer un mode EditionRésolu

Question

Bonjour

Je ne sait pas si je vais etre clair....
je voudrai creer un mode edition dans mon appli, c a dire que je voudrai pouvoir permettre a l'utilisateur de dupliquer un objet picture as sa guise et de le placer ou il veut dans l'interface (la form) (exemple placer 3,4ou 5 billards selon le type de sa salle)

Puis repasser en mode normal d'utilisation...

Merci

jpleroisse · Accepted Answer

Bonsoir,
Pour d&#233;placer une Image avec la souris.(tu peux faire avec n'importe quel contr&#244;les)

Option Explicit
Dim xTemp, xTemp2 As Long
Dim yTemp, yTemp2 As Long

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - xTemp, Y - yTemp
End Sub
Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move xTemp2 + X - xTemp, xTemp2 + Y - yTemp
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag
xTemp = X
yTemp = Y
xTemp2 = Image1.Left
yTemp2 = Image1.Top
End Sub

jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

scottmat · Answer

Pour le d&#233;placement d&#233;j&#224; voila un exemple que j'utilise pour un objet label qui s'apelle label19 :

Private
 _MouseDown As Boolean


Private _MouseX As Integer


Private _MouseY As Integer


Private _DepX As Integer


Private _DepY As Integer


Private Sub label19_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
 Label19.MouseDown


Label19.Cursor = System.Windows.Forms.Cursors.SizeAll


_MouseDown = 
True ' Pour indiquer qu'on appuie sur la souris


_MouseX = System.Windows.Forms.Cursor.Position.X 
' On sauvegarde les coordonn&#233;es actuelles de la souris


_MouseY = System.Windows.Forms.Cursor.Position.Y


End Sub


Private Sub label19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
 Label19.MouseMove


If _MouseDown Then


' On calcule le d&#233;placement par rapport aux derni&#232;res coordonn&#233;es de la souris(sauvegard&#233;s)


_DepX = System.Windows.Forms.Cursor.Position.X - _MouseX


_DepY = System.Windows.Forms.Cursor.Position.Y - _MouseY


' On d&#233;place le Panel ou eventuellement un autre objet


Panel4.Location = 
New Point(Panel4.Location.X + _DepX, Panel4.Location.Y + _DepY)


' On sauvegarde les nouvelles coordon&#233;es de la souris


_MouseX = System.Windows.Forms.Cursor.Position.X


_MouseY = System.Windows.Forms.Cursor.Position.Y


End If


End Sub


Private Sub label19_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
 Label19.MouseUp


' On a relach&#233; la souris


Label19.Cursor = System.Windows.Forms.Cursors.Default


_MouseDown = 
False


End Sub

chicochiri · Answer

euh j'arrive &#226;s a exploiter ton code....t&#233; en vb6 ou en vbnet
(moi en vb6)?

scottmat · Answer

Ah mince ! Moi c'est du VB.Net ! Et j'ai compl&#233;tement oubli&#233; le VB6 ! donc je sais pas comment tu peu l'utiliser ! Aie !
Les &#233;v&#233;nements MouseUP, MouseMove n'h&#233;xiste pas dans VB6 ?

bouv · Answer

Jette un oeil ici cela pourra peut etre t'aider

http://www.vbfrance.com/code.aspx?id=21742

Bonne prog
++

chicochiri · Answer

euh je vais essayer de traduire alors merci et je vais jeter un oiel sur le code de bouv merci bcp

chicochiri · Answer

bon le code de jpleroissejpleroisse est top....

comment je fais pour que l'utilisateur genere autant d'objet picture qu'il lui faut?

merci

jpleroisse · Answer

Re,
Ce code cr&#233;&#233;e un deuxi&#232;me contr&#244;le Image et permet de la d&#233;placer aussi.
Plusieurs en une seule fois &#231;a, pour l'instant, je ne sais pas.

Option Explicit
Private WithEvents imgObj As Image
Dim xTemp, xTemp2 As Long
Dim yTemp, yTemp2 As Long

Private Sub Command1_Click()
   Set imgObj = Controls.Add("VB.Image", "imgObj")
   With imgObj
      .Visible = True
      .Width = 2000
      .Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Question.ico")
      .Top = 1000
      .Left = 1000
   End With
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - xTemp, Y - yTemp
End Sub
Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move xTemp2 + X - xTemp, xTemp2 + Y - yTemp
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag
xTemp = X
yTemp = Y
xTemp2 = Image1.Left
yTemp2 = Image1.Top
End Sub
Private Sub imgObj_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move xTemp2 + X - xTemp, xTemp2 + Y - yTemp
End Sub
Private Sub imgObj_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgObj.Drag
xTemp = X
yTemp = Y
xTemp2 = Image1.Left
yTemp2 = Image1.Top

End Sub

jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

chicochiri · Answer

merci jpleroisse

c'est &#231;a que je voulais...je vais essayer de faire en sorte de pouvoir en creer plusieurs.

Je pense qu'il y a une petite erreur dans le code dans la fonction suivante...

Private Sub imgObj_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move xTemp2 + X - xTemp, xTemp2 + Y - yTemp
End Sub
Private Sub imgObj_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgObj.Drag
xTemp = X
yTemp = Y
xTemp2 = imgObj.left '  et non "Image1.Left"
yTemp2 = imgObj ' et non "Image1.Top"

End Sub

remplacer image1 par imgObj enfin g fait la modif et &#231;a marche

merci encore

Creer un mode Edition

9 réponses

Discussions similaires