السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع
mohammed moh كتب :السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع
السلام عليكم ورحمة الله وبركاته
ممكن توضح أكثر ما هو طلبك ليتسنى لنا مساعدتك
بالتوفيق
الاخ يريد وضع رابط على النص مثال
اضغط هنا
وهذا غير ممكن فى تكست بوكس
يمكنك استخدام RichTextBox فهى تمكنك من ذلك على ما اظن
3booody كتب :[COLOR="#0000CD"]السلام عليكم ورحمة الله وبركاته
بعد اذنكم اخواني..
تفضل أول شي ضع اداة RichTextBox واكتب الكود التالي[/COLOR]
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Link As New LinkLabel
Link.Text = "اضغط هنا"
Link.AutoSize = True
Link.Location = RichTextBox1.GetPositionFromCharIndex(RichTextBox1.TextLength)
RichTextBox1.Controls.Add(Link)
RichTextBox1.AppendText(Link.Text & " ")
AddHandler Link.LinkClicked, AddressOf link_LinkClicked
End Sub
Private Sub Link_LinkClicked(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
Process.Start("www.vb4arb.com")
End Sub
محاولة جميلة بس ما هي عملية لأنه لو يبي يحذف الرابط لا يستطيع اثناء الكتابة، ننتظر طريقة أخرى من ابداعتك وابداعات الآخوة.
سعود كتب :ممكن هذا لكن لازم تستخدم html
[h=1]make html editor for desktop[/h]ارجو ان يكون هو المطلوب
بس أخ سعود تقدر تخلي العرض نفسه قابل للتحرير مثل اللي مربع كتابة مشاركة بعد ضغظ زر (تبدل المحرروضع متطور)
و عليكم السسسلام و رحمة الله و بركاته
ربي يبااارك فيكم جميعاا شباب و مشكوررين جميعا على الرد
و شكر خاص للأخ سعوود و الله أتيت بالمفيد هذا ما كنت أحتاج له بالضبط :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim txt As String = TextBox1.SelectedText
Dim all As String = TextBox1.Text
If txt.ToString.Trim = "" Then Exit Sub
TextBox1.Text = all.Replace(txt, "<a target=_blank href=" & InputBox("ادخل رابط") & ">" & txt & "</a>")
End Sub
شكراا مرة أخرى للجميع