tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルFontを変更した時の文字化け
記事No13326
投稿日: 2009/01/02(Fri) 23:29
投稿者ベルとん
Fontを変更したのですが、ラベルのみ文字化けします。
どこに問題があるのでしょうか?
標準exe作成でLabel,CommandButton,CheckBoxを配置。チェックでテスト。
Option Explicit
Private Sub Check1_Click()
    If Check1.Value = 0 Then
        Label1.Font = "Arial Narrow"
        Label1.FontBold = True
        Label1.FontSize = "14"
        Label1.Caption = "Sample"
        Command1.Font = "Arial Narrow"
        Command1.FontBold = True
        Command1.FontSize = "14"
        Command1.Caption = "Sample"
    Else
        Label1.Font = "MS Pゴシック"
        Label1.FontBold = True
        Label1.FontSize = "16"
        Label1.Caption = "サンプル"
        Command1.Font = "MS Pゴシック"
        Command1.FontBold = True
        Command1.FontSize = "16"
        Command1.Caption = "サンプル"
    End If
End Sub
VB6(SP6)Win2000,XP現象同じ。

[ツリー表示へ]
タイトルRe: Fontを変更した時の文字化け
記事No13327
投稿日: 2009/01/02(Fri) 23:40
投稿者魔界の仮面弁士
> Fontを変更したのですが、ラベルのみ文字化けします。
> どこに問題があるのでしょうか?

Font の Charset プロパティが、128 になっているかどうかを
確認してみてください。

[ツリー表示へ]
タイトルRe^2: Fontを変更した時の文字化け
記事No13328
投稿日: 2009/01/03(Sat) 00:00
投稿者ベルとん
> Font の Charset プロパティが、128 になっているかどうかを
> 確認してみてください。

魔界の仮面弁士どの
すっばらしい回答をありがとうございます。
Label1.Font = "Arial Narrow" でご指摘のプロパティは 0 のままでした。
Label1.Font = "MS Pゴシック" の後に
Label1.Font.Charset = 128 を追加。これで完成!
ただひたすら感激!

[ツリー表示へ]
タイトルRe^3: Fontを変更した時の文字化け
記事No13332
投稿日: 2009/01/03(Sat) 14:45
投稿者魔界の仮面弁士
お年玉代わりの追記。

> Label1.Font.Charset = 128 を追加。これで完成!

Private Const ANSI_CHARSET        As Long = 0
Private Const DEFAULT_CHARSET     As Long = 1
Private Const SYMBOL_CHARSET      As Long = 2
Private Const SHIFTJIS_CHARSET    As Long = 128
Private Const HANGEUL_CHARSET     As Long = 129
Private Const HANGUL_CHARSET      As Long = 129
Private Const GB2312_CHARSET      As Long = 134
Private Const CHINESEBIG5_CHARSET As Long = 136
Private Const OEM_CHARSET         As Long = 255
Private Const JOHAB_CHARSET       As Long = 130
Private Const HEBREW_CHARSET      As Long = 177
Private Const ARABIC_CHARSET      As Long = 178
Private Const GREEK_CHARSET       As Long = 161
Private Const TURKISH_CHARSET     As Long = 162
Private Const VIETNAMESE_CHARSET  As Long = 163
Private Const THAI_CHARSET        As Long = 222
Private Const EASTEUROPE_CHARSET  As Long = 238
Private Const RUSSIAN_CHARSET     As Long = 204
Private Const MAC_CHARSET         As Long = 77
Private Const BALTIC_CHARSET      As Long = 186

[ツリー表示へ]