Movable property...

[Hello]

Hello,

How to prevent user from moving the form at run time. At
the same time, I want to keep my control box and form
border.

Thanks,
Douglas ^^

[Tom Spink]

You'll have to create a new class which inherits from form, then make all
your forms inherit from this new form. Here is the class:

<WatchForWrappi ng>

Public Class MovableForm
Inherits System.Windows. Forms.Form

Private m_blnMovable As Boolean

Private Const WM_NCLBUTTONDOW N As Integer = &HA1
Private Const WM_SYSCOMMAND As Integer = &H112
Private Const HTCAPTION As Integer = &H2
Private Const SC_MOVE As Integer = &HF010

Public Sub New()
MyBase.New()
m_Movable = True
End Sub

<System.Compone ntModel.Categor y("Behavior") ,
System.Componen tModel.Descript ion("Allows the form to be moved")> _
Public Property Movable() As Boolean
Get
Return m_blnMovable
End Get
Set(ByVal Value As Boolean)
m_blnMovable = Value
End Set
End Property

Protected Overrides Sub WndProc(ByRef m As Message)

If Not m_blnMovable Then
If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt3 2 = SC_MOVE Then
Return
If m.Msg = WM_NCLBUTTONDOW N And m.WParam.ToInt3 2 = HTCAPTION
Then Return
End If

MyBase.WndProc( m)

End Sub
End Class

</WatchForWrappin g>

This adds a Movable property to your form. Set it to false and the form
cannot be moved. The property will appear in the property browser under the
'Behavior' section. Remember: The forms you would like to have this property
must inherit from MovableForm, and the project must be built after you
create this class before your forms can inherit from it. Go into the code
and change the Inherits line of your form. Just to be safe, build your
project then view the form in the Designer, and play with your Movable
property.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit
"Hello" <do*********@te xwinca.com> wrote in message
news:07******** *************** *****@phx.gbl.. .

Hello,

How to prevent user from moving the form at run time. At
the same time, I want to keep my control box and form
border.

Thanks,
Douglas ^^

[Cor]

Douglas,
This works for me
\\\\\\\\
Private Sub Form1_Move(ByVa l sender As Object, ByVal e As System.EventArg s)
Handles MyBase.Move
MyBase.Location = New System.Drawing. Point(30, 30)
End Sub
/////////
Cor

[Fergus Cooney]

Hi Tom,

Nice one, I reckon I can use that sometime - It's going into my
snippets collection. Thanks.

What is the tag <WatchForWrappi ng> </WatchForWrappin g> for ?
You've used it before I seem to remember.

Regards,
Fergus

[Tom Spink]

OE will wrap lines to 78 chars when posting a response, so anything enclosed
in <WatchForWrappi ng> tags should be looked at to make sure a line hasn't
wrapped, or if it has to correct piece the line back together.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit
"Fergus Cooney" <fi******@tesco .net> wrote in message
news:u3******** ******@TK2MSFTN GP09.phx.gbl...

Hi Tom,

Nice one, I reckon I can use that sometime - It's going into my
snippets collection. Thanks.

What is the tag <WatchForWrappi ng> </WatchForWrappin g> for ?
You've used it before I seem to remember.

Regards,
Fergus

[Fergus Cooney]

Thanks Tom,

Wouldn't it be nice to have a tag to tell OE <not> to wrap.

And to have OE not flag for attention my own posts

And to have OE....

Regards,
Fergus

[Herfried K. Wagner [MVP]]

Hello,

"Fergus Cooney" <fi******@tesco .net> schrieb:

Nice one, I reckon I can use that sometime - It's going into my
snippets collection. Thanks.
I *hate* unmoveable windows.
What is the tag <WatchForWrappi ng> </WatchForWrappin g> for ?
You've used it before I seem to remember.

Depending on the settings of the newsreader sending the message, text will
be automatically wrapped aftet ~80 characters.

Regards,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet

[Tom Spink]

> I *hate* unmoveable windows.

So do I, but I love programming ;-)

Depending on the settings of the newsreader sending the message, text will
be automatically wrapped aftet ~80 characters.
I found a setting for this in OE, to wrap text after 'n' characters

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit
"Herfried K. Wagner [MVP]" <hi*******@m.ac tivevb.de> wrote in message
news:OY******** ******@tk2msftn gp13.phx.gbl... Hello,

"Fergus Cooney" <fi******@tesco .net> schrieb:

Nice one, I reckon I can use that sometime - It's going into my
snippets collection. Thanks.

I *hate* unmoveable windows.

What is the tag <WatchForWrappi ng> </WatchForWrappin g> for ?
You've used it before I seem to remember.

Depending on the settings of the newsreader sending the message, text will
be automatically wrapped aftet ~80 characters.

Regards,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet

[Fergus Cooney]

Hi Herfried,

|| I *hate* unmoveable windows.

When I've finished KillerApp 2000 (due for release in 2006). I'll
be adding some special code to detect when it's your machine. It'll
let you move the window anywhere you like, but when you run it again,
it'll have forgotten. Haha.

Doh!, silly me, that's already standard behaviour these days.

|| I *hate* unmoveable windows.

Me too, but I think there may be a place for Tom's snippet in an
MDI app. ??

Regards,
Fergus.

[Tom Spink]

> I love programming too.

;-)
Ditto.
I know about this setting, but I do not change its value (currently 76
characters).
Ditto.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit
"Herfried K. Wagner [MVP]" <hi*******@m.ac tivevb.de> wrote in message
news:OH******** ******@TK2MSFTN GP12.phx.gbl... Hello,

"Tom Spink" <th**********@n tlworld.com> schrieb:

I *hate* unmoveable windows.

So do I, but I love programming ;-)

I love programming too.

;-)

Depending on the settings of the newsreader sending the message, text will be automatically wrapped aftet ~80 characters.

I found a setting for this in OE, to wrap text after 'n' characters

I know about this setting, but I do not change its value (currently 76
characters).

Regards,
Herfried K. Wagner
--
MVP · VB Classic, VB .NET
http://www.mvps.org/dotnet