Aplicatie cautare documente cu Visual Studio 2008

Cum să faci o aplicaţie care să caute documente în calculator şi să le şi deschidă când dai enter sau „cauta”. În filmuletele ce vor urma, voi arata cum functionează şi cum se face. 

1. Cum functionează (http://www.youtube.com/watch?v=ldu5y4Vp4lc

2. Cum se face (proiect nou)

Partea 1 : http://www.youtube.com/watch?v=5G0nZ68QjNs

Partea 2: http://www.youtube.com/watch?v=Ext3HIC6nGw

Update: Mda, tocmai am vazut ca nu se vede prea stralucit pe youtube, degeaba le-am incarcat. Daca e cineva interesat si nu se descurca doar cu codul si ce se intelege in filmulete, un mesaj si trimit filmuletele originale

Poate fi util la o aplicatie mai mare, care realizeaza salvari, log-uri, etc.

3. Codul, pentru cei fideli copy paste (sa nu se chinuie sa copie codul din filmulet)

 –––––––––––––––––––––––––––––-   

Public Class Form1   

    Dim numefisier As String
    ‘sub de cautare
    Private Sub cautadocument()
   

        Dim found As Integer = 0
        ‘introducem try catch pentru eventualele erori care pot aparea, nu exista document, etc
   

        Try
            If Not txtcauta.Text = Nothing Then
                ‘se curata lista
                Lwcauta.Items.Clear()
                ‘din start nu gaseste nici un document
                found = 0
                ‘pentru fiecare fisier din folderul dorit este gasit un document se afiseaza in
                ‘lista si sea aduna in found
                For Each file In My.Computer.FileSystem.GetFiles(„D:\certificate distrugere\certificate distrugere\”, FileIO.SearchOption.SearchTopLevelOnly, Nothing)
                    numefisier = My.Computer.FileSystem.GetFileInfo(file).Name
                    ‘daca titlul in search box contine ceva atunci se adauga in lista
                    If numefisier.Contains(txtcauta.Text) Then
                        Lwcauta.Items.Add(numefisier)
                        ‘se adauga la cele gasite cate 1
                        found = found + 1
   

                    End If
                Next
                ‘se notifica cate certificate au fost gasite in lblcegasesc
                Lblcegasesc.Text = found.ToString + „documente gasite”
            End If
        Catch ex As Exception
            MessageBox.Show(„nu exista calea…….”, „contactati administratorul”, MessageBoxButtons.OK, MessageBoxIcon.Error)
   

        End Try
    End Sub
   

    Private Sub btncauta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncauta.Click
        cautadocument()
   

    End Sub
    ‘se porneste documentul selectat (sa vad daca mai tin minte)
   
    Private Sub Lwcauta_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lwcauta.DoubleClick
        Process.Start(„D:\certificate distrugere\certificate distrugere\” & numefisier.ToString)
   

    End Sub
    ‘se identifica documentul
   

    Private Sub Lwcauta_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles Lwcauta.ItemSelectionChanged
        numefisier = e.Item.Text
   

    End Sub
    ‘daca vrem dupa ce scriem textul in textbox sa dam enter fara a mai apasa butonul cauta
   

    Private Sub txtcauta_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcauta.KeyUp
        If e.KeyCode = Keys.Enter Then
            cautadocument()
   

        End If
    End Sub
    ‘sa vedem daca merge
End Class

2 Responses to Aplicatie cautare documente cu Visual Studio 2008

  1. Pingback: Aplicatie Remat (casare masini uzate) « Ionut Sinescu

  2. Pingback: 2010 in review « Ionut Sinescu

Lasă un răspuns

Completează mai jos detaliile despre tine sau dă clic pe un icon pentru autentificare:

Logo WordPress.com

Comentezi folosind contul tău WordPress.com. Dezautentificare / Schimbă )

Poză Twitter

Comentezi folosind contul tău Twitter. Dezautentificare / Schimbă )

Fotografie Facebook

Comentezi folosind contul tău Facebook. Dezautentificare / Schimbă )

Fotografie Google+

Comentezi folosind contul tău Google+. Dezautentificare / Schimbă )

Conectare la %s

%d blogeri au apreciat asta: