کار با رشته ها

سلام بچه ها
من می خوام یه برنامه بنویسم که شامل یک کادر متنی و دو تا دکمه باشه ، که دو طرف کادر متنی قرار گرفتن
و با کلیک روی کلید سمت راست ،راست ترین حرف به سمت سمت چپ برود و با فشار دادن کلید سمت چپ ، چپ ترین حرف به سمت راست برود
برنامه آسونه ولی من کار با رشته ها رو تو وی بی درست بلد نیستم
اگه راهنمایی کنید ممنون می شم...

سلام

برای دکمه سمت راستی کد زیر رو بنویس :

کد:

---

Dim s As String

Text1.SelStart = Len(Text1) - 1
Text1.SelLength = Len(Text1)
Text1.SetFocus
s = Text1.SelText
Text1.SelText = ""

Text1.SelStart = 0
Text1.SelLength = 0
Text1.SelText = s

---

برای دکمه سمت چپی کد زیر رو بنویس :

کد:

---

Dim s As String

Text1.SelStart = 0
Text1.SelLength = 1
Text1.SetFocus
s = Text1.SelText
Text1.SelText = ""

Text1.SelStart = Len(Text1)
Text1.SelLength = Len(Text1)
Text1.SelText = s

---

واقعاً از لطفتون ممنون
ممکنه یکمی کدتون رو توضیح بدین؟

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

این توضیح برای کلید راستی یه ولی چپی هم مثل همینه فقط مقدار ها عوض شده

s رو یه متغیر از رشته ها گرفتم
دستور SelStart ابتدای محدوده ای که می خواهیم select کنیمه
دستور SelLength انتهای محدوده ای که می خواهیم select کنیمه
دستور SetFocus فوکوس می کنه رو بخش محدوده
این خط s = Text1.SelText مقدار select شده را توی متغییر s می ریزه
این خط Text1.SelText = "" مقدار select شده را پاک می کنه


خط بعدیش و بعدیش محدوده رو به اول می بره
خط بعدیش مقدار رو کپی می کنه

نقل قول:

---

نوشته شده توسط sajjad_3piz [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

این توضیح برای کلید راستی یه ولی چپی هم مثل همینه فقط مقدار ها عوض شده

s رو یه متغیر از رشته ها گرفتم
دستور SelStart ابتدای محدوده ای که می خواهیم select کنیمه
دستور SelLength انتهای محدوده ای که می خواهیم select کنیمه
دستور SetFocus فوکوس می کنه رو بخش محدوده
این خط s = Text1.SelText مقدار select شده را توی متغییر s می ریزه
این خط Text1.SelText = "" مقدار select شده را پاک می کنه


خط بعدیش و بعدیش محدوده رو به اول می بره
خط بعدیش مقدار رو کپی می کنه

---

از توضییحتون ممنون
من اون قسمتی از کد رو که می خوایم از یک کد کپی بردارین و بریزین تو متغیر S رو با تابع left , right نوشتم ولی بلد نبودم چه جوری از آخر رشته حذف کنم
بازم ممنون

اولا خواهش می کنم کاری نکردم .

بازم اشکالی داشتی بپرس

با Right و left خیلی بهتر می شه نوشت .

نقل قول:

---

نوشته شده توسط sajjad_3piz [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اولا خواهش می کنم کاری نکردم .

بازم اشکالی داشتی بپرس

با Right و left خیلی بهتر می شه نوشت .

---

شما می تونین با Left , Right بنویسین
من نتونستم کامل بنویسم...

ساده ترین کد اینه:

کد:

---

Private Sub rightclick_Click()
T = Right(T, 1) & Left(T, Len(T) - 1)
End Sub
Private Sub leftclick_Click()
T = Right(T, Len(T) - 1) & Left(T, 1)
End Sub

---

اینم لینک دانلود سورسش:

کد:

---

http://javadraoufdanger.parsaspace.com/vb/vb.rar

---

البته تو این برنامه یک چیز دیگه هم از خودم اضافه کردم بر قشنگیش:27:

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ساده ترین کد اینه:

کد:

---

Private Sub rightclick_Click()
T = Right(T, 1) & Left(T, Len(T) - 1)
End Sub
Private Sub leftclick_Click()
T = Right(T, Len(T) - 1) & Left(T, 1)
End Sub

---

اینم لینک دانلود سورسش:

کد:

---

http://javadraoufdanger.parsaspace.com/vb/vb.rar

---

البته تو این برنامه یک چیز دیگه هم از خودم اضافه کردم بر قشنگیش:27:

---

ممنون جالب بود.