MOVENDO ITEMS
Ola eu gostaria de por exemplo eu ter um Imagem que esteja dentro de uma form , mas que eu posso mover-la precionando o mouse , semelhante ao um desktop
isoo é possivel?
isoo é possivel?
olha se é isso que está querendo:
Private CurrentX As Integer
Private CurrentY As Integer
Private IsDragging As Boolean = False
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
IsDragging = True
CurrentX = e.X
CurrentY = e.Y
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If IsDragging Then
PictureBox1.Top = PictureBox1.Top + (e.Y - CurrentY)
PictureBox1.Left = PictureBox1.Left + (e.X - CurrentX)
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
IsDragging = False
End Sub
Private CurrentX As Integer
Private CurrentY As Integer
Private IsDragging As Boolean = False
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
IsDragging = True
CurrentX = e.X
CurrentY = e.Y
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If IsDragging Then
PictureBox1.Top = PictureBox1.Top + (e.Y - CurrentY)
PictureBox1.Left = PictureBox1.Left + (e.X - CurrentX)
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
IsDragging = False
End Sub
Ola e isso mesmo mas num tem como fazer isso e fazer um botão de por exemplo que crie uma picturebox mas que essa picturebox seja um icone de um programa , mas que nessa picturebox esteja defenido o endereço de onde o programa estaria [Ô]../PASTA/PASTA/PASTA.exe[Ô] quando clica encima da picturebox
é possivel faze isso?
é possivel faze isso?
No click da PictureBox, coloque:
[txt-size=5]Process.Start([txt-color=#e80000][Ô]Endereço_Do_Programa[Ô][/txt-color])[/txt-size]
OK Valeu :D
Tópico encerrado , respostas não são mais permitidas