المساعد الشخصي الرقمي

مشاهدة نسخة كاملة : طريقة فتح الارتباطات التشعبية الـ Hyper Link في الفيجوال بيسك

X_Programmer
01-06-07, 08:55 PM
السلام عليكم ورحمة الله وبركاته
حبيت أقدم لكم هذه الطريقة في فتح الارتباطات التشعبية في الفيجوال بيسك
الكود:

Private Sub Command1_Click()
Shell "Explorer <A HREF="http://www.vb4arab.com"" TARGET=_blank>http://www.vb4arab.com"</A>

وشكراً

XxX_Programmer
The Scorpions' King
المؤمنة
01-06-07, 09:32 PM
شكرا لك سأحاول تجريبها
vb6 student
02-06-07, 12:05 AM
السلام عليكم و رحمة الله و بركاته
وفي هي الطريقة اللي تعلمتها من المنتدى القديم
نستخدم الأداة Microsoft Internet Control ونكتب :
"WebBrowser1.Navigate "www.vb4arab.com
X_Programmer
02-06-07, 08:34 PM
شكراً إخواني على الرد
والطريقة الثانية صحيحة أيضاً
ashrafbargathi
25-06-07, 07:26 PM
السلام عليكم و رحمة الله و بركاته
وفي هي الطريقة اللي تعلمتها من المنتدى القديم
نستخدم الأداة Microsoft Internet Control ونكتب :
"WebBrowser1.Navigate "www.vb4arab.com

اخي لوسمحت انا جربت هده الطريقة ولم تنجح معي
بهدا الشكل
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
"WebBrowser1.Navigate "www.vb4arab.com
End Sub
وهل كتابتها في هدا المكان Private Sub WebBrowser1 صحيح
ادا امكن ارجو التوضيح
وشكرا
محمد العهامي1
20-02-10, 04:19 PM
الف الف الف شكر لك اخي المبرمج على هذا الكود المميز وانتم اهل التميز ونرجوا منك كل التمييز

تحياتي