+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط (/showthread.php?tid=46102)
السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط - mhareek - 27-05-23
اريد ان يظهر فى نتائج البحث الرابط نشط بمني انى اضغط علية يفتح لى صفحة الجوجل ويفتح الموقع المراد الذهاب اليه
المشكلة انى عندما استخدمت تكست بوكس ظهر الرابط كانه كتابة عادية ولم يظهر كا ارتباط تشعبي
ارجو المساعدة اخوانى الاحباب
ماهى الاداة التى يجب ان استخدمها ليطهر الرابط نشط بمعنا ان يظهر السطر كا ارتباط تشعبى بعنى رابط لفتح صفحة جوجيل او لفتح الواتس اب
RE: السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط - ahmed.m - 27-05-23
إذا كانت المسألة اظهار النص كرابط فالافضل استخدام label بدلا من صندوق نصو من ثَم تفعيل حدث ضغط الفارة على ال Label.
RE: السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط - mhareek - 27-05-23
اخى الغالى كيف افعل حدث ضغط الفارة
RE: السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط - ahmedabdelaliem - 28-05-23
السلام عليكم ورحمة الله وبركاته
كيف حالك اخي
تفضل هذا الكود وقبل التشغيل ضع تكست بكس ولا تغير اسمه
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
بالتوفيق
RE: السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط - mhareek - 28-05-23
تسلم استاذى الغالى الاستاذ احمد عبد العليم دائما مبدع بارك الله فيك احسنت يغالى
ربي يكرمك