ShowOpen & Arayeha

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

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]


1. وفتی کاربر رو گزینه ی Open کلیک کرد و برنامه هر تعداد عکسی که کاربر انتخاب میکنه در خودش حفظ کنه ( فکر کنم با آرایه باید این کار رو کرد) و وقتی در Image نشون بده
2. کاربر با زدن Next به عکس بعدی بره
3. کاربر با زدن Back به عکس قبلی بره
4. کاربر با زدن Delete عکسی رو که نمیخواد حذف کنه توجه کنید عکس از لیست حذف بشه یعنی یکی از اون عکسهای که انتخاب کرده پاک بشه
5. مهمش اینه کاربر با زدن Zoom روی عکس زوم کنه

اینم چیزی هستش که من برای دکمه Open نوشتم خوب چیکار کنیم هیچی بلد نیستیم :31:

کد:

---

Private Sub Command5_Click()
CommonDialog1.Filter = "JEPG|*.jpg"
CommonDialog1.ShowOpen
A = CommonDialog1.FileName
Image1.Picture = LoadPicture(A)
End Sub

---

با تشکر از شما تو رو خدا اگه کسی چیزی بلده یاد بده من همه چیزش رو گذاشتم اینجا تا کسایی که بلد نیستن هم بفهمن چی شده
با تشکر از شما و مدیرای گل سایت :11:

یه ارایه بدون مقدار تعریف کن
بعد هر دفعه که یه عکس اوردی یدونه به مقدارش اضافه کن ( ارایه ای از Image یا Bitmap )
واسه Zoom هم می تونی از Stertech استفاده کنی X و Y عکس رو زیاد کن
برنامه ی ساده ایه

دوست من از راهنمایهات خیلی ممنونم

اگه لطف کنی و کد برنامه اش رو بزاری ممنون میشم آخه برای من که مبتدی هستم یه خورده سخته

بازم ممنونم ازت

سلام من برای دکمه های next,befor,zoomin,zoomout را برات می نویسم البته اینی که من نوشتم برای مثلا 4 عکسه
general
public x as integer

form.load
x=0

next.clic
img(x).visible=false
x=x+1
if x=4 then x=0
img(x).visinle=true


befor.clic
img(x).visible=false
x=x-1
if x=0 then x=4
img(x).visible=true



zoomin.clic
img.eight=img.height+2
img.left=img.left-200
img.top=img.top-200
img.wedth=img.width+200
00

zoomout.clic
img.left=img.left+200
img.top=img.top+200
img.height=img.height-200
img.width=img.width-200