تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أحفظ روابط في تاكست بوكس أو كلمة مدموجة برابط
#1
السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع
الرد }}}}
تم الشكر بواسطة:
#2
mohammed moh كتب :السلام عليكم و رحمة الله
أولا أنا جديد في المنتدى و في لغة في بي أيضا
عندي برنامج فيجوال ستيديو ألتيما 2012
و أعمل بلغة فيجوال بيسك
طلبي هو كيف يمكنني إنشاء محرر نص أو تاكست بوكس عادي المهم هو أنني أستطيع
أن ألصق فيه روابط نت أو مثلا لنفترض هذا الرباط "www.google.com" كيف
أسطيع دمجه في كلمةأول جملة يعني مثل ما هو موجود في محرر المنتدى
أتمنى أن تكون فكرتي وصلت و أتمنى أن أجد المساعدة
و شكراا مسبقا للجميع

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

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


بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

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


بالتوفيق

نفس السؤال....
الرد }}}}
تم الشكر بواسطة:
#4
الاخ يريد وضع رابط على النص مثال اضغط هنا
وهذا غير ممكن فى تكست بوكس
يمكنك استخدام RichTextBox فهى تمكنك من ذلك على ما اظن
الرد }}}}
تم الشكر بواسطة:
#5
ممكن هذا لكن لازم تستخدم html
[h=1]make html editor for desktop[/h]ارجو ان يكون هو المطلوب
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#6
[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
الرد }}}}
تم الشكر بواسطة:
#7
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

محاولة جميلة بس ما هي عملية لأنه لو يبي يحذف الرابط لا يستطيع اثناء الكتابة، ننتظر طريقة أخرى من ابداعتك وابداعات الآخوة.
الرد }}}}
تم الشكر بواسطة:
#8
سعود كتب :ممكن هذا لكن لازم تستخدم html
make html editor for desktop

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

المثال للعضو سعود جميل جداً واعتقد جداً يفي بالغرض.
الرد }}}}
تم الشكر بواسطة:
#9
سعود كتب :ممكن هذا لكن لازم تستخدم html
[h=1]make html editor for desktop[/h]ارجو ان يكون هو المطلوب

بس أخ سعود تقدر تخلي العرض نفسه قابل للتحرير مثل اللي مربع كتابة مشاركة بعد ضغظ زر (تبدل المحرروضع متطور)
الرد }}}}
تم الشكر بواسطة:
#10
و عليكم السسسلام و رحمة الله و بركاته
ربي يبااارك فيكم جميعاا شباب و مشكوررين جميعا على الرد
و شكر خاص للأخ سعوود و الله أتيت بالمفيد هذا ما كنت أحتاج له بالضبط :
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
شكراا مرة أخرى للجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 122 18-10-17, 09:49 PM
آخر رد: سعود
  أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. nassery99 4 66 11-10-17, 09:17 PM
آخر رد: nassery99
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 120 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  [سؤال] طلب كود لتكرار كلمة في TextBox vbb6 3 91 01-10-17, 04:11 PM
آخر رد: vbb6
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 98 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة
  طلب كود في الكومبو بوكس hikmat 1 81 25-09-17, 11:07 PM
آخر رد: wale90
  كيف اربط تكست بوكس مع تكست بوكس اخر داخل تقرير report viewer 78hus78ali 1 68 24-09-17, 01:32 PM
آخر رد: زيد زينوبي
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 65 19-09-17, 03:33 PM
آخر رد: أبو نوره
  نص أرقام في تكست بوكس visualist2015 3 104 14-09-17, 05:48 PM
آخر رد: visualist2015
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 151 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم