none
Nachbildung der Startmenüeinträge von Windows RRS feed

  • Frage

  • Hallo liebe MSDN-Community,

    ich habe folgendes Problem bzw. habe folgende Hürde.

    Ich möchte eine richtig schön stylische Liste (egal ob TreeView, ListView oder sonstiges), aller Programmeinträge die unter Start -> Alle Programme zu finden sind gestalten.

    Die Umgebung in der ich die Anwendung entwickle ist Visual Basic 2012 unter Windows Forms.

    Mit folgendem Code habe ich bereits realisiert bekommen das ich eine Liste aller Dateien in allen Unterordnern des Startmenüs zurückgeliefert bekomme:

    Private Sub frmAllPrograms_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim sStartupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonStartMenu) & "\Programs"
            Dim lFiles As List(Of String) = GetFileList(sStartupFolder, True)
        End Sub
    
        Public Shared Function GetFileList(ByVal Root As String, Optional ByVal SubFolders As Boolean = True) As List(Of String)
            Dim FileList As New List(Of String)
            SeekFiles(Root, FileList, SubFolders)
            Return FileList
        End Function
    
        Private Shared Sub SeekFiles(ByVal Root As String, ByRef FileArray As List(Of String), ByVal SubFolders As Boolean)
            Try
                Dim Files() As String = System.IO.Directory.GetFiles(Root)
                Dim Folders() As String = System.IO.Directory.GetDirectories(Root)
    
                For i As Integer = 0 To UBound(Files)
                    FileArray.Add(Files(i).ToString)
                Next
    
                If SubFolders = True Then
                    For i As Integer = 0 To UBound(Folders)
                        SeekFiles(Folders(i), FileArray, SubFolders)
                    Next
                End If
            Catch Ex As Exception
            End Try
        End Sub

    Naja ich hoffe ihr könnt mir helfen, ich bin für jede noch so kleine Hilfe dankbar.


    MfG ASkuN

    Dienstag, 22. Mai 2012 13:10