[VB2008] Spostare un form senza una barra del titolo

[Pino67]

Salve a tutti... stavo personalizzando una applicazione creata da me...
volevo fare in modo che quando io trascino una label viene trascinato tutto il form. cercavo un po da per tutto ma non trovavo niente...
grazie anticipatamente per la risposta=)

[MarcoGG]

Semplice. Posto che sia "Label1" la Label interessata :

Public Class Form1

Private selezione As Boolean = False
Private lblPosX As Integer = 0
Private lblPosY As Integer = 0

Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
selezione = True
lblPosX = e.X
lblPosY = e.Y
End Sub

Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If selezione = True Then
Me.Left += e.X - lblPosX
Me.Top += e.Y - lblPosY
End If
End Sub

Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
selezione = False
End Sub

End Class

;)

[Pino67]

Grazie mille è quello che cercavo :D
Senti scusa... avevo un'altra domandina...:D
è possibile far eseguire ad un bottone le operazioni di unaltro bottone?
intendo senza copiare ed incollare il contenuto di un'altro bottone...:)
grazie infinite ancora:)

[MarcoGG]

è possibile far eseguire ad un bottone le operazioni di unaltro bottone?
intendo senza copiare ed incollare il contenuto di un'altro bottone...:)
grazie infinite ancora:)

Ci sono diversi modi per farlo :

1. Clausola Handles :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
MsgBox("click")
End Sub

2. Button1 richiama Button2 :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.PerformClick()
End Sub

3. Button1 e Button2 chiamano una Sub o Function comune, che quindi viene scritta una volta sola...

[Pino67]

Ci sono diversi modi per farlo :

1. Clausola Handles :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
MsgBox("click")
End Sub

2. Button1 richiama Button2 :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.PerformClick()
End Sub

3. Button1 e Button2 chiamano una Sub o Function comune, che quindi viene scritta una volta sola...

grazie mille davvero... userò la seconda perchè è la più semplice... molto gentile... :)