Jak wyświetlić nazwe otworzonego zdjecia w TextBox?

0

Witam, potrzebuje pomocy, mianowicie chce zrobić aby po otwarciu Zdjęcia przez FolderBrowserDialog1, po otwarciu zdjęcia była jego nazwa w TextBox
Mam taki kod ale on pokazuje dziwne znaki.

OpenFileDialog1.ShowDialog()
TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
0

może wystarczy:

System.IO.Path.GetFileName(path);

?

0
.Al napisał(a):

może wystarczy:

System.IO.Path.GetFileName(path);

?

Przy tym wywala błąd 'Path' is a type and cannot be used as an expression.

@Edit
Dodałem

Private Property Path As String

i nie ma błędu, lecz dlaczego nie pokazuje nazwy zdjęcia w TextBox?

0

@ne0 Moge pokazać kod. Przy okazji jak już dam kod to powiedzcie dlaczego jak wybieram zdj to musze wybrać je 2 razy?

Public Class Form1

    Private Property Path As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using dialog As New OpenFileDialog
            If dialog.ShowDialog() <> DialogResult.OK Then Return
        End Using
        Dim fd As OpenFileDialog = New OpenFileDialog()
        Dim strFileName As String

        fd.Filter = "All files (*.*)|*.*"
        fd.FilterIndex = 1
        fd.RestoreDirectory = True

        If fd.ShowDialog() = DialogResult.OK Then
            strFileName = fd.FileName
        End If


        Dim imgName As String = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
        TextBox1.Text = imgName

    End Sub
0

Pomieszało Ci się to kompletnie, po przerobieniu twojego kodu powinno działać:

Public Class Form1
 
    Private Property Path As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Using dialog As New OpenFileDialog
         dialog.Filter = "All files (*.*)|*.*"
         dialog.FilterIndex = 1
         dialog.RestoreDirectory = True
         If dialog.ShowDialog() = DialogResult.OK Then
            Dim imgName As String = System.IO.Path.GetFileName(dialog.FileName)
            TextBox1.Text = imgName
         End If
      End Using

      'Albo jako file OpenFileDialog przeciągnięty na formę

      OpenFileDialog1.Filter = "All files (*.*)|*.*"
      OpenFileDialog1.FilterIndex = 1
      OpenFileDialog1.RestoreDirectory = True
      If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
         Dim imgName As String = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
         TextBox1.Text = imgName
      End If
   End Sub
0

Dobra a teraz jak zrobić aby zdjęcie (te wybrane) np. o nazwie 123_456.jpg i po kliknięciu buttonu w TextBox2 pokazało http://google.com/456 ??

0

@ Ref

Tutaj mam kod na otwieranie linku z nazwy zdjęcia ale tylko jednej nazwy.

Dim zdjecie As String 
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
zdjecie = OpenFileDialog1.SafeFileName
End If
Process.Start("http://google.com" + zdjecie) 

Ale jak zdjęcie ma nazwe 123_456 i chce żeby był link tylko z http://google.com/456?

1 użytkowników online, w tym zalogowanych: 0, gości: 1