VB.net trascinamento

giovedì 29 gennaio 2009 - 09.44

augusto890 Profilo | Junior Member

Ciao ragazzi, sto creando un programma che permette di spostare gli oggetti nella pagina...sono già riuscito a scrivere tutto...l'unica cosa che non riesco a trovare è l'evento che permetta di cliccare spostarlo e qnd viene lasciato il mouse lo lascia li...sapete dirmi quali sono questi eventi? Quelli riguardanti il mouse ovviamente...grazie...

Jeremy Profilo | Guru

Basta usare l'evento MouseMove dell'oggetto che devi spostare guarda qui:
http://www.dotnethell.it/forum/messages.aspx?ThreadID=28154

Se hai bisogno...facci sapere..
Ciao

augusto890 Profilo | Junior Member

Grazie per il link. A me però interesserebbe che il controllo si muova fino a quando tengo il tasto dinistro del mouse premuto...sapete aiutarmi?

Jeremy Profilo | Guru

Ma vuoi informazioni su come farlo???
O vuoi il codice già fatto???
Perchè in quel link...il risultato è proprio quello che vuoi fare tu.

Facci sapere....
Ciao

augusto890 Profilo | Junior Member

ma sei sicuro? da ciò che ho capito quello attiva lo spostamento onclick...no? a me interessa qnd il mouse rimane cliccato...magari hgo capito male io...

Jeremy Profilo | Guru

Secondo me non l'hai letto tutto...comunque adesso sono fuori...stasera quando totrno ti posto un esempio.

Ciao

augusto890 Profilo | Junior Member

Allora...l'ho letto e l'ho testato...
ho solo un problema...il codice è questo:

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

l'unico problema è che quando clicco sulla label per spostarla...me la mette sulla coda del mouse...e non riesco a mantenere aperto l'evento...come potrei fare?

Jeremy Profilo | Guru

Prova così ...giusto per capire se è quello che ti serve..

nelle'evento MouseMove di quello che vuoi
If e.Button = Windows.Forms.MouseButtons.Left Then NewPoint.X = Control.MousePosition.X - Me.Location.X - 10 NewPoint.Y = Control.MousePosition.Y - Me.Location.Y - 40 TuoControllo.Location = NewPoint TextBox1.Text = NewPoint.X TextBox3.Text = NewPoint.Y End If

Facci sapere...
Ciao
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5