form move vb2005  
Author Message
Shady9399





PostPosted: Visual Basic Express Edition, form move vb2005 Top

no, i'm refering to move the form without title bar! it is possible




Visual Studio Express Editions33  
 
 
Tall Dude





PostPosted: Visual Basic Express Edition, form move vb2005 Top

One of my 'joke' help pages is a borderless form

with a picture of me and my wife. The form is a circle.

Heres how I get it to move:

Public Class Form3

Private mouseOffset As Point

Private isMouseDown As Boolean = False

Private Sub Form3_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

My.Forms.Form1.TopMost = True

End Sub

' This allows the user to double click the form and close it

Private Sub Form3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick

Me.Close()

End Sub

Private Sub Form3_MouseDown(ByVal sender As Object, _

ByVal e As MouseEventArgs) Handles MyBase.MouseDown

Dim xOffset As Integer

Dim yOffset As Integer

If e.Button = Windows.Forms.MouseButtons.Left Then

xOffset = -e.X - SystemInformation.FrameBorderSize.Width

yOffset = -e.Y - SystemInformation.FrameBorderSize.Height ' CaptionHeight '- _

'SystemInformation.FrameBorderSize.Height

mouseOffset = New Point(xOffset, yOffset)

isMouseDown = True

End If

End Sub

Private Sub Form3_MouseMove(ByVal sender As Object, _

ByVal e As MouseEventArgs) Handles MyBase.MouseMove

If isMouseDown Then

Dim mousePos As Point = Control.MousePosition

mousePos.Offset(mouseOffset.X, mouseOffset.Y)

Location = mousePos

End If

End Sub

' This uses a contextmenu to allow a right click close option

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click

Me.Close()

End Sub

Private Sub Form3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

isMouseDown = False

End Sub

Protected Overrides Sub OnPaint( _

ByVal e As System.Windows.Forms.PaintEventArgs)

Dim shape As New System.Drawing.Drawing2D.GraphicsPath

e.Graphics.DrawImage(My.Resources.Sara_and_Eric, 0, 0)

shape.AddEllipse(100, 100, 600, 600)

Me.Region = New System.Drawing.Region(shape)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

End Class