MUDAR BORDA DO FORM
Olá! Mudei a borda do form usando uma imagem e deixando sem borda. Porém não consigo move-lá com o mouse. Como faço?
Obrigado!
Obrigado!
Se entendi bem vc alterou a propriedade do form colocando ele em none. Passe ele para Fixed3d que voltará a ter borda.
Fiz um programa que usa isso, porem defini somente uma parte da barra superior, tbm tinha um label nessa parte pra isso, então clicando na barra ou no label, funciona!!!
Alem disso tem uma area a esquerda para colocar um botão.
Espero que isso te ajude...
Alem disso tem uma area a esquerda para colocar um botão.
Dim _bit As Integer
Dim _p2 As Point
Private Sub Form1_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles Me.MouseDown, Label1.MouseDown
[ô]barra
If (e.Location.X > 100) And (e.Location.Y < 60) Then
_bit = 1
_p2 = e.Location
End If
[ô]botão
If (e.Location.X < 90) And (e.Location.Y < 90) Then
_bit = 1
_p2 = e.Location
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As Windows.Forms.MouseEventArgs) Handles Me.MouseMove, Label1.MouseMove
If _bit = 1 Then
Me.Location += (e.Location - _p2)
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp, Label1.MouseUp
_bit = 0
End Sub
Espero que isso te ajude...
Exemplo disso que vc ta tentando fazer em anexo...
Tópico encerrado , respostas não são mais permitidas