PDA

View Full Version : قرار دادن لینک برروی تکست



Overhere
یک شنبه 17 شهریور 1392, 21:39 عصر
چجوری میشه لینک textbox1 رو برروی richtextbox1.selectedtext قرار داد؟
یعنی مثلا بجای اینکه لینک رو بنویسند بزارنش روی کلمه ی خاصی؟
و وقتی روی اون کلمه کلیک میکنم به اون لینک مورد نظر منتقل شه یوزر؟

aliagamon
یک شنبه 17 شهریور 1392, 22:00 عصر
از این استفاده کن :
http://www.codeproject.com/Articles/9196/Links-with-arbitrary-text-in-a-RichTextBox
البته این سی شارپه من کلاسشو قبلا واسه یه کاری (پروژه) ترجمه کردم خدمت شما:(ضمیمه)...
میتونه واسه اضافه کردن لینک از خاصیت insertlink استفاده کنی....
پروژه سی شارپ بالا هم میتونه بهت کمک کنه ...

Overhere
یک شنبه 17 شهریور 1392, 22:22 عصر
به همراه فورمش ندارین؟

aliagamon
یک شنبه 17 شهریور 1392, 23:33 عصر
خذمت شما...:چشمک:

Overhere
دوشنبه 18 شهریور 1392, 16:15 عصر
این مشکل داره فکر کنم.....وقتی روی لینک کلیک میشه و nternet explorer باز میشه نمیتونه سایتو باز کنه..
مثلا روی تکست A لینک http://barnamenevis.org رو اگر بزارم باز نمیکنه؟؟؟؟!!!

aliagamon
دوشنبه 18 شهریور 1392, 19:44 عصر
شما رویداد linkclicked رو بکن این:

Private Sub RichTextBoxEx1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RichTextBoxEx1.LinkClicked
Dim temp As String = e.LinkText.Substring(e.LinkText.IndexOf("#") + 1)
Dim TheBrowser As Object = CreateObject("InternetExplorer.Application")
TheBrowser.Visible = True
TheBrowser.Navigate(temp)
End Sub

Overhere
دوشنبه 18 شهریور 1392, 19:50 عصر
راهی نیست که بجای internet explorer مرورگری که یوزر به عنوان پیشفرض انتخاب کرده باز شه؟

aliagamon
دوشنبه 18 شهریور 1392, 20:13 عصر
چرا میشه اتفاقا راحت تر هم هست ... اون روش رو دیشب انجام دادم چون بخاطر اون سوتیم لینکا با این روش باز نمیشد اما الان میتونی استفاده کنی:

Private Sub RichTextBoxEx1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RichTextBoxEx1.LinkClicked
Dim temp As String = e.LinkText.Substring(e.LinkText.IndexOf("#") + 1)
'Dim TheBrowser As Object = CreateObject("InternetExplorer.Application")
'TheBrowser.Visible = True
'TheBrowser.Navigate(temp)
System.Diagnostics.Process.Start(temp)
End Sub

Overhere
دوشنبه 18 شهریور 1392, 22:02 عصر
زبان فارسی رو پستیبانی نمیکنه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟
این که برای فارسی ؟؟؟ میاره؟؟؟؟:لبخند:

aliagamon
سه شنبه 19 شهریور 1392, 00:35 صبح
نه مشکلی نداره مشکل از تنظیمات زبان فارسی سیستمته ..

Overhere
سه شنبه 19 شهریور 1392, 11:03 صبح
خب دقیقا چی کار کنم حل شه؟؟؟

Overhere
چهارشنبه 20 شهریور 1392, 20:49 عصر
در مورد فونت فارسی چی کار کنم؟aliagamon؟

در ضمن میخوام یجوری باشه که اگر اون متن با همون برنامه ایمیل شد در ایمیل هم برروی تکست لینک بمونه اما اگر ایمیلش کنم از طریق خود برنامه، لینکی که روی تکست بود به نمایش در میاد!

لطفا جواب بدین،واقعا نیازمه