[mohammed moh]

السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع

[sooriaty03]

mohammed moh كتب :السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع

السلام عليكم ورحمة الله وبركاته

ممكن توضح أكثر ما هو طلبك ليتسنى لنا مساعدتك


بالتوفيق

[MSDOS]

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

ممكن توضح أكثر ما هو طلبك ليتسنى لنا مساعدتك


بالتوفيق

نفس السؤال....

[ali.alfoly]

الاخ يريد وضع رابط على النص مثال اضغط هنا
وهذا غير ممكن فى تكست بوكس
يمكنك استخدام RichTextBox فهى تمكنك من ذلك على ما اظن

[سعود]

ممكن هذا لكن لازم تستخدم html
[h=1]make html editor for desktop[/h]ارجو ان يكون هو المطلوب

[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

[MSDOS]

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

محاولة جميلة بس ما هي عملية لأنه لو يبي يحذف الرابط لا يستطيع اثناء الكتابة، ننتظر طريقة أخرى من ابداعتك وابداعات الآخوة.

[MSDOS]

سعود كتب :ممكن هذا لكن لازم تستخدم html
make html editor for desktop

ارجو ان يكون هو المطلوب

المثال للعضو سعود جميل جداً واعتقد جداً يفي بالغرض.

[MSDOS]

سعود كتب :ممكن هذا لكن لازم تستخدم html
[h=1]make html editor for desktop[/h]ارجو ان يكون هو المطلوب

بس أخ سعود تقدر تخلي العرض نفسه قابل للتحرير مثل اللي مربع كتابة مشاركة بعد ضغظ زر (تبدل المحرروضع متطور)

[mohammed moh]

و عليكم السسسلام و رحمة الله و بركاته
ربي يبااارك فيكم جميعاا شباب و مشكوررين جميعا على الرد
و شكر خاص للأخ سعوود و الله أتيت بالمفيد هذا ما كنت أحتاج له بالضبط :
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
شكراا مرة أخرى للجميع