جلوگیری از انتخاب تکست هنگام فوکوس

[saeed 444]

با سلا م
من در برنامم یک فایل تکست رو در تکست باکس برنامه فراخوانی میکنم و برای نوشتن ادامه تکست
فوکوس رو روی تکست باکسم تنظیم میکنم
در این حالت کل متن سیو شده از قبل داخل تکست باکس هایلایت میشه و علامت کرسر در انتها قرار میگیره
میخوام از های لایت بودن تکست هنگام فراخوانی جلوگیری کنم ولی علامت کرسرم در همین حالت
فعلیش یعنی فوکوس روی تکست باقی بمونه آیا راهی هست؟

[maxvel]

سلام امیدوارم مشکلتون حل بشه با این کد


TextBox1.Focus()
TextBox1.SelectAll()
TextBox1.SelectedText = TextBox1.Text

[saeed 444]

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

path = SearchFile(dir, lb1.Text & ".txt")
If path > "" Then
Dim Fs As New FileStream(path, FileMode.Open, FileAccess.ReadWrite)
Dim SR As New StreamReader(Fs)
SR.BaseStream.Seek(0, SeekOrigin.Begin)
While SR.Peek > -1
TextBox1.Text &= SR.ReadLine() + vbNewLine

End While
SR.Close()
Else
MsgBox("سابقه ای وجود ندارد")
End If

[Abbas Amiri]

برای اینکه کرسر بعد فوکوس شدن کنترل به انتهای متن برود میتوانید تایپ کنید:


TextBox1.SelectionStart = TextBox1.SelectionLength

[saeed 444]

درست عمل کرد
سپاس