UniMenu (0.9)

[Merri]

This class module adds Unicode support to the regular menu items. Also allows you to use nice styles: Classic, Office97 and OfficeXP. You can add your own styles quite easily:

• find Enum MENU_STYLE
• add your own [Style MyStyle]
• go to SetMenuStyle procedure and add the basic settings
• go to SetMenuColorStyle procedure and add the color style

You are welcome to send your own styles to me either through by my development blog or by private message.

No support for bitmaps at the moment, but am likely to add the support later on. Or you can write it yourself and contribute

Oh, I'm planning to make it compatible from Windows 98 onwards (maybe NT4 too), atm it is only tested under Windows XP. So any comments related to how it works in different Windows versions are very welcome.


Update! Included the forgotten WinSubHook.tlb.

[|2eM!x]

Wow, just wow! How does he do it!

[Merri]

In three days or about 35 work hours.


...

[Merri]

Included WinSubHook.tlb which I forgot before.

[Harsh Gupta]

does this works on Win 98?

[Merri]

At the moment no. It would work if all the API declarations ending in W were A instead and strings were passed as strings and not as pointers by using StrPtr (so they'd be automatically converted to ANSI). I'll be adding W98 support later on in some way.

It would be good if you tested though, I'd like to have practical information on how it doesn't work, error messages and such. I don't have W98 in any computer I use.

[Harsh Gupta]

At the moment no. It would work if all the API declarations ending in W were A instead and strings were passed as strings and not as pointers by using StrPtr (so they'd be automatically converted to ANSI). I'll be adding W98 support later on in some way.

It would be good if you tested though, I'd like to have practical information on how it doesn't work, error messages and such. I don't have W98 in any computer I use.

there are few errors in using it on Win 98:

1) you cannot register the .tlb file using regsvr32.exe. but yes through the perfectly built function you provided.

2) when running the Sample, it generated an error during Form Loading :-

Runtime Error '5':
Invalid Procedure Call or Argument

this highlights this line:

SystemMenuFont = Left$(.lfFaceName, InStr(.lfFaceName, vbNullChar) - 1)