cabok dast
پنج شنبه 20 آذر 1393, 21:52 عصر
با سلام تقریبا میخوام یه برنامه مثل برنامه ای که برای ویندوز هستش برای نمایش عکس ها رو بنویسم
این کد برای دکمه next هستش
Private Sub Command1_Click()
Static m As Integer
m = m + 1
Picture1.Picture = LoadPicture("C:\sp\" & m & ".jpg")
If m = 8 Then
Command1.Enabled = False
End If
End Sub
اما حال نمیدونم چطوری کد دکمه ی back رو بنویسم ؟
البته فکر کنم اول باید متغیر m رو به صورت سراسری تعریف کنم که نمیدونم چطوری میشه ؟
این کد برای دکمه next هستش
Private Sub Command1_Click()
Static m As Integer
m = m + 1
Picture1.Picture = LoadPicture("C:\sp\" & m & ".jpg")
If m = 8 Then
Command1.Enabled = False
End If
End Sub
اما حال نمیدونم چطوری کد دکمه ی back رو بنویسم ؟
البته فکر کنم اول باید متغیر m رو به صورت سراسری تعریف کنم که نمیدونم چطوری میشه ؟