آبجی
15th February 2010, 12:56 AM
حتما متوجه شدید که وقتی توی یک textbox در حال تایپ کردن هستید یه خط چشمک زن وجود داره.
حالا من می خوام دستورات مربوط به اون رو براتون بنویسم.
http://vbasic6.persiangig.com/weblogfile/textbox.JPG 1-محل قرار گرفتن خط چشمک زن
حتما دیدید که وقتی یه textbox فعال میشه در حالت پیش فرض خط چشمک زن در اول خط قرار داره.حالا من می خوام با کلیک بر روی یه command button این خط چشمک زن به کاراکتر 5 بره. برا این کار باید کد زیر رو به کدهای command button اضافه کنید.
Text1.selstart=5
Text1.SetFocus
http://vbasic6.persiangig.com/weblogfile/textbox2.jpg
در این کد بجای Text1 باید اسم textbox رو بنویسید.و به جای عدد 5 باید شماره کاراکتر را بنویسید.
حالا یه مثال میزنم که وقتی command1 رو فشار میدید خط چشمک زن در text1 به کاراکتر سوم بره.
Private Sub Command1_Click()
text1.selstart = 3
Text1.SetFocus
End Sub
البته اگر این کد برای بعضی از مواقع کار نداد باید Text1.SetFocus رو ازش حذف کنید.و همچنین اگه بخواهید خط چشمک زن رو به اخر متن بفرستید باید این len(text1.text) رو به جای عدد بنویسید.
2-انتخاب همه یا قسمتی از متن داخل textbox(آبی کردن)
http://vbasic6.persiangig.com/weblogfile/textbox3.jpg
حالا اگه بخواهید همه یا قسمتی از متن داخل text1 رو انتخاب یا همون ابی کنید باید این کد رو بنویسید.
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
در این کد عدد صفر شماره کاراکتر شروع قسمت ابی شده هستش مثلا اگر به جای عدد صفر عدد 3 رو نوشتید قسمت ابی شده از کاراکتر 3 به بعد شروع میشه.
همچنین مقدار len(text1.text) در خط دوم به برنامه دستور میده که تا آخر متن رو ابی کند که به جای اون میتوانید یک عدد قرار بدید.در اون صورت این عدد تعداد کاراکتر های ابی شده هستش.
از چهره هاتون پیداست که متوجه نشدید.حالا یه مثال میزنم که روشن بشید.
تو این مثال میخواهیم با کلیک بر روی command1،برنامه در Text1 متن رو از کاراکتر 3 تا چهار تا کاراکتر بعد از اون ابی کنه.
Private Sub Command1_Click()
Text1.SelStart = 3
Text1.SelLength = 4
Text1.SetFocus
End Sub
http://vbasic6.persiangig.com/weblogfile/textbox4.jpg
حالا من می خوام دستورات مربوط به اون رو براتون بنویسم.
http://vbasic6.persiangig.com/weblogfile/textbox.JPG 1-محل قرار گرفتن خط چشمک زن
حتما دیدید که وقتی یه textbox فعال میشه در حالت پیش فرض خط چشمک زن در اول خط قرار داره.حالا من می خوام با کلیک بر روی یه command button این خط چشمک زن به کاراکتر 5 بره. برا این کار باید کد زیر رو به کدهای command button اضافه کنید.
Text1.selstart=5
Text1.SetFocus
http://vbasic6.persiangig.com/weblogfile/textbox2.jpg
در این کد بجای Text1 باید اسم textbox رو بنویسید.و به جای عدد 5 باید شماره کاراکتر را بنویسید.
حالا یه مثال میزنم که وقتی command1 رو فشار میدید خط چشمک زن در text1 به کاراکتر سوم بره.
Private Sub Command1_Click()
text1.selstart = 3
Text1.SetFocus
End Sub
البته اگر این کد برای بعضی از مواقع کار نداد باید Text1.SetFocus رو ازش حذف کنید.و همچنین اگه بخواهید خط چشمک زن رو به اخر متن بفرستید باید این len(text1.text) رو به جای عدد بنویسید.
2-انتخاب همه یا قسمتی از متن داخل textbox(آبی کردن)
http://vbasic6.persiangig.com/weblogfile/textbox3.jpg
حالا اگه بخواهید همه یا قسمتی از متن داخل text1 رو انتخاب یا همون ابی کنید باید این کد رو بنویسید.
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
در این کد عدد صفر شماره کاراکتر شروع قسمت ابی شده هستش مثلا اگر به جای عدد صفر عدد 3 رو نوشتید قسمت ابی شده از کاراکتر 3 به بعد شروع میشه.
همچنین مقدار len(text1.text) در خط دوم به برنامه دستور میده که تا آخر متن رو ابی کند که به جای اون میتوانید یک عدد قرار بدید.در اون صورت این عدد تعداد کاراکتر های ابی شده هستش.
از چهره هاتون پیداست که متوجه نشدید.حالا یه مثال میزنم که روشن بشید.
تو این مثال میخواهیم با کلیک بر روی command1،برنامه در Text1 متن رو از کاراکتر 3 تا چهار تا کاراکتر بعد از اون ابی کنه.
Private Sub Command1_Click()
Text1.SelStart = 3
Text1.SelLength = 4
Text1.SetFocus
End Sub
http://vbasic6.persiangig.com/weblogfile/textbox4.jpg