نمایش عکس به صورت ترتیبی

[javady_joon]

با سلام
من میخوام برنامه ای داشته باشم که عکسها رو به صورت ترتیبی نشون بده
یعنی وقتی هر بار که بر روی Button کلیلک میکنم
عکس بعدی رو Visible کنه
خیلی سعی کردم نشد
ممنون

[vbhamed]

سلام
نمونه كاري كه تا حالا انجام دادين رو بزاريد تا دوستان براتون اصلاح كنن يا راهنمايي كنند
درخواست نوشتن پروژه، سورس، تمرين و ... ممنوع است

[javady_joon]

نه سورس و تمرینو پروژه نمیخوام ، یه راهنمایی میخوام
ببینید دقیقا این رو میخوام
میخوام کاری کنم هربار که بر روی Button کلیلک میکنم یک اتفاقی بیافته
مثلا اگر بار اول کلیک کردم یه پیغام نشون بده بار دوم که روش کلیک میکنم یه پیغام دیگه نشون بده یا یه کار دیگه بکنه
در واقع چیکار کنم که دستورات رو یکی پس از دیگری نشون انجام بده؟
اگر خواستین تلاشهای خودم رو هم میذرام

Private Sub Command_Click()
Dim aa As Integer
If aa = 1 Then
MsgBox ("are")
aa = aa + 1
ElseIf aa = 2 Then
MsgBox ("no")
aa = aa - 1
End If


End Sub


یه همچین چیزی نوشتم ولی کار نمیکنه

در واقع میخوام بار اول که روی button کلیک کردم msgbox اول رو نشون بده ok کنم بار دوم که روش کلیک میکنم بره سراغ بعدی msgbox دوم رو چاپ کنه
همین کار رو بعد میخوام در مورد عکسها بکار ببرم
مثلا اینکه هر بار روی Button کلیک کنم عکس مورد نظر Visible=true بشه
ممنون امیدوارم دقیق توضیح داده باشم

[vbhamed]

سلام
تنها تغييري كه لازمه بدين اينه كه متغير aa رو به صورت زير تعريف كنيد
Static aa As Integer
يا اينكه اون رو به همون صورتي كه نوشتين به بالاترين بخش كد فرم منتقل كنيد و داخل Sub نباشه البته روش اول مناسبتره

[samiasoft]

با راهنمایی جنابvbhamed (http://barnamenevis.org/member.php?10624-vbhamed) من کد رو بصورت زیر نوشتم و به درستی کار میکنه.

Static aa As Integer
If aa = 0 Then
MsgBox ("1")
aa = aa + 1
ElseIf aa = 1 Then
MsgBox ("2")
aa = aa + 1
ElseIf aa = 2 Then
MsgBox ("3")
aa = aa + 1
ElseIf aa = 3 Then
MsgBox ("4")
aa = aa + 1
End If

[javady_joon]

با سلام

من Dim رو به بالاترین بخش کد زیر Option Explicit انتقال دادم ولی خطا میگیره من الان در برنامه ام نیاز دارم تا بک متغیر سراسری داشته باشم در واقع من میخوام و قتی در داخل یک sub به یک متغیر مقدار دادم از sub دیگری قابل دسترس و اعمال تغییر باشه
ممنون

[vbhamed]

سلام
وقتي مي‌گين خطا ميگيره نميشه چيزي فهميد بايد دقيقا متن پيام خطا رو بزاريد

[javady_joon]

بفرمایید این هم متن خطا
124655

[Dr Saeed]

برنامه ماشین حسابه ؟

[ایلیا آخوندزاده]

باسلام و درود
من تو vb تعریف کردم و مشکلی هم نداشت این فایل ضمیمه رو بردارید ببینید.
موفق باشید

[just4froum]

با سلام :

دلیل خطا اینه که چون شما در sub sum_Click() متغیری با نام sum دارید نمیتونید یک متغیر global با همان نام بسازید.