اشکال در این پوت باکس

[ehsan-ets]

با سلام خدمت همگی استادان :wink:
می خواستم بدونم که کجای این کد اشتباهه؟ :cry:

[ehsan-ets]

Private Sub Form_Load()
e = 0
i = i
While i <= 100
e = e + i
i = i + 5
Wend
Label1.Caption = e
If e < 1000 Then
k = MsgBox("˜&ÊÑ ÇÒ 1000", vbOKOnly, "Ê&Ì& -- Ê&Ì& --")
Else
b = InputBox("È&ÔÊÑ ÇÒ 1000 &˜ &Ç& ÑÇ &ÇÑÏ ˜&&Ï", "È&ÔÊÑ ÇÒ 1000", "")
End If
If b = Cancel Then
End
Else
If b = "" Then
w = MsgBox("Plz complete", vbOKOnly, "salam")
Else
Label2.Caption = b
End If
End If
End Sub

[ehsan-ets]

البته نوشته هایی مثل ؟&ÔÊÑ ÇÒ 1000 &˜ &Ç& ÑÇ &ÇÑÏ ˜&&Ï که این شکلی شدن نوشته های فارسین :wink: :roll:
من در واقع بیشتر منظورم اینه که اگر کاربر روی Cancel کلیک کرد از برنامه خارج شه و اگر داخل این پوت باکس چیزی ننوشت و Ok رو زد به اون یک MsgBox نشون بدم :wink:
اما این طور که متوجه شدم اگر کاربر داخل این پوت باکس رو خالی بزاره و روی OK کلیک کنی یا روی Cancel کلیک کنی هر دو (در هر دو صورت) مقادر تهی یا "" را بر میگردانند . بنابر این بر اساس کدی که نوشتم باید از برنامه خارج بشه ولی من این رو نمی خوام رو می خوام که ...(دربالا گفتم :wink: )

[(سیدشریفی)]

آقا احسان سلام
چرا خودتون با استفاده از یک <span dir=ltr>Form</span> کد این کار را نمی نویسید
شما میتوانید با استفاده از یک <span dir=ltr>Textbox</span> و دو عدد <span dir=ltr>commandButton</span> کاری را که میخواهید انجام دهید
اگر کد آن را خواستید بگویید تا برایتان بنویسم

[ehsan-ets]

متاسفانه این جوری ازم خواستن :cry:
از راهنمایی شما ممنون ولی... :wink: :cry: :roll:

[روح اله معینی زاده]

:o با سلام

توی کدهای بالا که نوشتی خط زیر رو اصلاح کن.

کد شما:
If b = Cancel Then

اصلاح شود به:
If b = vbCancel Then

با احترام- خدانگهدار.