タイトル : 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 |