PDA

View Full Version : سوال: محل متن در text box



shahab.f.c
چهارشنبه 26 بهمن 1390, 12:47 عصر
سلام
آیا می شه متن داخل تکست باکس رو وسط چین یا راست چین کرد؟

سید حمید حق پرست
چهارشنبه 26 بهمن 1390, 13:15 عصر
سلام
بله میشه
تکست باکس رو انتخاب کن و در پنجره خواس Alignment رو پیدا کن و یکی از سه گزینه ی موجود در Alignment (که عبارت است از :
0 - Left Justify
1 - Right Justify
2 - Center
)
انتخاب کن

موفق باشید


یا علی (ع)

shahab.f.c
چهارشنبه 26 بهمن 1390, 13:33 عصر
خیلی ممنون
توی rich text box نمی شه؟

سید حمید حق پرست
چهارشنبه 26 بهمن 1390, 14:09 عصر
کنترل + شیفت رو بگیر تا راست چین بشه

موفق باشی یا علی

محسن واژدی
چهارشنبه 26 بهمن 1390, 14:36 عصر
خیلی ممنون
توی rich text box نمی شه؟

سلام علیکم
کد زیر را هم بررسی کنید:
Private Sub Command1_Click()
With RichTextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SelAlignment = rtfLeft
'.SelAlignment = rtfCenter
'.SelAlignment = rtfRight
.SelStart = 0
End With
End Sub
موفق باشید

سید حمید حق پرست
چهارشنبه 26 بهمن 1390, 14:45 عصر
سلام
یه روش دیگه هم هست با استفاده از غيير در کدهای RFT:

Private Sub Command1_Click()
Call Right2Left(RichTextBox1, True)
End Sub
Private Sub Command2_Click()
Call Right2Left(RichTextBox1, False)
End Sub



Function Right2Left(R As RichTextBox, R2L As Boolean)
If Not InStr(R.TextRTF, "\qr") > 0 And R2L = True Then
R.TextRTF = Replace(R.TextRTF, "\rtrch", "\ltrch")
R.TextRTF = Replace(R.TextRTF, "\pard\", "\pard\qr\")
End If
If InStr(R.TextRTF, "\qr") > 0 And R2L = False Then
R.TextRTF = Replace(R.TextRTF, "\ltrch", "\rtrch")
R.TextRTF = Replace(R.TextRTF, "\qr", "")
End If
End Function


موفق باشید

یا علی (ع)

ASedJavad
چهارشنبه 26 بهمن 1390, 15:09 عصر
سلام
فقط شما اگه خواستی از کدهای داده شده استفاده کنی، دقت کن که بین right to left با راست چین یه تفاوتایی هست
یعنی متنمون میتونهRight to left ‌باشه ولی چپ چین و برعکس
پست 4 و 6 رایت تو لفت میکنه و پست 5 راست چین

محسن واژدی
چهارشنبه 26 بهمن 1390, 16:17 عصر
سلام
فقط شما اگه خواستی از کدهای داده شده استفاده کنی، دقت کن که بین right to left با راست چین یه تفاوتایی هست
یعنی متنمون میتونهRight to left ‌باشه ولی چپ چین و برعکس
پست 4 و 6 رایت تو لفت میکنه و پست 5 راست چین

سلام علیکم
البته دو کد غیرفعال شده هم در پست 5 وجود دارند که با فعال کردن هریک بر اساس درخواست مورد نظر میتوانند متن را Right,Left یا Center کنند

موفق باشید

محسن واژدی
چهارشنبه 26 بهمن 1390, 16:32 عصر
کد موجود در پست زیر درباره RichTextBox هم جامعتر است و هم کاملتر از کدهای پست 5:
http://barnamenevis.org/showthread.php?312916-%D8%A8%D8%A7%D8%B2%DA%A9%DB%8C%D8%AF%D9%86-%D9%85%D8%AD%D8%AA%D9%88%DB%8C-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3&p=1373676&viewfull=1#post1373676
موفق باشید