Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
excel VBA Listviewにスクロールバーを表示
投稿日時: 21/04/23 11:56:14
投稿者: masawa
メールを送信

vba初心者です。
excelのvbaを使って、あるファイルをリストビューに表示させましたが、スクロールすることが出来ません。
垂直のスクロールバーを表示させることは可能でしょうか。
リストビューがだめならリストボックスで項目別に表示できるのでしょうか。名前、更新日時、サイズです。
よろしくお願いします。
 
Sub MyFileSerach(sPath As String)
     Dim tFs As FileSystemObject
     Set tFs = New FileSystemObject
     Call MyFileSerachSub(tFs.GetFolder(sPath))
     Set tFs = Nothing
 End Sub
 
Sub MyFileSerachSub(ByVal tPath As Folder)
    Dim tIniPath As Folder
    Dim tFile As File
    Dim ii As Integer
    ii = 2
    For Each tFile In tPath.Files
      With ListView1.ListItems.Add
        .Text = tFile.Name
        .SubItems(1) = tFile.DateLastModified
        .SubItems(2) = tFile.Size
      End With
       
      With ListBox1
        .AddItem tFile.Name
      End With
    Next tFile
    'Debug.Print tPath.Files.Count
    Set tPath = Nothing
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
 
   With ListView1
        ''プロパティ
        .View = lvwReport
        .LabelEdit = lvwManual
        .HideSelection = False
        .AllowColumnReorder = True
        .FullRowSelect = True
        .Gridlines = True
        ''列見出し
        .ColumnHeaders.Add , "_Name", "名前"
        .ColumnHeaders.Add , "_Kousin", "更新日時"
        .ColumnHeaders.Add , "_", "サイズ"
    End With
   
MyFileSerach "D:\MYFOLDER"
ListBox1.List(0, 0) = "名前"
ListBox1.List(0, 1) = "更新日時"
ListBox1.List(0, 2) = "サイズ"
 
End Sub

回答
投稿日時: 21/04/23 18:29:04
投稿者: WinArrow
投稿者のウェブサイトに移動

私は、
ListView を使ったことがありませんが、
 
組み込んでテストしてみました。
FlatScrollBarプロパティ=False
で、横・縦スクロールバーが表示されます。

投稿日時: 21/04/24 07:12:23
投稿者: masawa
メールを送信

有難うございました。
全く気付きませんでした。
助かりました。