منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط

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

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

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

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

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

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

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

كيف حالك اخي

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

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

ahmed.m

mhareek

ahmedabdelaliem

mhareek