تبدیل متن تکس باکس به لینک

[farboodj1375]

سلام.
خسته نباشید.
راهی هست که بشه یه متن ساده تو تکست باکس رو به لینک تبدیل کرد؟
من میخوام یه نرم افزار ارساب ایمیل بنویسم.
میخوام توی اون تکست باکس که کاربر متن رو مینویسه بتونه لینک هم بذاره.
مثلا تو همین سایت برنامه نویس وقتی دارین پست میزنین با اضافه کردن یه چیزی به سروته متن , اون متن تبدیل میشه به لینک .
ممنون میشم راهنماییم کنین.

[setroyd]

Private Sub Command1_Click()
Dim oShell As Object
Set oShell = CreateObject("Shell.Application")
oShell.Open text1.Text
Set oShell = Nothing
End Sub یه تکس text box و یه command button بزار و تو text box سایت مورد نظر رو بنویس و رو کامند کلیک کن . و اما در مورد صحبت شما شما میتونی با توابعی که کارشون find کردن رشته هست instr و ... خودت میتونی کاری کنی که اگه لای فلان کاراکتر بود سایت باز بشه یعنی لینک بشه و....
موفق باشی

[محسن واژدی]

سلام علیکم
برای افزودن کدهای Bold,Italic و نظیر اینها میتوانید کد زیر را نیز بررسی کنید:

Const fB$ = ""
Const lB$ = ""

Private Sub Command1_Click()
Dim txt_sel$
With Text1
.SetFocus
txt_sel$ = .SelText
If txt_sel$ > "" Then
SendKeys "{DELETE}"
SendKeys fB$ & txt_sel$ & lB$
Else
SendKeys fB$ & lB$
End If
End With
End Sub


کد فوق کلیدواژه Bold را به متن می افزاید، البته برای ترجمه بایستی کمی پیچیده تر برنامه نوشت

موفق باشید

[farboodj1375]

سلام.
ممنون از راهنمایی هاتون ولی راستشو بخواین متوجه نشدم...
من میخوام وقتی گیرنده داره ایمیل رو میخونه اونجایی که ما تعیین کردیم بصورت لینک براش نمایش داده بشه.
ظاهرا کار سختی هست...

[king ag]

منظور شما هایپر لینکه
اینو ببین کمکت میکنه

[ramzdar]

تا اونجا که من متوجه شدم ایشون میخوام یه متن با قابلیت نمایش لینک داشته باشن.
یه چیزی مثل همین تکستی که برای ارسال پست استفاده میکنیم
هیچکدوم از اینا اونی نیست که ایشون میخوان.

[setroyd]

شما باید خودت اینو بنویسی با text box هم میشه شما به متن دلخواه میتونی unne بدی که مثل لینک دیده بشه و...... کمی کد نویسی کن نمیشه که همیشه کد اماده در اختیار داشته باشی !

[farboodj1375]

خب آخه هیچ اطلاعاتی در این زمینه ندارم چجوری کدنویسی کنم؟
بازم ممنون. از راهنمایی هاتون.