PDA

View Full Version : سوال: قرار دادن متن در تکس باکس با یک حالت پیشرفته



mmbpar30
شنبه 12 بهمن 1387, 20:09 عصر
با سلام
من تکس باکسی دارم که در آن مثلا متنی اشتباه تایپ شده
مثلا : helo
و مقداری L در قسمت دستور زیر دارم
dim A As string = "L"
حالا می خواهم با کلیک در قسمت مورد نظر در تکس باکس مثلا مختصات (0,3) یا (0,4) با زدن بر روی دکمه یا چیزی شبیه این به جزء راست کلیک کردن و زدن دکمه های ctrl+v از کیبورد مقدار A را در آن مختصات قرار دهم.
فقط من منظورم این مثال نیست مثال های گوناگون مثلا یک قسمت از متن ایراد دارد و می خواهم با مقدار دهی آن قسمت را درست کنم
با تشکر اگر مشکل من را حل کنید.

shahrdar
شنبه 12 بهمن 1387, 22:50 عصر
تا اينجايی که فهميدم ميخوای بعنوان مثال A رو بزاری تو خط سوم ،حرف پنجم

مکان اولين حرف خط دوم رو پيدا ميکنی + پنج

خيلی راحته

اگه توضيح باز ميخوای بگو

ashalove
یک شنبه 13 بهمن 1387, 08:43 صبح
خیلی راحته !
با دستور mid از اول رشته تا مکان مورد نظر انتخاب کن و داخل یک متغییر رشته ای مثل S1 قرار بده و از مکان مورد نظر به بعد هم در یک متغییر دیگه مثل S2 قرار بده . بد همه این ها را با هم جمع کن
مثل رو برو

dim A as strring ="L"
dim S1 , S2 as string
S1 = mid (Textbox1.text , 1 , 5)
S2 = mid (Textbox1.text , 5)
Textbox1.text = S1 + A + S2

این مثال مقدار موجود در متغیر A را در مکان 6 رشته موجود در Textbox1 قرار می دهد

Copricorn
یک شنبه 13 بهمن 1387, 12:03 عصر
با سلام
اگر منظورتون چیزی هست که ashalove گفت از کد زیر هم میتونید استفاده کنید که راحت تر و بهتره

Dim a As String = "L"
TextBox1.Text = TextBox1.Text.Insert(3, a)

اگر منظور دیگه ای داشتید بیشتر راهنمایی کنید

mmbpar30
سه شنبه 15 بهمن 1387, 18:14 عصر
دوستان ممنون
من با دستور یک خطی پس جستجو و پرسش از دوستانم تونستم مشکل را حل کنم
مثال یک خطی
TxtBx20I10.SelectedText = "L"
حالا هرجا که بخواهم کلیک کنم یا تعدادی از متن ها را جایگزیمن کنم
کافیست این دستور بالا را با کلیک بر روی یک عکس ÷یش فرض اجرا کنم
باز هم ممنون