من تو وی بی از دستور این پوت باکس استفاده کردم می خوام وقتی اکی زده شد بره مثلا داخل فرم 2 اگه کنسل کلیک شد بره فرم مثلا 4 حالا دستورش رو چه جوری باید بنویسم؟
ممنون
من تو وی بی از دستور این پوت باکس استفاده کردم می خوام وقتی اکی زده شد بره مثلا داخل فرم 2 اگه کنسل کلیک شد بره فرم مثلا 4 حالا دستورش رو چه جوری باید بنویسم؟
ممنون
مطمنی با inputbox میخوای بنویسی؟ این جور مواقع msgbox بهتره.
اول یه متغیر تعریف می کنی a=inputbox(folan) بعد می گی اگه if a=vbok then folan یا مثلا vbcancel
این که عبارت داخل این پوت باکس رو بر میگردونه
فکر کنم با استفاده از تابع GetDlgItemID بشه...
با inputbox هم میشه. مثلا بگی اگه پوچ بود برو فرم 2 در غیر این صورت فرم 1
دوست عزیز درخصوص سوالی که مطرح کردی اگر از msgbox استفاده کنی خیلی باکلاس تر و زیباتر می شود
خودم هم می دونم با msgbox قشنگتر می شه اما من می خوام با inputbox داده وارد کنم و روی اون داده عملیات انجام بدم با msgbox که نمی شه داده وارد کردنوشته شده توسط hamed_F
آخرین ویرایش به وسیله khomar : شنبه 27 اسفند 1384 در 00:13 صبح
خوب همینی که داری به فارسی می گی چه جوری با وی بی بنویسم خود من هم بلدم با فارسی بگم برو.....
چه جوری؟ دقیقا برنامه اش چه جوری می شه لطفا پارامترهاش رو هم بگین مرسی
من برم اینو چک کنم ببینم می شه یا نه
این روش رو امتحان کن ، امید وارم درست متوجه شده باشم
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 تبدیلش میکنی به متغیر عددی.
می دونید چقدر کار من زیاد می شه یعنی هیچ راهی نداره؟؟؟؟؟
یعنی چی؟ کارم زیاد میشه؟
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
از کمکی که کردین سپاسگزارم مشکلم حل شد
سال نو همگی مبارک
از کمکی که کردین سپاسگزارم مشکلم حل شد
خیلی خوبه که می تونی به فارسی بگی امیدوارم که کد زیر مشکلتو حل کنهخوب همینی که داری به فارسی می گی چه جوری با وی بی بنویسم خود من هم بلدم با فارسی بگم برو.....
a = InputBox("Enter:") 'input
If a = Empty Then
form1.show
Else
form2.show
End If
اگه دکمه OK کلیک بشه فرم2 و اگه Cancel کلیک بشه فرم1 نشون داده میشه
من تو برنامه نویسی اماتور نیستم از کمکتون ممنون در ضمن مشکلم حل شد
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول