تقييم الموضوع :
  • 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
شكراا مرة أخرى للجميع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [مشروع] عرض كلمة في مشروعي موجوده في برنامج اخر ؟ mac9 3 1,655 30-03-23, 08:45 PM
آخر رد: sanyor77
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد

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


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