Nj problem ne VB.net

[furkan]

Pershendetje, Boll ju kom lodh me molla dash du me ja nis me dardha. e pershendes Hot_Prinzin se po ma mer mendja qe pergjigja ka me me ardh apostafat nga ai.
Kam krijuar nje database qe eshte i lidhur me Access nga vb.Net duke e falenderuar ndihmesit nga forumi shqiptar se une vet nuk isha ne gjendje ta kompletoja, por eshte nje problem i vogel, nga datagridi i ruaj fajlla tekstual per klientin per secilin klient nga nje folder, dhe aty perveq qe datagridat i ruaj si fajll tekstual po ka nevoj me i rujtedhe si eksell fajlla, po per ate pune nese nuk e gej kodin ne google, me mjafton edhe sitxt qe iruaj, por klientit i bashkangjes edhe foto edhe fajlla nga exceli dhe wordi qellimi im eshte te ndertoj nji form qe nga folderi i caktuar te i shoh qka ka ne ate folder a jane fajlla textuaj apo jane xls, dhe me i pa qka ka ne te faktikisht permes treewievit dhe picture boxit apo edhe ndonje komponente tjeter ta shoh se qka ka ne te fajll

[hot_prinz]

furkan,

nese te kuptova mire, po te nevojitet nje funksion si nje lloj fileBrowser. Ja nje shembull se si zgjedh nje Folder, File-t me filterin *txt qe gjinden ne Folder i shfaq ne nje ListBox dhe me nje klikim ne File ne ListBox shfaqet permbajtja e tyre ne nje Textbox.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fd As FolderBrowserDialog = New FolderBrowserDialog()

        'hap nje dialogBox per te zgjedhur nje folder
        If fd.ShowDialog() = DialogResult.OK Then
            Dim selectedFolder As String = fd.SelectedPath
            TextBox1.Text = selectedFolder
            listo(selectedFolder, ListBox1)
        End If

    End Sub
    Sub listo(ByVal folder, ByRef ListBox1)

        Dim di As New IO.DirectoryInfo(folder)
        Dim diar1 As IO.FileInfo() = di.GetFiles("*.txt")
        Dim dra As IO.FileInfo

        'liston cdo file te tipit *txt ne ListBox
        For Each dra In diar1
            ListBox1.Items.Add(dra.FullName)
        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        'cdo file te shtypur ne Listbox, shfaq ne Textbox2
        TextBox2.Text = My.Computer.FileSystem.ReadAllText(ListBox1.SelectedItem)

    End Sub

End Class

Me poshte i gjithe Projekti si shembull ne Vb.Net dhe nje pamje.

[furkan]

Kestu me text fajll e kam maru edhe vet ,por problemi eshte per fajlla tjer, si eksel fajlla, word dokumente,edhe foto keto ane fajlla qe po mundohem me bo shum faleminderit per kete ndihme, se ve per tekst fajlla e kam bo ne nji menyr pak ma ndryshe e kam gjet kodin ne internet, porr jam munduar me bo per fajlla.Xls,.Doc dhe.Jpeg.
ketu eshte ajo qe me dhemb mua.

jam munduar qe me picture box disi me e zgjedh por nuk ja arita.
se di ndoshta nuk ka mundesi teknike, me heret ne vb6.0 kish pas bo diqka te atille por e kam humb kodin nuk e di nja 3 jav jam pas baravat me kete problem por shendosh nese nuk arij me zgjidh kete problem do te jem i detyruar qe e vend se te jet ai tekst boxi ne anen e djatht ta beje nje buton qe me i hap fajllat dmth me i ekzekutu per me pa mbredin e tij.
shendosh.
Ju faleinderit per ndihmen e ofruar.

[hot_prinz]

Furkan,

e zgjerova kete shembullin e mehershem, tani mund te shiqosh file te ndryshme, filma, muzike...

Perpos Doc, DocX, Xls, Xlsx nga Office, Pdf, pastaj fotografi Jpg, Bmp, Png, Gif, Ico, me tekst txt, ini, log, bat, js, php, css dhe media Mp3, Avi, Vob, Wma, Wav, Mid, mund te zgjerohet edhe me tej, keto vetem se i verifikova.

Tek dokumentet Office nevojitet Word res. Excel sepse Filet hapen dhe ruhen si Html e pastaj linkohen ne WebBrowser. Nese Filet jane te medha atehere procesi vonon dhe kjo shifet ne nje label me ngjyre te kuqe qe programi eshte duke procesuar.

Imports Microsoft.Office
Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fd As FolderBrowserDialog = New FolderBrowserDialog()

        'hap nje dialogBox per te zgjedhur nje folder
        If fd.ShowDialog() = DialogResult.OK Then
            Dim selectedFolder As String = fd.SelectedPath
            TextBox1.Text = selectedFolder
            TextBox1.Enabled = False
            ListBox1.Items.Clear()
            listo(selectedFolder, ListBox1)
        End If

    End Sub
    Sub listo(ByVal folder, ByRef ListBox1)

        Dim di As New IO.DirectoryInfo(folder)
        Dim diar1 As IO.FileInfo() = di.GetFiles("*.*")
        Dim dra As IO.FileInfo

        'liston cdo file te tipit *txt ne ListBox
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        delTemp()

        'cdo file te shtypur ne Listbox, shfaq ne Textbox2
        Dim selectedFile As String = TextBox1.Text + "\" + ListBox1.SelectedItem.ToString()

        Dim fi As New IO.FileInfo(selectedFile)

        Try
            Select Case (fi.Extension.ToLower())
                Case ".jpg", ".bmp", ".png", ".gif", ".ico"
                    shfaq_foto()
                    PictureBox1.Image = Image.FromFile(selectedFile)
                Case ".txt", ".ini", ".log", ".bat", ".js", ".php", ".css"
                    shfaq_text()
                    TextBox2.Text = My.Computer.FileSystem.ReadAllText(selectedFile)
                Case ".pdf", ".htm", ".html", ".xml"
                    WebBrowser1.Navigate(selectedFile)
                    shfaq_web()
                Case ".docx", ".doc"
                    WebBrowser1.Navigate(shfaq_doc(selectedFile))
                    shfaq_web()
                Case ".xlsx", ".xls"
                    WebBrowser1.Navigate(shfaq_xls(selectedFile))
                    shfaq_web()
                Case ".mp3", ".avi", ".vob", ".wma", ".wav", ".mid"
                    shfaq_media()
                    AxWindowsMediaPlayer1.URL = selectedFile
                Case Else
                    'MessageBox.Show("Ky lloj File nuk suportohet!")
            End Select
        Catch
        End Try


    End Sub

    Private Sub delTemp()

        If IO.Directory.Exists(Application.StartupPath & "\temp") Then
            IO.Directory.Delete(Application.StartupPath & "\temp", True)
        End If
        IO.Directory.CreateDirectory(Application.StartupPath & "\temp")

    End Sub

    Private Sub shfaq_foto()

        PictureBox1.Visible = True
        TextBox2.Visible = False
        WebBrowser1.Visible = False
        AxWindowsMediaPlayer1.Visible = False
        AxWindowsMediaPlayer1.close()

    End Sub

    Private Sub shfaq_text()

        PictureBox1.Visible = False
        TextBox2.Visible = True
        WebBrowser1.Visible = False
        AxWindowsMediaPlayer1.Visible = False
        AxWindowsMediaPlayer1.close()

    End Sub

    Private Sub shfaq_web()

        PictureBox1.Visible = False
        TextBox2.Visible = False
        WebBrowser1.Visible = True
        AxWindowsMediaPlayer1.Visible = False
        AxWindowsMediaPlayer1.close()

    End Sub

    Private Sub shfaq_media()

        PictureBox1.Visible = False
        TextBox2.Visible = False
        WebBrowser1.Visible = False
        AxWindowsMediaPlayer1.Visible = True

    End Sub

    Private Function shfaq_doc(ByVal selectedFile As String) As String
        Label1.Text = "Duke punuar..."
        Label1.BackColor = Color.Red
        Dim creHtml As String = Application.StartupPath & "\temp\x.html"
        Dim oWord As New Word.Application()
        Dim oWordDoc As New Word.Document()
        oWord.Visible = False
        oWordDoc = oWord.Documents.Open(selectedFile)
        oWordDoc.SaveAs(creHtml, Word.WdSaveFormat.wdFormatHTML)
        oWordDoc.Close()
        oWord.Quit()

        shfaq_doc = creHtml
        Label1.BackColor = Color.Transparent
        Label1.Text = ""
    End Function

    Private Function shfaq_xls(ByVal selectedFile As String) As String
        Label1.Text = "Duke punuar..."
        Label1.BackColor = Color.Red
        Dim creHtml As String = Application.StartupPath & "\temp\x.html"
        Dim path As String = selectedFile
        Dim objexcel As New Excel.Application
        Dim o_nullobject As Object = System.Reflection.Missing.Value
        Dim o_filePath As Object = path
        Dim doc As Excel.Workbook = objexcel.Workbooks.Open(o_filePath, o_nullobject, _
            o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject, _
            o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject)
        Dim o_newfilename As Object = creHtml
        Dim o_format As Object = Excel.XlFileFormat.xlHtml
        Dim o_encoding As Object = Microsoft.Office.Core.MsoEncoding.msoEncodingUTF8
        objexcel.ActiveWorkbook.SaveAs(o_newfilename, o_format, o_nullobject, o_nullobject, o_nullobject, o_nullobject, _
            Excel.XlSaveAsAccessMode.xlNoChange, o_nullobject, o_nullobject, o_nullobject, o_nullobject, o_nullobject)
        doc.Close(o_nullobject, o_nullobject, o_nullobject)
        objexcel.Quit()

        shfaq_xls = creHtml
        Label1.BackColor = Color.Transparent
        Label1.Text = ""

    End Function

End Class

Pasi qe ne projekt jane futur Componente te Word, Excel, Windows Media Player.. projekti tejkalon madhesine e lejuar e nuk mund ta bashkangjis.

FBrowser

[furkan]

te faleminderit per ndihmen tende por kam disa probleme qe programi im nuk i njeh

Une shfrytezoj VB.net 2008.

Importi nuk po me funksionon
Imports Microsoft.Office
Imports Microsoft.Office.Interop

pastaj AxWindowsMediaPlayer1 eshte i panjohur qfare komponente eshte kjo
une nuk e kam ne tools

pastaj Word.Application() eshte e panjohur
Dim objexcel As New Excel.Application
Dim doc As Excel.Workbook
Dim o_encoding As Object = Microsoft.Office.Core.MsoEncoding.msoEncodingUTF8
keto jane komanda qe jane te panjohura per Visal studion time.

ndoshta ju punoni me VB.net 2010 por une nuk e kam nese ka nevoj me i downloadura ndonje komponent pe tregoni cila komponent me ndihmoni pak si ta kerkoj.

[hot_prinz]

Furkan loqka jeme,


faktikisht une harrova te shkruaj se e perdora Microsoft Visual Basic .Net 2010 Express Edition, eshte program pa pagese dhe mund ta shkarkosh nga Microsoft Express Edition .NET, vetem kerko ne Google "Microsoft Visual Basic .NET Express Edition".
Pasi qe, jane te nderlidhura edhe komponentet e Microsoft Office si Word, Excel.

Cfare Microsoft Office perdor ti?

Une perdori Microsoft Office 2007 dhe kam verejte qe komponentet nga versioni 2003 dhe 2007 i Microsoft Office dallojne per nga implementimi.

Nese nuk do qe te kesh probleme duhet te besh update per Microsoft Visual Basic versionin 2010 dhe per Microsoft Office versionin 2007 ose 2010.

[furkan]

e instalova Vb.net 201o expres edition dhe i thira windows mediaplayer componente dhe te office por word dhe excel proceduren nuk po ma njeh pastaj i selektova komplet komponente ma qiti nji error diqka qe nuk e kuptova nga po me vjen

nuk e di pse spo ma njeh a ka mundesi me ma tregu emrin e komponentes qe duhet me e thir nga xhoos ites.

[hot_prinz]

Furkan,


ja e krijova nje Video se si krijohet dhe cfare komponentesh te nevojiten hap pas hapi.



Informacionet rreth Kompjuteri:

Windows 7 Home Premium
Microsoft Office 2007

Komponentet e perdorura nga COM:

Microsoft Word 12.0 Object Library
Microsoft Excel 12.0 Object Library
Windows Media Player