[TuT] Ruszające Okno w FormBorderStyle = None

[LATRAX]

Witam... To Moj pierwszy TuT wiec Zaczynajmy...

 

Robimy Formę i Bierzemy

BorderStyleForm	  None

 

Robimy Button nazywamy go "X" , "Wyjdz" lub "Exit"

 

Klikamy 2x W Naszą Forme

 

I wpisujemy...

 

Class MojaForma
Private IsFormBeingDragged As Boolean = False
Private MouseDownX As Integer
Private MouseDownY As Integer
Private Sub MojaForma_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
	If e.Button = MouseButtons.Left Then
		IsFormBeingDragged = True
		MouseDownX = e.X
		MouseDownY = e.Y
	End If
End Sub
Private Sub MojaForma_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
	If e.Button = MouseButtons.Left Then
		IsFormBeingDragged = False
	End If
End Sub
Private Sub MojaForma_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
	If IsFormBeingDragged Then
		Dim temp As Point = New Point()
		temp.X = Me.Location.X + (e.X - MouseDownX)
		temp.Y = Me.Location.Y + (e.Y - MouseDownY)
		Me.Location = temp
		temp = Nothing
	End If
End Sub
End Class

 

 

TUT BY LATRAX!!!

Zakaz Kopiowania Bez Pozwolenia!!!

[Matesh2qq]

Dobry tutek, ja osobiście miałem z tym problem, a ten tutorial mi pomógł! A więc dziękuje i zostawiam lajka :>

[somanyidiots]

ja bym zrobił fora i z jednej strony formę bym przycinał a z drugiej ją dodawał.