Jak wybrać obraz.jpg/png/gif z pulpitu/komputera?

[teusz0724k]

Witam, tworze program i mam pewien problem z wyborem zdjęcia z pulpitu.

Używam FolderBrowserDialog jednak gdy klikne na button to mam liste plików ale tylko samych plików lub folderów. Czego użyć bym mógł też wybrać zdjęcia? 

[tubady123]

FolderBrowserDialog, jak sama nazwa wskazuje służy do poszukiwania katalogu. Do wybrania pliku służy OpenFileDialog.

[teusz0724k]

Poradziłem sobie już z tym wczoraj, teraz potrzebuje pomocy w tym, że jak plik ma nazwe 53406394 to po kliknięciu buttonu otworzyło strone http://google/com/i  ciąg cyfr - http://google/com/53406394 ??? 

[tubady123]

Dim nazwa As String

 

 

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

nazwa = OpenFileDialog1.SafeFileName

End If

 

Process.Start("http://www.google.com/" + nazwa)

[teusz0724k]

a jeżeli jest nazwa np. 123_456 i chce tylko http://google/456? Dam limit

[tubady123]

Można rozdzielić stringa za pomocą splita i używać tej drugiej części (w każdej nazwie musi występować jeden znak "_")

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            nazwa = OpenFileDialog1.SafeFileName
        End If



        Dim spl As String() = nazwa.Split("_")
        Process.Start("http://www.google.com/" + spl(1))

[teusz0724k]

Chcę aby po kliknięciu wygeneruj pokazało link w Textbox, bez potrzeby process.start - to można wstawić do buttonu no więc robie:

 

 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            nazwa = OpenFileDialog1.SafeFileName


            Dim spl As String() = nazwa.Split("_")
            Dim nazwa As String = System.IO.Path.GetFileName(dialog.FileName)
            TextBox2.Text = nazwa


        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Process.Start("http://www.google.com/" + spl(1))

 

I są takie errory:

'dialog' is not declared. It may be inaccessible due to its protection level.

'spl' is not declared. It may be inaccessible due to its protection level.

Local variable 'nazwa' cannot be referred to before it is declared.

[tubady123]

Co do tablicy 'spl' to jest ona deklarowana w tej instrukcji warunkowej filedialoga, więc nie będzie ona widoczna poza tym Ifem. A do zmiennej 'nazwa' najpierw odwołujesz się w drugiej linijce, a potem ją tworzysz.

Zadeklaruj zmienne bezpośrednio w klasie, będą widoczne dla wszystkich metod.

[teusz0724k]

Dodałem 

Dim nazwa As String

I nadal jest błąd 

 

Error 1 Local variable 'nazwa' cannot be referred to before it is declared.

 

Gdy usune linijke z buttonu który generuje link to zamiast linku mam nazwe zdj 

 

Dim imgName As String = System.IO.Path.GetFileName(Dialog.FileName)

[tubady123]

Daj cały kod ziom, bo jakiś bałagan masz :P

[teusz0724k]

Public Class Form1

    Dim spl As String()

    Dim imgName As String

    Private FullFilePathName As String = ""

 

 

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

        Using ofd As New OpenFileDialog

            ofd.Filter = "Image Files|*.jpg;*.bmg;*.png;*.gif|All files (*.*)|*.*"

            If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

                FullFilePathName = ofd.FileName

                TextBox1.Text = System.IO.Path.GetFileName(FullFilePathName)

            End If

        End Using

 

 

    End Sub

 

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            imgName = OpenFileDialog1.SafeFileName

 

 

            Dim spl As String() = imgName.Split("_")

            TextBox2.Text = imgName

 

 

        End If

    End Sub

 

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Process.Start("http://www.google.com/" + spl(1))

[tubady123]

2 razy deklarujesz tablice spl(), nie ma w tym kodzie żadnej zmiennej "nazwa", poza tym Button1 i Button2 robią po części to samo. Po co?

[teusz0724k]

Poprawiłem i jest x1 spl(), a nazwe zmieniłem na imgName czyli jest zmienna, a button 1 ma otwierać zdj, button 2 ma generować link w TextBox2 a button 3 ma otworzyć link z textbox2

[sqmpx]

Dim fbd As New FolderBrowserDialog

 

fbd.Show