من تو وی بی از دستور این پوت باکس استفاده کردم می خوام وقتی اکی زده شد بره مثلا داخل فرم 2 اگه کنسل کلیک شد بره فرم مثلا 4 حالا دستورش رو چه جوری باید بنویسم؟
ممنون
Printable View
من تو وی بی از دستور این پوت باکس استفاده کردم می خوام وقتی اکی زده شد بره مثلا داخل فرم 2 اگه کنسل کلیک شد بره فرم مثلا 4 حالا دستورش رو چه جوری باید بنویسم؟
ممنون
مطمنی با inputbox میخوای بنویسی؟ این جور مواقع msgbox بهتره.
اول یه متغیر تعریف می کنی a=inputbox(folan) بعد می گی اگه if a=vbok then folan یا مثلا vbcancel
این که عبارت داخل این پوت باکس رو بر میگردونه
فکر کنم با استفاده از تابع GetDlgItemID بشه...
با inputbox هم میشه. مثلا بگی اگه پوچ بود برو فرم 2 در غیر این صورت فرم 1
دوست عزیز درخصوص سوالی که مطرح کردی اگر از msgbox استفاده کنی خیلی باکلاس تر و زیباتر می شود
خودم هم می دونم با msgbox قشنگتر می شه اما من می خوام با inputbox داده وارد کنم و روی اون داده عملیات انجام بدم با msgbox که نمی شه داده وارد کردنقل قول:
نوشته شده توسط hamed_F
نقل قول:
نوشته شده توسط Payman62
خوب همینی که داری به فارسی می گی چه جوری با وی بی بنویسم خود من هم بلدم با فارسی بگم برو.....:چشمک:
نقل قول:
نوشته شده توسط khareh_siah
چه جوری؟ دقیقا برنامه اش چه جوری می شه لطفا پارامترهاش رو هم بگین مرسی
نقل قول:
نوشته شده توسط jalal khodaeyan vb
من برم اینو چک کنم ببینم می شه یا نه
این روش رو امتحان کن ، امید وارم درست متوجه شده باشم
a=inputbox("","")
if a=1 then form2.show
if a=2 then form3.show
.....
if a="" then formX.show
در صورتی که دکمه 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
از کمکی که کردین ممنون این بدرد رشته ها می خوره اما من یه مشکل تپل دارم اونم اینه که بعضی از داده های ورودی int هستند حالا باید چیکار کنم؟
داده اینتجر رو هم شما به صورت رشته دریافت میکنه دیگه. بعد با val تبدیلش میکنی به متغیر عددی.
می دونید چقدر کار من زیاد می شه یعنی هیچ راهی نداره؟؟؟؟؟:گیج:نقل قول:
نوشته شده توسط Payman62
یعنی چی؟ کارم زیاد میشه؟
نقل قول:
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
چقدر خودت رو اذیت می کنی. اگه خیلی دوست داری رو Box مانور بدی یه فرم بجاش ایجاد کن.
[QUOTE=Ner'zhul Arthas]یعنی چی؟ کارم زیاد میشه؟[/QUOTE
از کمکی که کردین سپاسگزارم مشکلم حل شد
سال نو همگی مبارک
نقل قول:
نوشته شده توسط Ner'zhul Arthas
از کمکی که کردین سپاسگزارم مشکلم حل شد
خیلی خوبه که می تونی به فارسی بگی امیدوارم که کد زیر مشکلتو حل کنهنقل قول:
نوشته شده توسط khomar
a = InputBox("Enter:") 'input
If a = Empty Then
form1.show
Else
form2.show
End If
اگه دکمه OK کلیک بشه فرم2 و اگه Cancel کلیک بشه فرم1 نشون داده میشه
نقل قول:
نوشته شده توسط riyahiyan
من تو برنامه نویسی اماتور نیستم از کمکتون ممنون در ضمن مشکلم حل شد