نماش یا حذف عکس از یه فولدر

[A_1397]

سلام. چنتا عکس داخل یه فولدر دارم. یه فرم هم دارم برای نمایش عکس های داخل فولدر. برای خوندن و نمایش عکس از فولدره به pictureboxفرمم مشکلی ندارم ولی نمیدونم با چه دستوری باید نمایش عکس ها رو next یا back کنم یا حتی هر کدوم رو delet کنم.

[Hybrid]

سلام ، واست یک نمونه پروژه رو نوشتم ببین بدردت میخوره ، واسه حذف هم میتونی از

my.computer.fileSystem.deletefile استفاده کنی که داخل این نمونه قرارش ندادم تا خودتون برید دنبال مطلب

[فرید نجفلو]

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

Public Class Form1
Private ImageFilesList As New List(Of String)
Private CurrentIndex As Integer = 0
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
Dim AllFiles = IO.Directory.GetFiles("G:\UsersFolders\Farid\Documents\Pictures")
Dim ImageFiles = (From aFile As String In AllFiles Let Ext = IO.Path.GetExtension(aFile).ToLower Where _
Ext = ".jpg" OrElse Ext = ".jpeg" OrElse Ext = ".bmp" OrElse Ext = ".gif" OrElse Ext = ".png" _
Select aFile)
ImageFilesList.Clear()
ImageFilesList.AddRange(ImageFiles)
CurrentIndex = 0
If ImageFilesList.Count > 0 Then
Me.PictureBox1.Image = Image.FromFile(ImageFilesList(CurrentIndex))
End If

End Sub
Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If ImageFilesList.Count = 0 Then Exit Sub
If e.KeyCode = Keys.N Then
CurrentIndex += 1
If CurrentIndex >= ImageFilesList.Count Then CurrentIndex = 0 'Goto First (Loop)
Me.PictureBox1.Image = Image.FromFile(ImageFilesList(CurrentIndex))
ElseIf e.KeyCode = Keys.B Then
CurrentIndex -= 1
If CurrentIndex < 0 Then CurrentIndex = ImageFilesList.Count - 1 'Goto End (Loop)
Me.PictureBox1.Image = Image.FromFile(ImageFilesList(CurrentIndex))
End If
End Sub
End Class

[کاظم فلاحی خواه]

سلام بر دوستان عزیز معاون محترم (سیاوش) و مدیر بخش بانک اطلاعاتی (فرید) .
سلام بر دوست عزیز arcgis ، پروژه ی زیر رو دانلود کن امیدوارم واست خوب باشه .
87141
باتشکر ./

87142