It is hard to get Unicode in VB6. The biggest reason is the nowhere-to-be-found support in any of the native controls. In the past few years people have been mostly forced to commercial solutions or to move to another language. With UniControls I try to change this by providing some of the most essential tools for working with Unicode. **** This is the summer release. What you find here are a few powerful controls, and some that are still in an earlier level of development, yet useful for many tasks. Included: UniCaption, UniCommand, UniDialog, UniLabel, UniList, UniMenu & UniText, with some additional bonus code. **** NOTE: despite these controls using SelfSub, SelfHook and SelfCallback by Paul Caton and LaVolpe, not all of these controls are Stop button safe. This is because of UserControl's limited OLE interface, which has forced to some IOleInActivePlaceObject hacking, for which there currently is no perfectly IDE safe solution. If I didn't use it, I would have to use complex hooking to capture Enter, Escape, Tabulator, arrow keys and other navigation keys. **** Hopefully you enjoy these controls!
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
thanks 10/10 but hook menu bug. F10 key menu work but other key don't work. test press F10 menu control active --> press hotkey menu it work but press key arrow it don't. you can fix bug hook key menu next version. Thanks (If this comment was disrespectful, please report it.)
control crash when i change startingtype in menu control. you can fix next version and add icon to menu control. thanks (If this comment was disrespectful, please report it.)
Sooekd: the menu arrow keys problem is caused by the text boxes. This is because if I don't hook keyboard in the textbox the textbox never gets arrow key presses. Instead focus is moved to another control. I haven't yet figured out a way to detect if a menu is open so that the hook would be disabled: I probably need to have a hook looking for menu messages, too.
Habin: thanks, I've fixed the problem in the development version. This problem was caused by an incorrect order of subclassing, which was fixed by detecting usercontrol's WM_DESTROY and doing unsubclassing there (as is done in UniLabel control).
I'm planning to release the next version on next Saturday (15th), fixes will include code order (all controls more to the coding style of UniLabel), removed crash bugs, a few minor optimizations, maybe a few new features. (If this comment was disrespectful, please report it.)
You will have to over-ride VB UserControl's default IOLEInPlaceActivate implementation for the focus in the textbox to work w/o hooks (see txtCodeId=41506). (If this comment was disrespectful, please report it.)
Vlad: is it possible to locate the VTable structure's pointer of TranslateAccelerator without the TLB? Because, as such, this solution is unusable for me due to the requirement of a TLB I don't want. And there is tons of code that just replicates nothing. Just replacing one pointer should be enough, from what I understand. And, I do have a code for replacing VB procedures (and I think it can be fitted to work with class ordinals), so I guess it would be possible to have only a custom TranslateAccelerator and nothing more... if the pointer of it could located properly. (If this comment was disrespectful, please report it.)
Listbox is already in the next release, but I'm not sure at this point how much features it'll have. Atleast it'll fix the 32768 items limitation and allows for unlimited amount of items (only limited by available computer memory). (If this comment was disrespectful, please report it.)
Hi Vesa, Thanks your nice code. Are you intend to make a unititlebar caption control? You can do it! (If this comment was disrespectful, please report it.)
Hi Vesa, Thanks your nice code. I have a question how can use it like class module? I wanna convert control to class module but i can't because it cann't work with class module. you can help me convert to class module. Thanks (If this comment was disrespectful, please report it.)
try to compile progs that use these control (at least UniLabel) run it, then close it, and see it crashes (If this comment was disrespectful, please report it.)
I was working on a non-english editing application and there I really needed what you've posted here!!! Thanks so much for your code!! Nevertheless, ♥ ♥ ♥ ♥ ♥ from me!! ;-) (If this comment was disrespectful, please report it.)
5 for dedication, 4.5 for execution. Round the average and keep going. My thanks for sharing cannot be rated :D (If this comment was disrespectful, please report it.)
Thanks vesa, but i found bug when i use END command for quit main program. Subclass will crash when i use END. Please, you fix this problem. (If this comment was disrespectful, please report it.)
The crash is there because of IOleInPlaceActiveObject and there currently is no IDE safe solution for it. However, do not use End in your programs: it is a very "cruel" way to stop a program, and you never really need it. (If this comment was disrespectful, please report it.)
Excellent controls! Thank you! I use the text and label control with VB6 and Access database. I can read and write Unicode to the database and the text is saved in Access in the way it should be. I tried with Unicode special German Umlaute characters and with Thai. No problems! Some small tips about the usage: UniText1.Text = “A” works, UniText1 = “A” does not work If I set at runtime UniText1.Visible = False and UniText1 has the focus then the application hangs (in the IDE and also compiled) These are not really big problems but it cost me some time to find the .visible problem.
(If this comment was disrespectful, please report it.)
suggestion about a features maybe you can put an XP style border when using XP same with Vista and 7, I try the clsBorders of Lavolpe but the unicode turn to (?) questions marks when saving to a file.
thanks (If this comment was disrespectful, please report it.)
@Edgar: This is bug because unsublassing ist never executed. See last lines... If (Not m_ContainerIsParent) Or IDE_DesignTime Then ssc_UnSubclass m_ContainerhWnd The "Not" is wrong (I think).
(If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 19 Users
Download code
12/9/2007 11:15:49 PM: 
