باز کردن محتوی یک فایل متنی در یک تکس باکس

[alizanganeh]

سلام
در richtextbox میشه از قسمت filename محتوی یک فایل txt رو توش نشون داد
ولی چون خاصیت alignment نداره و نمیشه راست چین کردش به درد من نمیخوره
میخواستم بدونم آیا میشه مانند ریچ تکست باکس محتوی یک فایل متنی رو در یک تکس باکس نمایش داد؟
سا اینکه چطور میشه alignment به richtextbox داد
ممنون

[محسن واژدی]

سلام علیکم
برای align کردن richtextbox
کد زیر را در ماژول کپی کنید

Sub RichTextBoxAlignment(RichTextBox As RichTextBox, Alignment As SelAlignmentConstants)

With RichTextBox
.Tag = .SelStart & "|" & .SelLength
.SelStart = 0
.SelLength = Len(.Text)
.SelAlignment = Alignment
.SetFocus
.SelStart = Split(.Tag, "|")(0)
.SelLength = Split(.Tag, "|")(1)
End With

End Sub


نمونه:

Private Sub Command1_Click()
RichTextBoxAlignment RichTextBox1, rtfRight
End Sub


و برای وارد کردن محتویات فایل به textbox راه های مختلفی وجود دارد ازجمله کد زیر:

Private Sub Command1_Click()
Open "c:\test.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close 1
End Sub


موفق باشید