Notepad - Anyone know what the Status bar does?

dynamic_sysop · Aug 14, 2003

you can paste vb code straight in to the editor , then convert to either tagged [vbcode] or

Code:

 or convert to <html> , the reason i do that is for posting on vbforums.com , codegurus forum and the html is for on a few other forums im on which allow html posts. in the vbforum / codeguru forum vb code shows as dark blue , unlike the great method on this forum of using the bright blue ( like in vs projects ) therefore i brighten up my posts on them forums from this >>>> [COLOR=darkblue]Private Sub[/COLOR]  <<<< to this >>>>[COLOR=blue]Private Sub[/COLOR]  <<<<

like i said , ignore the layout , its not meant to be anything special, only for quick use and for the menu im working on.:)

Volte · Aug 14, 2003

dynamic_sysop: Are those ownerdrawn and hooked menus (hooked to get the flat border), or are they totally custom from-scratch menus? They look good.

dynamic_sysop · Aug 14, 2003

thanks voltface , i have created them from scratch and im very proud of them ( even if its no match for a lot of menus that may be about ).
i basically add a handler at start up , like this...

Code:

    Private WithEvents mnuItems As MenuItem

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x As Integer
        For x = 0 To ContextMenu1.MenuItems.Count - 1
            ContextMenu1.MenuItems.Item(x).OwnerDraw = True
            AddHandler ContextMenu1.MenuItems.Item(x).MeasureItem, AddressOf mnuItems_MeasureItem
            AddHandler ContextMenu1.MenuItems.Item(x).DrawItem, AddressOf mnuItems_DrawItem
        Next
    End Sub

then just draw the menus with the draw event and measure event.

Volte · Aug 14, 2003

Oh I see... the border is flat because the XP style flattens them. If you go into classic windows mode, the menus will have a thick border.

Still looks good though.

You could look at my custom menu component here: http://www.computerhelp.forum/t69043.html and expand on the code to make the menus XP style rather than Office 2000 style if you like. That way the ownerdrawing process is totally automated.

Divil also made an XP style menu based on my component, available at his site, but his source is not available.

dynamic_sysop · Aug 14, 2003

cheers i have already tested them both and think they are both great

, having said that, im on a self-teaching session with graphics. ive basically had no starting pointers with graphics, just jumped in at the deep end and started piecing it together ( and surprisingly im figuring it out quite well seeing as ive never worked with graphics in vb before :-\ )
i have also made a listview with icons on subitems , but theres no onpaint event ( well you can add one, but it doesnt work ) so im having to do that a really long way. re-drawing the listview on all events , such as click , mouse up/down etc...
if you know of a way to make onpaint work on a listview thatd be greatly appreciated

john · Aug 14, 2003

What I want to know is where did you get that XP style? I kinda like it, its not too flashy like some of the others Ive seen.

dynamic_sysop · Aug 14, 2003

well , i run vs2002 enterprise and thats how my menus within projects also appear ( same layout colours )
so i grabbed the colours ( using frontpage xps custom colour grabber dropper tool

) , then to add the colours / text this is part of it...

Code:

With e.Graphics
    .FillRectangle(New SolidBrush(col.FromHtml("#FFFBFF")), e.Bounds.X + 20, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)
    .DrawString(sender.text, MyBase.Font, New SolidBrush(Color.Black), 22, e.Bounds.Y + 3)
    .FillRectangle(New SolidBrush(col.FromHtml("#DEDFEF")), e.Bounds.X, e.Bounds.Y, 20, e.Bounds.Height)
    .DrawImage(ImageList1.Images.Item(x), e.Bounds.X + 1, e.Bounds.Y + 1)
End With

Volte · Aug 14, 2003

He meants the XP style that you are using (the purple title bar).

I think thats the one that comes with StyleXP, if Im not mistaken.

john · Aug 14, 2003

Yeah, I should have said "XP Theme", my mistake

SysRq2000 · Aug 14, 2003

Dynamic_sysop, it looks great... Wanna share the source?

Notepad - Anyone know what the Status bar does?

dynamic_sysop

Well-known member

Volte

Neutiquam Erro

dynamic_sysop

Well-known member

Volte

Neutiquam Erro

dynamic_sysop

Well-known member

john

0

dynamic_sysop

Well-known member

Volte

Neutiquam Erro

john

0

SysRq2000

Member

Similar threads