چرخش 90 درجه عکس

[aleas2]

سلام خسته نباشید دوستان بنده میخوام عکس های یک پوشه رو بگیرم و تمامی عکس هارو 90 درجه به راست بچرخونم بعد عکس هارو ذخیره کنم

1- چطور وقتی ادرس پوشه به برنامه دادم خودش اتوماتیک ادرس تمامی عکس های موجود در اون پوشه ادرساشونو در لیست باکس ذخیره کنه

2- چطور عکس 90 درجه به راست بچرخونم؟

[m.4.r.m]

با این برنامه می تونی تصویر رو 90 درجه چرخش بدی

و اما سوال اول شما :

یک عدد Drive ، Dir , File به برنامه اضافه کن اینایی که گفتم در کامپوننت های فعلی ویژوال بیسیک در صفحه موجود است لازم به اضافه کردن نیست . و این کد ها رو بهش اضافه کن

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


و با این کد هم می تونی تمام عکس های داخل File1 رو انتخاب کنی

Private Sub Command1_Click()

For i = 0 To File1.ListCount - 1
File1.Selected(i) = True
Next i
End Sub

[m.4.r.m]

و این هم سورس دلخواه شما دانلود کن حالشو ببر فقط تشکر یادت نره

[aleas2]

ممنون ولی من که سر در نیوردم چه ربطی به برنامه من داره !!!
من برنامه ای میخوام که ادرس یه پوشه عکس بهش بدم برنامه اتوماتیک تمامی تصاویر اون پوشه رو 90درجه به راست بچرخونه و ذخیره کنه