كيف افتح صفحة web داخل الفيجوال 6
وجزاكم الله خيرا
افتح صفحة web
مغلق
بعد التحية
يمكنك استخدام الكود
On Error GoTo Err:
Dim lnkURL As String
lnkURL = "www.arabteam2000-forum.com"
If UCase(Left(lnkURL, 7)) <> "HTTP://" Then lnkURL = "http://" & lnkURL
Shell ("explorer " & lnkURL), vbNormalNoFocus
Exit Sub
Err:
MsgBox Error, , App.Title
'لابد أن يبدأ عنوان الصفحة بـhttp\\ :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.