タイトル : Re^2: ListBox(VBA)のずれ 投稿日 : 2008/11/14(Fri) 10:02 投稿者 : スプリンガー
> 上記事象を再現できるコードを投稿して頂けませんか? > (これを見ている人がその通り実行すれば同じ現象が起きるような方法を) > > どのように表示しておられるのか解らないし、×の文字も3種類程ありますし > 又、上記事象を再現できるコードを作成する過程で原因が見つかる場合もありますので。 > > それとExcel のセルに同様に表示させた場合や VB6.0 上でも同じ事が起きるのかどうか? 返答ありがとうございます。 Excelを立ち上げて、Visual Basic Editorの画面を開きます。 「挿入」でUserFormを追加し、その画面に標準のListBoxを貼り付けます。 コードに以下のイベントを追加してください。 Private Sub UserForm_Initialize() With ListBox1 .AddItem "あいうえお abc" .AddItem "あい×えお abc" .AddItem "あいφえお abc" End With End Sub で、F5で実行すると、 ユーザーフォームが表示され、そのリストがずれているのが確認できると思います。 「×」(ばつ)のほかにも「φ」(ファイ)などもずれるようです。 ずれ方としては、「×」が半角のような少し小さい表示になり、 それ以降ずれてしまいます。 VB6で同様に行ってみましたが、ずれずに表示されました。 Excelのセルに直接入力しても、ずれずに表示されます。 その他の画面関係の環境としては、 テーマ XP(クラシックじゃない方) ウィンドウとボタン XPスタイル 配色 シルバー フォントサイズ 標準 解像度 1400×1050 DPI 96dpi となっております。 以上、よろしくお願いいたします。 |