tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: ListBox(VBA)のずれ(追記)
投稿日: 2008/11/14(Fri) 13:44
投稿者魔界の仮面弁士
> 同じPC上でも、Excel 2007 とそれ以前のバージョンでは違うようですね。
> (VBA や Forms のバージョンも同じ)

なるほど、当方は Excel 2007 です。(旧バージョンの Office は入れていません)

同一 PC での検証はできませんが、手元に Excel 97 を入れた VirtualPC が
あったので、それぞれ撮影してみました。確かにずれますね…。
http://www.vb-user.net/images/20081114/ExcelListBox.png


> 又、VB6.0 で Microsoft Forms 2.0 を使って表示しても同じ現象が起きます。

VB6 から MSForms.ListBox を使う場合においては、UserForm に貼った場合と
VB の Form に貼った場合とで、異なるズレ方をするようです。

《スクリーン フォントの縁を滑らかにする - 無効》
http://www.vb-user.net/images/20081114/MSFormsListBox.png

《スクリーン フォントの縁を滑らかにする - ClearType》
http://www.vb-user.net/images/20081114/MSFormsListBoxClearType.png

《スクリーン フォントの縁を滑らかにする - 標準》
http://www.vb-user.net/images/20081114/MSFormsListBoxStandard.png


'------------------
Option Explicit

'Me(Form1) は VB.Form
'Form2 は MSForms.UserForm
Private Sub Command1_Click()
    Dim f As Font
    Set f = New StdFont
    f.Name = "MS ゴシック"
    f.Size = 15
    f.Charset = 128

    Form2.Show

    Set Me.List1.Font = f
    Me.List1.AddItem "あいうえお   abc"
    Me.List1.AddItem "あい×えお   abc"
    Me.List1.AddItem "あいφえお   abc"

    Set Me.ListBox1.Font = f
    Me.ListBox1.AddItem "あいうえお   abc"
    Me.ListBox1.AddItem "あい×えお   abc"
    Me.ListBox1.AddItem "あいφえお   abc"

    Set Form2.ListBox1.Font = f
    Form2.ListBox1.AddItem "あいうえお   abc"
    Form2.ListBox1.AddItem "あい×えお   abc"
    Form2.ListBox1.AddItem "あいφえお   abc"

    ' 自作 UserControl にも以下同様に設定
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。