i have created com vb.net (v3.5 under vs2013) usercontrol have included in old vb6 project. control communicates vb6 host fine. works expected, opens db, reads / writes stuff. ok except 1 thing, i'm not sure is. seems cannot set either font(?) or language(?) greek in order able type greek characters in contained textbox.
this usercontrol contains several other .net controls. listboxes, buttons , textboxes. read stuff db, set text property of controls contents of database , greek shown properly. if try switch o/s language greek , type in textbox, strange characters shown instead of proper greek ones (i assume codepage). have programmatically changed font "[font: name=arial, size=9, units=3, gdicharset=161, gdiverticalfont=false]". gdicharset=161 greek. should work. , work within .net environment or test .net exe. can type greek in textbox. when try use within vb6 program, seems switching greek , typing greek chars not possible. loading greek db , showing them no problem though.
i have tried setting gdicharset 0, 1, 2 (yup, did show symbols expected) , change culture in usercontrol constructor no luck:
system.threading.thread.currentthread.currentculture = new system.globalization.cultureinfo("el-gr") system.threading.thread.currentthread.currentuiculture = new system.globalization.cultureinfo("el-gr") any ideas someone, check / try?
wow... after spending more hours spare on matter, have found solution.
private sub txtmessage_keypress(sender object, e keypresseventargs) handles txtmessage.keypress if inputlanguage.currentinputlanguage.culture.equals(new globalization.cultureinfo("el-gr")) fixkeychar(e) end if end sub public sub fixkeychar(byref e keypresseventargs) dim myunicodebytes byte() = encoding.unicode.getbytes(e.keychar) dim myutf32bytes byte() = encoding.convert(encoding.default, encoding.utf32, myunicodebytes) e.keychar = chrw(myutf32bytes(1) * 256 + myutf32bytes(0)) end sub i hope proves helpful other poor soul messing these things...
