Visual basic map zoeker

[lolfunner]

hallo,

ik wil graag een zoek machine maken,
als je die opstart dan hij dan 1 map doorzoekt en dan in onder elkaar weergeeft en dat je er op kan klikken
het gaat over muziek bestanden. die allemaal in 1 map staan

weet iemand of dit kan met VB en zou die de codes kunnen maken en wat er in moet staan
ik ga zelf ook even iets proberen, helaas ken ik de standaardt codes pas



mvg, wouter

 

[johannetje2]

Als ik begrijp wat je bedoeld, wil je dus de bestanden opvragen die in een map staan?

Ik puzzel wel eventjes een code voor je in elkaar:

Eerst maak je een knop, listview (grote items), en vervolgens nog een Imagelist (Let op! Noem deze bij Name: ItemIcoon, zet de colordepth op 32, en zet de size naar 32 bij 32 (32; 32)

Dan vervang je alle code door dit:

Public Class Form1

    Dim Bestandnaam As String = ""
    Dim Map As String = My.Computer.FileSystem.SpecialDirectories.Desktop 'Hier het path wat hij moet doorzoeken

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        For Each i In My.Computer.FileSystem.GetFiles(Map)
            Dim AddItem As System.Drawing.Icon = Icon.ExtractAssociatedIcon(i)
            ItemIcoon.Images.Add(AddItem.ToBitmap)
            i = i.Replace(Map & "\", "")
            Resultaten.Items.Add(i, ItemIcoon.Images.Count - 1)
        Next
    End Sub

    Private Sub Listview1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listview1.DoubleClick
        Process.Start(Bestandnaam)
    End Sub

    Private Sub Listview1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles Listview1.ItemSelectionChanged
        Bestandnaam = Map + "\" + e.Item.Text
    End Sub
End Class

Ik hoop dat ik je hiermee heb geholpen!

 

[lolfunner]

heel erg bedankt voor de code
bijna alles werkt aleen hij geeft resultaten als onderstreeot aan
ik heb al met results geprobeerd en werkt ook niet, weet jij hoe dit zit?

 

[johannetje2]

heel erg bedankt voor de code
bijna alles werkt aleen hij geeft resultaten als onderstreeot aan
ik heb al met results geprobeerd en werkt ook niet, weet jij hoe dit zit?

Sorry, mijn fout noem dat onderstreept woord listview1

 

[lolfunner]

ik denk dat ik iets vergeten ben
ik druk op die knop en dan gebeurt er niks xD?
moet ik nog iets doen

 

[johannetje2]

even de code kopieeren in het button element en dan dat weg doen, dubbelklik op de button en dan plakken. Dat geldt ook voor de andere 2 functies!

Die vind je bij in de properties op het bliksempje te klikken.