اجرای تصویر در ادرس متفاوت

[faramarz.bnd]

سلام وقتتون دوستان
ما توبهفرم یه لیست ویو و پیکچر باکس داریم.
دوستان ما یه لیست ویو داریم که تصاویرش از یه آدرس لود میشه و اسم هر عکس پاینش نمایش داده میشه.
حالا من میخوام رو هر ایتم از این لیست که کلیک بشه،تصویر پیکچر باکس در آدرس دلخواه ولی با نام همون ایتم لود بشه.
یعنی اگر ادرس لیست ویو G:\app pictor\app\model1\UP باشد و اسم ایتم 250
پیکچر باکس ما G:\app pictor\app\model1\SET باشد و تصویر با اسم 250 لود شود

 

[the_king]

سلام وقتتون دوستان
ما توبهفرم یه لیست ویو و پیکچر باکس داریم.
دوستان ما یه لیست ویو داریم که تصاویرش از یه آدرس لود میشه و اسم هر عکس پاینش نمایش داده میشه.
حالا من میخوام رو هر ایتم از این لیست که کلیک بشه،تصویر پیکچر باکس در آدرس دلخواه ولی با نام همون ایتم لود بشه.
یعنی اگر ادرس لیست ویو G:\app pictor\app\model1\UP باشد و اسم ایتم 250
پیکچر باکس ما G:\app pictor\app\model1\SET باشد و تصویر با اسم 250 لود شود

فرض کنیم که شما طبق روال کد قبلی در ListView اسم فایل (بدون مسیر پوشه) رو قرار داده باشید تا عنوان آیتم باشه :

                    Dim filename = Path.GetFileName(file)
                    ImageList1.Images.Add(file, thumb)
                    ListView1.Items.Add(filename, file)

در اینصورت موقع کلیک کردن روی هر آیتم، اسم فایل رو در ListView1.SelectedItems(0).Text خواهید داشت و می توانید با مسیر پوشه
مورد نظر ترکیبش کنید تا مسیر کامل تصویر بدست بیاد :

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        If ListView1.SelectedItems.Count = 0 Then Exit Sub
        Dim filename = ListView1.SelectedItems(0).Text
        Try
            If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(Path.Combine("G:\app pictor\app\model1\SET", filename))
        Catch ex As Exception
            PictureBox1.Image = Nothing
        End Try
    End Sub

 

[faramarz.bnd]

فرض کنیم که شما طبق روال کد قبلی در ListView اسم فایل (بدون مسیر پوشه) رو قرار داده باشید تا عنوان آیتم باشه :

                    Dim filename = Path.GetFileName(file)
                    ImageList1.Images.Add(file, thumb)
                    ListView1.Items.Add(filename, file)

در اینصورت موقع کلیک کردن روی هر آیتم، اسم فایل رو در ListView1.SelectedItems(0).Text خواهید داشت و می توانید با مسیر پوشه
مورد نظر ترکیبش کنید تا مسیر کامل تصویر بدست بیاد :

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        If ListView1.SelectedItems.Count = 0 Then Exit Sub
        Dim filename = ListView1.SelectedItems(0).Text
        Try
            If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(Path.Combine("G:\app pictor\app\model1\SET", filename))
        Catch ex As Exception
            PictureBox1.Image = Nothing
        End Try
    End Sub

سپاس دوست عزیز مثل همیشه کامل و جامع بدون نقص جواب هارو میدین ممنونم ازتون

 

[faramarz.bnd]

فرض کنیم که شما طبق روال کد قبلی در ListView اسم فایل (بدون مسیر پوشه) رو قرار داده باشید تا عنوان آیتم باشه :

                    Dim filename = Path.GetFileName(file)
                    ImageList1.Images.Add(file, thumb)
                    ListView1.Items.Add(filename, file)

در اینصورت موقع کلیک کردن روی هر آیتم، اسم فایل رو در ListView1.SelectedItems(0).Text خواهید داشت و می توانید با مسیر پوشه
مورد نظر ترکیبش کنید تا مسیر کامل تصویر بدست بیاد :

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        If ListView1.SelectedItems.Count = 0 Then Exit Sub
        Dim filename = ListView1.SelectedItems(0).Text
        Try
            If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(Path.Combine("G:\app pictor\app\model1\SET", filename))
        Catch ex As Exception
            PictureBox1.Image = Nothing
        End Try
    End Sub

کاملا اجرا شده ودرست