Problem with dragging borderless window?

[DavidNels]

Hi everyone,

I have a borderless window and picturebox GUI, I'm trying to drag the window from it's handles. My code outputs no errors, but it doesn't work either... Any ideas?

Form = frmMain
Picturebox = Image1

Private Sub Image1_Click()
Public Class frmMain

Private mouseOffset As Point

Private isMouseDown As Boolean = False

Private Sub Image1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Image1.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

mouseOffset = New Point(xOffset, yOffset)

isMouseDown = True

End If

End Sub

Private Sub Image1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Image1.MouseMove

If isMouseDown Then

Dim mousePos As Point = Control.MousePosition

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

Location = mousePos

End If

End Sub

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

isMouseDown = False

End Sub

End Class
End Sub

[jmsrickland]

Your code doesn't look like it's a correct format for VB6. Also, I see a Private Sub, Image1_MouseDown, within a Private Sub, Image1_Click and you are telling us you get no errors?

Your code.....

Private Sub Image1_Click()
Public Class frmMain

Private mouseOffset As Point

Private isMouseDown As Boolean = False

Private Sub Image1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Image1.MouseDown
  '
  '
  '

[DavidNels]

I wasn't getting errors upon just starting it from VB6, but when I went to make an EXE it did give errors.

Do you know how I could get this working?

[jmsrickland]

That's hard to believe. Just simply because you have a Sub within a Sub would cause a syntax error from VB6 not to mention the Class statement.

I don't think this is a VB6 project. Perhaps it is a VB.Net project?

[DavidNels]

I know it seems hard to believe but for whatever reason it was operating without error. Lol. I got the original code from the MSDN boards, but it was in the VB6 section.

And yes I am using VB6. Do you know how I could go about this?

[Amr Al-Amir]

This is code for dragging the form

Option Explicit
Dim xx As Single, yy As Single

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> vbLeftButton Then Exit Sub
  Me.Left = Me.Left + ((X - xx) / 15)
  Me.Top = Me.Top + ((Y - yy) / 15)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

[Amr Al-Amir]

this is the code for the form and picturebox
Sorry, I am too busy to refine the code but it works

Option Explicit
Dim xx As Single, yy As Single

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> vbLeftButton Then Exit Sub
  Me.Left = Me.Left + ((X - xx) / 15)
  Me.Top = Me.Top + ((Y - yy) / 15)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xx = X
  yy = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> vbLeftButton Then Exit Sub
  Me.Left = Me.Left + (X - xx) / 15
  Me.Top = Me.Top + (Y - yy) / 15
End Sub

[DavidNels]

Works perfect! only required small amount of change, very good.

Thanks!