سوال در مورد inputbox

[khomar]

من تو وی بی از دستور این پوت باکس استفاده کردم می خوام وقتی اکی زده شد بره مثلا داخل فرم 2 اگه کنسل کلیک شد بره فرم مثلا 4 حالا دستورش رو چه جوری باید بنویسم؟

ممنون

[Payman62]

مطمنی با inputbox میخوای بنویسی؟ این جور مواقع msgbox بهتره.

[jalal khodaeyan vb]

اول یه متغیر تعریف می کنی a=inputbox(folan) بعد می گی اگه if a=vbok then folan یا مثلا vbcancel

[khareh_siah]

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

[khareh_siah]

فکر کنم با استفاده از تابع GetDlgItemID بشه...

[Payman62]

با inputbox هم میشه. مثلا بگی اگه پوچ بود برو فرم 2 در غیر این صورت فرم 1

[hamed_F]

دوست عزیز درخصوص سوالی که مطرح کردی اگر از msgbox استفاده کنی خیلی باکلاس تر و زیباتر می شود

[khomar]

دوست عزیز درخصوص سوالی که مطرح کردی اگر از msgbox استفاده کنی خیلی باکلاس تر و زیباتر می شود

خودم هم می دونم با msgbox قشنگتر می شه اما من می خوام با inputbox داده وارد کنم و روی اون داده عملیات انجام بدم با msgbox که نمی شه داده وارد کرد

[khomar]

با inputbox هم میشه. مثلا بگی اگه پوچ بود برو فرم 2 در غیر این صورت فرم 1


خوب همینی که داری به فارسی می گی چه جوری با وی بی بنویسم خود من هم بلدم با فارسی بگم برو.....:چشمک:

[khomar]

فکر کنم با استفاده از تابع GetDlgItemID بشه...


چه جوری؟ دقیقا برنامه اش چه جوری می شه لطفا پارامترهاش رو هم بگین مرسی

[khomar]

اول یه متغیر تعریف می کنی a=inputbox(folan) بعد می گی اگه if a=vbok then folan یا مثلا vbcancel


من برم اینو چک کنم ببینم می شه یا نه

[hamed_F]

این روش رو امتحان کن ، امید وارم درست متوجه شده باشم
a=inputbox("","")
if a=1 then form2.show
if a=2 then form3.show
.....
if a="" then formX.show

[S_VB.max]

در صورتی که دکمه Cancel زده شود یعنی اینکه مقدار برگشتی ، خالی است و اگر دکمه Ok زده شود مقدار برگشتی برابر همان مقداری خواهد شد که در InputBox نوشته ای ، با این توضیحات کد زیر را برای دکمه های Cancel و OK بنویس



Private Sub Command1_Click()
Dim a As String
a = InputBox("Enter your password : ", "Example")
If a <> "" Then
Beep
Else
End
End If
End Sub

[khomar]

از کمکی که کردین ممنون این بدرد رشته ها می خوره اما من یه مشکل تپل دارم اونم اینه که بعضی از داده های ورودی int هستند حالا باید چیکار کنم؟

[Payman62]

داده اینتجر رو هم شما به صورت رشته دریافت میکنه دیگه. بعد با val تبدیلش میکنی به متغیر عددی.

[khomar]

داده اینتجر رو هم شما به صورت رشته دریافت میکنه دیگه. بعد با val تبدیلش میکنی به متغیر عددی.

می دونید چقدر کار من زیاد می شه یعنی هیچ راهی نداره؟؟؟؟؟:گیج:

[Ner'zhul Arthas]

یعنی چی؟ کارم زیاد میشه؟



Private Sub Command1_Click()
Dim a As String
dim b as integer
a = InputBox("Enter your password : ", "Example")
If a <> "" Then

b=val(a)
هرکاری خواستی با عدد بکنی با b میکنی

Else
هر کاری خواستی بعد از زدن cancel بکنی اینجا مینویسی
End If
End Sub

[meh_secure]

چقدر خودت رو اذیت می کنی. اگه خیلی دوست داری رو Box مانور بدی یه فرم بجاش ایجاد کن.

[khomar]

[QUOTE=Ner'zhul Arthas]یعنی چی؟ کارم زیاد میشه؟[/QUOTE


از کمکی که کردین سپاسگزارم مشکلم حل شد
سال نو همگی مبارک

[khomar]

یعنی چی؟ کارم زیاد میشه؟


از کمکی که کردین سپاسگزارم مشکلم حل شد

[riyahiyan]

خوب همینی که داری به فارسی می گی چه جوری با وی بی بنویسم خود من هم بلدم با فارسی بگم برو.....:چشمک:

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

a = InputBox("Enter:") 'input
If a = Empty Then
form1.show
Else
form2.show
End If
اگه دکمه OK کلیک بشه فرم2 و اگه Cancel کلیک بشه فرم1 نشون داده میشه

[khomar]

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

a = InputBox("Enter:") 'input
If a = Empty Then
form1.show
Else
form2.show
End If
اگه دکمه OK کلیک بشه فرم2 و اگه Cancel کلیک بشه فرم1 نشون داده میشه


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