VBAでListViewのフォントを変更する方法

VBAでListView内の文字のフォントをコードで変更する方法
を教えてください。


ListViewに文字サイズ36で「ここにD&D」と書いてあり
そこにファイルをD&Dすることで
文字サイズが12に変化し、ファイルパスの一覧が表示されるようにしたいのですが
どうすればlistviewの文字サイズを変えることができますか？

No.1 回答者： WindFaller 回答日時： 2015/02/14 14:20

こんにちは。

返事をつけるのが遅くなってしまいました。
最近は、ListViewはほとんど使っていません。
私の分かる範囲ですと、イベントで、以下のようにすればよいと思います。

'//
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, _
　　　　　　　　　　　　　　　　　Effect As Long, Button As Integer, _
　　　　　　　　　　　　　　　　 Shift As Integer, x As Single, y As Single)
With Me
　 　　.ListView1.ListItems.Clear
　　 If Data.Files.Count < 1 Then Exit Sub
　　 .ListView1.Font.Size = 12　　'←ここ
　End With
　End Sub
'//

この回答へのお礼

うまくいきました。

ありがとうございます。

もう少し質問がありますのでお願いいたします。

お礼日時：2015/02/16 12:10