Hi all,

we have been looking out for a solution for the problem mentioned below.... PLEASE HELP

We have a problem with us here. We have created a dll which will externalize the font for an internationalization project. Based on the LocaleID it will change the language for the form.. This works perfectly in the form once the DLL is registered and referenced.

We would like to implement the same in a Usercontrol which we have by the dozen in each VBP. We are trying to do this in the UserControl_Initialize which gives an error

The code in the externalization in the class module is as follows:
ChangeFont.dll > Class Module
Public Sub SetFont(ByRef objClient As Object)
  If TypeOf objClient Is Form Then
    Call mdlChangeFont.SetFormFonts(objClient) 'For Forms
  Else
    Call mdlChangeFont.SetControlFonts(objClient) 'For UserControl
  End If
End Sub

For the Form we implement it in the Form_Load() as:
Private Sub Form_Load()
   Dim ext As New ChangeFont.clsChangeFont
   ext.SetFont Me
End Sub

Please let me know in which event of the UserControl should this be put whether UserControl_Initialize or UserControl_InitProperties or UserControl_ReadProperties or should we go ahead with the tedious process of changing the Font and the script in the UserControl to MS UI Gothic and Japanese.

This is an urgent requirement... HELP.............................

Regards
Arvind Krishnan

What error does it give?

John R Lick
JohnRLick@hotmail.com

I set the font in the Initialize event with no problems at all... what error do you get?
Marco

Hi,

   The user control has got a text box and a label and a command button... The command button transfers what is presnt in the Textbox to the Label.... The point I am tyring to make here is my LocaleID and the associated Regional IDs are all in Japanese... When I put the code in the Form Load
Private Sub Form_Load()
   Dim ext As New ChangeFont.clsChangeFont
   ext.SetFont Me
End Sub
   the code works for a form i.e when i enter japanese characters in the textbox it takes it as Japanese but when the same code
Dim ext As New ChangeFont.clsChangeFont
ext.SetFont Me
    is set to any control event of the user control and the code is run... and when Japanese characters are inserted in the Text box it gives out strange gibberish characters.

I want to know how to set this right... So that when Japanese Characters are eneterd in the Textbox of the user Control it appears in Japanese and does not give out gibberish characters.

Arvind

Maybe the problem is in the clsChangeFont itself, that works for Forms but not for UserControls. Revise you code, or add ChangeFont to yout project and debug it.
Marco