[VB2003] Moving a form without border

[peter hansen]

By changing the backgroundimage of a form into a picture and then enable the
TransparencyCol or you can make a form as a cirkel etc (the form has the same
'form' as the picture has). I have then disabled the FormBorderStyle (None)

By doing that I have no border I can click at to drag the form. How do I
make the form-area drag-able so that it is possible to click at a random
point at the form, hold down the mousebutton and then move the form?
// Peter

[Tom Leylan]

"peter hansen" <wo**@tell.yo u> wrote...

By doing that I have no border I can click at to drag the form. How do I
make the form-area drag-able so that it is possible to click at a random
point at the form, hold down the mousebutton and then move the form?

This should work:

Private _MouseDown As Boolean
Private _MouseX As Integer
Private _MouseY As Integer
Private Sub Form1_MouseDown (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseDow n
_MouseDown = True
_MouseX = e.X
_MouseY = e.Y
End Sub

Private Sub Form1_MouseMove (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseMov e
If _MouseDown Then
Me.Left = Me.Left + (e.X - _MouseX)
Me.Top = Me.Top + (e.Y - _MouseY)
End If
End Sub

Private Sub Form1_MouseUp(B yVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseUp
_MouseDown = False
End Sub

[Herfried K. Wagner [MVP]]

* "peter hansen" <wo**@tell.yo u> scripsit:

By changing the backgroundimage of a form into a picture and then enable the
TransparencyCol or you can make a form as a cirkel etc (the form has the same
'form' as the picture has). I have then disabled the FormBorderStyle (None)

By doing that I have no border I can click at to drag the form. How do I
make the form-area drag-able so that it is possible to click at a random
point at the form, hold down the mousebutton and then move the form?

<http://www.google.de/groups?q=sendme ssage+HTCAPTION +group:*dotnet* &ie=UTF-8>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[peter hansen]

Thanks - but why is it - anyway, that sometimes the transparent-thing
doesn't work.
Sometimes it works fine and sometimes it doesn't works.
I only change the BackgroundImage of the form and then set the
TransparencyKey to the color on the Bitmap that I want to make transparent -
in this case #00FFAA
Anyway its a BMP-picture but that shouldn't be the problem cause if I use
the colostandard like 'ControlText' or another color it works fine but if I
change the background into a picture it doesn't works

// Peter
"Tom Leylan" <ge*@iamtiredof spam.com> wrote in message
news:O4******** *****@TK2MSFTNG P09.phx.gbl...

"peter hansen" <wo**@tell.yo u> wrote...

By doing that I have no border I can click at to drag the form. How do I
make the form-area drag-able so that it is possible to click at a random
point at the form, hold down the mousebutton and then move the form?

This should work:

Private _MouseDown As Boolean
Private _MouseX As Integer
Private _MouseY As Integer
Private Sub Form1_MouseDown (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseDow n
_MouseDown = True
_MouseX = e.X
_MouseY = e.Y
End Sub

Private Sub Form1_MouseMove (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseMov e
If _MouseDown Then
Me.Left = Me.Left + (e.X - _MouseX)
Me.Top = Me.Top + (e.Y - _MouseY)
End If
End Sub

Private Sub Form1_MouseUp(B yVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) Handles
MyBase.MouseUp
_MouseDown = False
End Sub

[Tom Leylan]

"peter hansen" <wo**@tell.yo u> wrote...

Thanks - but why is it - anyway, that sometimes the transparent-thing
doesn't work.
Sometimes it works fine and sometimes it doesn't works.
I only change the BackgroundImage of the form and then set the
TransparencyKey to the color on the Bitmap that I want to make transparent - in this case #00FFAA
Anyway its a BMP-picture but that shouldn't be the problem cause if I use
the colostandard like 'ControlText' or another color it works fine but if I change the background into a picture it doesn't works

Hi Peter... any chance the bitmap doesn't contain a solid color? Just as a
test create another image and simply fill 1/2 of it with your color. If
that works I would suspect the image you were originally using. If it's a
photograph or it has a gradient background for instance not many pixels are
going to match.

Tom

[peter hansen]

"Tom Leylan" <ge*@iamtiredof spam.com> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"peter hansen" <wo**@tell.yo u> wrote...

Thanks - but why is it - anyway, that sometimes the transparent-thing
doesn't work.
Sometimes it works fine and sometimes it doesn't works.
I only change the BackgroundImage of the form and then set the
TransparencyKey to the color on the Bitmap that I want to make transparent -

in this case #00FFAA
Anyway its a BMP-picture but that shouldn't be the problem cause if I use the colostandard like 'ControlText' or another color it works fine but

if I

change the background into a picture it doesn't works
Hi Peter... any chance the bitmap doesn't contain a solid color? Just as

a test create another image and simply fill 1/2 of it with your color. If
that works I would suspect the image you were originally using. If it's a
photograph or it has a gradient background for instance not many pixels are going to match.

The picture is an octogon created in Illustrator, imported in PhotoShop
where the background has been modified, so that the octagon is the only
viewable area if the TransparentKey is set as the color applied in
PhotoShop. The picture should be used as a splash-screen like when you start
Word or another program with a splash-screen

But it doesn't work... *sigh*

Hmmm... isn't it possible that you would send me an example that works -
eMail:

kian at lflug . [ThisShouldBeRem oved]dk

// Peter

[peter hansen]

"peter hansen" <wo**@tell.yo u> wrote in message
news:OK******** *****@TK2MSFTNG P11.phx.gbl...

"Tom Leylan" <ge*@iamtiredof spam.com> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"peter hansen" <wo**@tell.yo u> wrote...

Thanks - but why is it - anyway, that sometimes the transparent-thing
doesn't work.
Sometimes it works fine and sometimes it doesn't works.
I only change the BackgroundImage of the form and then set the
TransparencyKey to the color on the Bitmap that I want to make transparent -

in this case #00FFAA
Anyway its a BMP-picture but that shouldn't be the problem cause if I use the colostandard like 'ControlText' or another color it works fine but if

I

change the background into a picture it doesn't works

Hi Peter... any chance the bitmap doesn't contain a solid color? Just

as a

test create another image and simply fill 1/2 of it with your color. If
that works I would suspect the image you were originally using. If it's

a photograph or it has a gradient background for instance not many pixels

are

going to match.

The picture is an octogon created in Illustrator, imported in PhotoShop
where the background has been modified, so that the octagon is the only
viewable area if the TransparentKey is set as the color applied in
PhotoShop. The picture should be used as a splash-screen like when you

start Word or another program with a splash-screen

But it doesn't work... *sigh*

Hmmm... isn't it possible that you would send me an example that works -
eMail:

kian at lflug . [ThisShouldBeRem oved]dk

// Peter

Don't ask why but I restarted my computer and then the transparent-thing
worked :D great and thanks anyway :D

// Peter