How to change all of font name

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi, 
I want to change all font name to "MS UI Gothic" of a CalendarControl for Japanese users but some part of CalenderControl cannot change.

Do you know how to change the font of below parts?

Private Sub Form_Load()
    Dim objThemeOfice2007 As CalendarThemeOffice2007
    Set objThemeOfice2007 = CalendarControl.Theme

    objThemeOfice2007.BaseFont.Name = "MS UI Gothic"
    objThemeOfice2007.BaseFont.SIZE = 12
    objThemeOfice2007.BaseFont.Charset = 128 'Japanese

    objThemeOfice2007.DayView.Event.Normal.Subject.Font.Name = "MS UI Gothic"
    objThemeOfice2007.DayView.Event.Normal.Subject.Font.SIZE = 12
    objThemeOfice2007.DayView.Event.Normal.Subject.Font.Charset = 128 'Japanese

    objThemeOfice2007.Header.TextCenter.Normal.Font.Name = "MS UI Gothic"
    objThemeOfice2007.Header.TextLeftRight.Normal.Font.Name = "MS UI Gothic"
    objThemeOfice2007.Header.TextLeftRight.Normal.Font.Charset = 128 'Japanese

    objThemeOfice2007.MonthView.Header.TextCenter.Normal.Font.Name = "MS UI Gothic"
    objThemeOfice2007.MonthView.Event.Normal.Subject.Font.Name = "MS UI Gothic"
    objThemeOfice2007.MonthView.Event.Normal.Subject.Font.Charset = 128 'Japanese

    CalendarControl.SetTheme objThemeOfice2007

---
 OS: Windows XP
 IDE: Visual Studio 6.0 with SP6
 Product Version: Xtreme Suite ActiveX v15.2.1

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Norika Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 30 November 2006 Status: Offline Points: 70	Post Options Post Reply Quote Norika Report Post Thanks(0) Quote Reply Topic: How to change all of font name Posted: 20 December 2011 at 11:18pm
	Hi, I want to change all font name to "MS UI Gothic" of a CalendarControl for Japanese users but some part of CalenderControl cannot change. Do you know how to change the font of below parts? Private Sub Form_Load() Dim objThemeOfice2007 As CalendarThemeOffice2007 Set objThemeOfice2007 = CalendarControl.Theme objThemeOfice2007.BaseFont.Name = "MS UI Gothic" objThemeOfice2007.BaseFont.SIZE = 12 objThemeOfice2007.BaseFont.Charset = 128 'Japanese objThemeOfice2007.DayView.Event.Normal.Subject.Font.Name = "MS UI Gothic" objThemeOfice2007.DayView.Event.Normal.Subject.Font.SIZE = 12 objThemeOfice2007.DayView.Event.Normal.Subject.Font.Charset = 128 'Japanese objThemeOfice2007.Header.TextCenter.Normal.Font.Name = "MS UI Gothic" objThemeOfice2007.Header.TextLeftRight.Normal.Font.Name = "MS UI Gothic" objThemeOfice2007.Header.TextLeftRight.Normal.Font.Charset = 128 'Japanese objThemeOfice2007.MonthView.Header.TextCenter.Normal.Font.Name = "MS UI Gothic" objThemeOfice2007.MonthView.Event.Normal.Subject.Font.Name = "MS UI Gothic" objThemeOfice2007.MonthView.Event.Normal.Subject.Font.Charset = 128 'Japanese CalendarControl.SetTheme objThemeOfice2007 --- OS: Windows XP IDE: Visual Studio 6.0 with SP6 Product Version: Xtreme Suite ActiveX v15.2.1