NewCaption = GetMessage(pFormName, notFound) ' The translation key for the form caption is the form name itself. ' default value (second parameter) if no translation is available. ' GetMessage() returns the translated message for a given key, or the
Sub TranslateDialog(pForm As UserForm, pFormName As String)Ĭonst notFound As String = " Answer： Answer：" My code looks something like this: ' in frmFoo Caption property of the form before it is shown in order for it to be reflected in the title bar rather than in the canvas/client area? Is it possible to change the title bar text of a UserForm after it has been shown, or do I have to change the.
Caption property, then the title bar keeps displaying the “hard-coded” value, and the new value is instead displayed just below it, at the top of the “canvas” of the form itself. This works as expected for all controls but not for the form itself - when I change the form’s. To do this, I read in the translated strings dynamically and update the various controls on my userform by updating their. I’m maintaining an old-ish application written in VBA for Excel 2002 (XP)/2003, and am trying to internationalise it.
0 kommentar(er)
