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

السلام عليكم اخواني المهندسين

ارجو المساعده تعديل على الكود بحيث يقوم بفتح صفحة الويب بدون رساله عناصر التحكم



Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate2 App.Path & "\index.htm"
obj.Visible = True
End Sub

السلام عليكم أخي العزيز ورحمة الله وبركاته
يمكنك التعديل على وضعية ActiveX Prompt من خلال عنصر الخيارات لصفحة Internet Explorer دون الحاجة إلى كتابة أكواد، والخطوات هي :
Internet Options > Security > Custom Level > and Set ActiveX Controls and Plugins to Disable

عذرا أخي الكريم لم ألتفت للقسم، فأنا لا أجيد Visual basic 6،
أتمنى لك التوفيق

اخي khodor1985  اشكر تفاعلك

تفاعلك للموضوع اكبر مساعده لي جزاك الله خير

---

مطلوب نفس الطريق للاخ khodor1985 ولاكن عن طريق الاكواد

ارجو المساعده

شكرا لك أخي العزيز، هيدا من ذوقك

?????? مساعده

جرب الكود التالي
Dim x As String
x = App.Path & "\index.html"
AppActivate Shell("C:\Program Files\Internet Explorer\IExplore.exe " & x, vbMaximizedFocus)

السيد الغالي

اشكر تفاعلك نفس المشكله