[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
Senti scusa... avevo un'altra domandina...
è 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]

Originariamente inviato da Pino67

è 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]

Originariamente inviato da MarcoGG

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...