ثبت در لیست

[mehr_83]

با سلام
بااستفاده از قطعه کد زیر تعدادی فایل را انتخاب و در لیست قرار میدم.
Private pic As New List(Of Image)()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
For Each pic_image As String In OpenFileDialog1.FileNames
Dim img As New Bitmap(pic_image)
pic.Add(img)
Next
Label1.Text = pic.Count.ToString()
PictureBox1.Image = pic(a)
End If
چطوری میشه بصورت دستی تعریف کرد و نیازی به Openfile نباشه.
یعنی مسیر فولدری که در داخل برنامه قرار داره رو بصورت دستی بدم و در لیست قرار بگیره

[gilsoft]

با سلام
بااستفاده از قطعه کد زیر تعدادی فایل را انتخاب و در لیست قرار میدم.
Private pic As New List(Of Image)()
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
For Each pic_image As String In OpenFileDialog1.FileNames
Dim img As New Bitmap(pic_image)
pic.Add(img)
Next
Label1.Text = pic.Count.ToString()
PictureBox1.Image = pic(a)
End If
چطوری میشه بصورت دستی تعریف کرد و نیازی به Openfile نباشه.
یعنی مسیر فولدری که در داخل برنامه قرار داره رو بصورت دستی بدم و در لیست قرار بگیره

سلام دوست عزیز

اینم کد مربوطه :
Dim Files() As String = System.IO.Directory.GetFiles("D:\Pics")
For Each pic_image As String In Files
''
''
''
Next

و یا

Dim Files() As String = System.IO.Directory.GetFiles("D:\Pics", "*.jpg", IO.SearchOption.AllDirectories)

موفق باشید .....

[mehr_83]

چطور میشه به جای System.IO.Directory.GetFiles("D:\Pics") از Application.StartupPath استفاده کرد؟

[gilsoft]

چطور میشه به جای System.IO.Directory.GetFiles("D:\Pics") از Application.StartupPath استفاده کرد؟

سلام ذوست عزیز

System.IO.Directory.GetFiles(Application.StartupPa th)

موفق باشید ....

[mehr_83]

سلام ذوست عزیز

System.IO.Directory.GetFiles(Application.StartupPa th)

موفق باشید ....
ممنون. حل شد.