کار با SlideShow و ایجاد یک گالری تصاویر

[SilverGold]

سلاه به همه دوستان عزیز

من حقیقتش میخوام یک گالری تصاویر درست کنم که در یک لیست ویو بتونم تصاویر با ابعاد کوچکتر داشته باشم و هر کدوم رو که انتخاب کردم در یک قاب عکس نمایش بده و اینکه بتونم به اون لیست ویو عکس جدید اضافه و یا حذف کنم

ممنون میشم منو راهنمایی کنید در ضمن یک تاپیک شبیه به تاپیک من هست من حقیقتش با ایجاد عنوان جدید گفتم شاید بشه بهتره روی این بحث کار کرد

با تشکر از تمامی دوستان برنامه نویس

[ROSTAM2]

مطمئنا تصاوير بايد در DATABASE ذخيره شوند تصاوير بايد ابتدا به IMAGELIST ارائه داده شده و بلا فاصله به LISTVIEW ارائه داده شود در صورتي كه تصاوير در Imagelist با ابعاد هرچه بزرگتر جاسازي شوند به همان اندازه در listview نمايش داده خواهند شد

شايد بدردتون بخوره:


Dim od As New OpenFileDialog With {.Filter = "(*.jpg;*.bmp;*.jpg)|*.jpg;*.bmp;*.jpg"}
Dim path As String = ""

With od
.Multiselect = True
If .ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then Exit Sub
For i = 0 To .FileNames.Count - 1
path = .FileNames(i)
Dim bi As New Bitmap(path)
With ListView1.Items.Add(IO.Path.GetFileNameWithoutExte nsion(path), 0)
.Tag = path
.SubItems.Add(IO.Path.GetExtension(path))
.SubItems.Add(bi.Height.ToString)
.SubItems.Add(bi.Width.ToString)
.SubItems.Add(bi.VerticalResolution.ToString)
.SubItems.Add(bi.HorizontalResolution.ToString)
End With
bi.Dispose()
Next
End With

[ahmadreza517]

به نام تنها برنامه نویس هستی
سلام ,

نمونه پروژه است (بدون کد نویسی) خودتون باقی کارو انجام بدید(راحت اما وقت گیر)