[mhareek]

اريد ان  يظهر  فى نتائج  البحث    الرابط نشط بمني انى اضغط علية يفتح لى صفحة الجوجل ويفتح الموقع المراد الذهاب اليه


المشكلة انى عندما استخدمت  تكست بوكس   ظهر الرابط كانه كتابة عادية    ولم يظهر كا ارتباط تشعبي


ارجو المساعدة اخوانى الاحباب

ماهى الاداة التى يجب ان استخدمها ليطهر الرابط نشط بمعنا ان يظهر السطر كا ارتباط تشعبى بعنى رابط لفتح صفحة جوجيل او لفتح الواتس اب

[ahmed.m]

إذا كانت المسألة اظهار النص كرابط فالافضل استخدام label بدلا من صندوق نصو من ثَم تفعيل حدث ضغط الفارة على ال Label.

[mhareek]

اخى الغالى كيف افعل حدث ضغط الفارة

[ahmedabdelaliem]

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

كيف حالك اخي 

تفضل هذا الكود وقبل التشغيل ضع تكست بكس ولا تغير اسمه 

PHP كود :

Public Sub OpenDocument(strDocPath As String)
Dim G As Long
G = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & strDocPath, vbNormalFocus)
End Sub

Private Sub Form_Load()
Text1.Text = "www.google.com"
End Sub
Private Sub Text1_Click()
If Text1.Text <> "" Then
Call OpenDocument(Text1.Text)
Else
Exit Sub
End If
End Sub 


بالتوفيق

[mhareek]

تسلم استاذى الغالى الاستاذ احمد عبد العليم دائما مبدع بارك الله فيك احسنت يغالى

ربي يكرمك