リストビュー 各種プロパティ

コントロールの追加

  1. 「ﾌﾟﾛｼﾞｪｸﾄ」 - 「ｺﾝﾎﾟｰﾈﾝﾄ」


プロパティ

コントロールを右クリックして「プロパティ」を選択

  1. 全般


  2. 列見出し


サンプルソース

 	
Private Sub ListView1_OLEDragDrop _
    (Data As MSComctlLib.DataObject, _
    Effect As Long, Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
   
   
    Dim i As Integer
    
    If Data.GetFormat(vbCFFiles) = True Then
        
        For i = 1 To Data.Files.Count
        
            Debug.Print Data.Files(i)
            
            If (GetAttr(Data.Files(i)) And vbDirectory) = vbDirectory Then
                Debug.Print "Directory"
            Else
                Debug.Print GetAttr(Data.Files(i))
            End If
            
            ListView1.ListItems.Add , Data.Files(i), Data.Files(i)
            
            With ListView1.ListItems(Data.Files(i))
                .SubItems(1) = Data.Files(i)
            End With
        
        Next i
        
    End If
    
    If Data.GetFormat(vbCFText) = True Then

        
    End If
    
    
End Sub

 

ビジネスPC&PCサーバ

<戻る>

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！