Can YOU fix this? shaping a form question!

[simonp]

Your mission, should you choose to accept it, etc, etc, etc!

I have this code (attached) that shapes the form to the bitmap on it.

It's a great piece of code (courtesy of a chap called Doug with a funny surname!) but my problem occurs when I add a menu (which I need to enable right-clicking popup menu).

Try it - open the project - run it (to see how good it is) and then add a simple menu (one item will do it) - then run it again - and you can see what happens!

So . . . can YOU fix this?! I'm sure it just needs a tweak somewhere but for the life of me I can't see where.

A free virtual Easter Egg for the winner*

Happy Easter!

Simon

* virtual Easter Egg means I'll send you a nice thank-you e-mail!!!

[Keithuk]

Remove Me.Caption, set Controlbox to False and add:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Button = vbRightButton Then
    PopupMenu mnuFile
End If
 
End Sub

Make a mnuFile menu NOT visible and an mnuExit menu.

[simonp]

Hi Keith,

I did try that option but for some reason it makes the image a little-off centre (see attachment).

(the one on the right is before - the one on the left is with the hidden menu)

Simon

[SLH]

This is just my opinion, but i think the one on the left actually looks better.

[Keithuk]

I downloaded your file, ran it, changed it and posted it back. It looks and works fine with me. As soon as you had a menu then you see the caption thats why I said remove caption and controlbox. Because your image was smaller than the form, I resized the form to suit.

Sorry if it didn't work how you wanted it to.