سوال در مورد تکست باکس

[مدیر شرکت اینترنات]

با سلام خدمت تمامی شما من مدیر ویژال بیشسیک هستم در دبی
اما در تهرانم فعلا
خوب
اول یک سوال:کسی میتواند جواب سوال من را بده
سوال:ما می خواهیم در vbیک کد بنویسیم به شکل زیر
if text1.text="m" then
text2.text="y" end if
این کد برای اینکه ما اگر در text1بنویسیم m در text2کلمه y
نمایان می شود حالا ما می خواهیم کدی بنویسیم که بتوانیم کد بعدی که مثلا
مانند بالا ولی حروفش فرق می کند در ادامه m بیفتد که مثلا mکه هست بشود
y vچون وقتی ما حروف بعدی را تایپ می کنیم حروف قبلی پاک می شود
ما می خواهیم این کار انجام نشود :گیج:

[M-Gheibi]

سلام
به راحتی با استفاده از کد زیر:

If text1.Text = "m" Then
text2.Text = text2.Text & "y"
End If

من از سوال شما این چنین برداشت کردم. اگه منظور چیز دیگه ای بوده بگید.

ضمنا با عرض معذرت لطفا قبل از اینکه اقدام به ارسال نوشته خودتون کنید یکبار از روش بخونید و مشکلات تایپی و نگارشیش رو برطرف کنید.
عنوان تاپیک اصلاح شد.
قوانین سایت رو مطالعه فرمایید.

روز خوش

[3nitro]

:strange:
این که خیلی خیلی راحته ! حتی فکر هم نمی خواد . همون طور که گفتند با یک & یا + به هم متصل می کنیم .

اما در جای دیگه دیده بودم که 50000$ جایزه گذاشته بودید . فکر کنم واسه این سوال میتونید به یکی - دو سنت اکتفا کنید . :oops:

[بابک زواری]

با سلام خدمت تمامی شما من مدیر ویژال بیشسیک هستم در دبی
اما در تهرانم فعلا
یعنی چی ؟ یعنی مدیر ویژوال بیسیک یک شرکت هستید ؟

[rsl_rostami]

ین کد برای اینکه ما اگر در text1بنویسیم m در text2کلمه y
نمایان می شود حالا ما می خواهیم کدی بنویسیم که بتوانیم کد بعدی که مثلا
مانند بالا ولی حروفش فرق می کند در ادامه m بیفتد که مثلا mکه هست بشود
y vچون وقتی ما حروف بعدی را تایپ می کنیم حروف قبلی پاک می شود


فکر کنم یه جورایی سرکاریه. ولی خوب ....



if text1.text ="M" Then
text2.text=text2.text + "y"
else
if text1.text="N" then
text2.text=text2.text + "V"
End if
End If

:گیج:

[R_BABAZADEH]

مدیر ویژوال بیسیک :گیج:

[مدیر شرکت اینترنات]

با سلام خدمت تمامی دوستان
به هرحال هرکسی که بد نوشته یاخوب
والا من مدیر شرکت اینترنات هستم که همین حالا این نوشته را دیدم اون کسی که این پیام را برای شما فرستاده معاون شرکت اینترنات یک جاپنی است خودم جواب این سوال را بلدم این سوال نمی دانم که چرا معاون بدین صورت نوشته چون کسی جواب سوال را بدهد برنده نرم افزاری می شود ولی فقط به 2 نفر
این نرم افزار آخرین کار گروه نرم افزاری corelکه شامل7 نرم افزار می باشدکه قیمتی معادل 30000$می باشد
ما هزینه انتقال از دبی به ایران را می دهیم ولی از تهران به درب منزل شما را خیر ولی از فرودگاه مهرآباد
به درب منزل شما باید حدود 2000 و3000هزار تومان بشه ولی به گرفتنش می عرضه من از تمامی دوستان
معضرت می خواهم و واقعا از اشتباهات تایپی معضرت می خواهم واز مدیر بخش ممنونم ::نوشتن:: :) :sorry:

[3nitro]

:strange: :strange: :strange:

جدی این سوال اینقدر می ارزه ؟!


از اشتباهات تایپی معضرت می خواهم

معذرت . :موفق:

[مدیر شرکت اینترنات]

سلام دوست عزیز این شرکت فت هدفش جوایز دادن می باشد ما تا قبل از ساخت وب سایت خودمان در این وب سایت فعالیت می کنیم برای دادن جوایز اگر در قسمت چت در yahooدیده باشین ما در آن جا با جواب دادن سوال جوایز می دادیم
برندگان:جناب آقای قیبی

جدی این سوال اینقدر می ارزه ؟!
هتما می ارزه
آقای غیبی اگر نرم افزار را می خواهید به آدرس ایمیل من آدرس منزل وشماره منزل خود را برایم بفرستید خدا را چه دیدید شاید شما را برای همکاری انتخاب کردیم اگر از قسمت همکاری خوشتان می یاد تمامی کارهای را که بلدید برایم بفرستید
www.info200626@yahoo.com
:موفق: ::نوشتن::

[3nitro]

برندگان:جناب آقای غیبی

مبارک باشه . :تشویق:

[M-Gheibi]

برندگان:جناب آقای قیبی

آقای غیبی اگر نرم افزار را می خواهید به آدرس ایمیل من آدرس منزل وشماره منزل خود را برایم بفرستید خدا را چه دیدید شاید شما را برای همکاری انتخاب کردیم اگر از قسمت همکاری خوشتان می یاد تمامی کارهای را که بلدید برایم بفرستید
دوست عزیز ممنون از لطفتون :)
من فرصت رو به جوونا میدم. من جایزه ای نمیخوام :wink:

روز خوش

[نعیم رضاییان]

هتما می ارزه

دوست عزیز قبل از اینکه جایزه بدی بهتره دیکته کلمات رو یاد بگیری یه پیشنهاد ارسال نامه ها رو به منشی یا همون معاونتون بدید که دیگه غلط نداشته باشه

یا حق ::نوشتن::

[zapata-es]

خیلی تابلویی بابا :mrgreen:
معاون جاپنی
معضرت
:strange:
سرکاریه اما از نوع بامزش :D

[sadegi]

وای $$$$$$$$$
اگه بشه یه سوال هم از ما بپرسید
خدا رو چه دیدید شاید تونستم جواب بدم