سؤال عن front page+vb

قد تكون هذي هي اول مشاركه لي في هذا المنتدى

وقد شاركت فيه بعد ان نصيحه احدى رفيقاتي

كنت بحاجه ماسه للاجابه عن هال سؤال دخل 10 اشخاص ولم يرد اي شخص علي حتى لو في سبيل المجامله انا لا الوم من دخل وقرى لانه قد لا يكون عنده الاجابه على سؤالي ولكن الوم مشرف الجلسه الذي لم يعطي ولو دقيقه من وقته ويرد بان سؤالي وللأسف ليس له اجابه في منتدى يضم نخبه من المبرمجين

انا اسفه اذا اطلت عليكم الوقت ولكن انا نفسي كنت اتوقع منكم الكثير

ولكم جزيل الشكر

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

بالنسبة لي لم أفهم ما تريدين بالضبط فهل وضحتي ولكي جزيل الشكر

السلام عليكم

أسف على التاخير وأرجوا أن يكون هذا هو المطلوب

أفتحي مشروع جديد

ثم أذهبيي الى Project من القائمة وأختاري Components ومنها أختاري Microsoft Internet Controls وضعي علامة صح في الخانة و أضغطي على Apply ثم أضغطي على Close فتظهر لك شكل الكرة الأرضية في ال General فأضغطي عليها مرتين لتكوين الأداة على الفورم

سيكون أسمها الأفتراضي WebBrowser1 لاتغييريه

ثم ضعي 4 أزرار أوامر

كود

Private Sub Form_Load()

WebBrowser1.Navigate "http://http://www.arabteam2000.com"

End Sub

Private Sub Command1_Click()

WebBrowser1.GoHome 'للصفحة الرئيسية

End Sub

Private Sub Command2_Click()

WebBrowser1.GoBack 'رجوع للخلف

End Sub

Private Sub Command3_Click()

WebBrowser1.GoForward 'تقدم للأمام

End Sub

Private Sub Command4_Click()

WebBrowser1.Stop 'للتوقف

End Sub

و للحديث بقية هذه فكرة بسيطة فقط

أخوكي جمال

السلام عليكم

كود

Private Sub Form_Load()

' هنا أضافة الملفات المراد فتحها

' يجب تغيير المسار على حسب أماكنها و أساميها

Combo1.AddItem "C:My DocumentsManal.htm"

Combo1.AddItem "C:My DocumentsMana2.htm"

Combo1.AddItem "C:My DocumentsMana3.htm"

Combo1.AddItem "C:My DocumentsMana4.htm"

Combo1.AddItem "C:My DocumentsMana5.htm"

Combo1.AddItem "C:My DocumentsMana6.htm"

' هنا لتسمية أزرار الأوامر

Command5.Caption = "Open"

Command6.Caption = "Open From Combo"

'---------------------------------------------------

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)

'هنا يتم تشغيل الموقع عند النقر على زر الادخال

If KeyAscii = 13 Then WebBrowser1.Navigate Combo1

End Sub

Private Sub Command5_Click()

' أذا أردت أن تفتحي صفحة محفوظة في ملف عندك

WebBrowser1.Navigate "C:My DocumentsManal.htm"

End Sub

Private Sub Command6_Click()

' هذا كود لربط الكومبو بالمتصفح

WebBrowser1.Navigate Combo1.Text

WebBrowser1.Visible = True

End Sub

جمال

بالنسبة لتحويل المشروع إلى صفحات الويب ..فيمكن ذلك باستخدم المعالج VB 6 ActiveX Document Migration Wizard بعد اضافته إلى قائمة Add-ins وبعد ان نحصل على الملف الناتج نقوم بتحويله إلى مستند ActiveX له الامتداد vbd، وبالتالي نكون قادرين على تشغيل البرنامج من نافذة المتصفح، وعلى العموم هذه الطريقة ليست جيده تماما لأنه ربما لايستطيع الكثير من المستخدمين الوصول إلى البرنامج بسبب ضرورة خفض مستوى الأمان اضافة لحصر استخدامه على متصفح اكسبلورر.

وبالنسبة لتشغيل موقع (او ملف HTML) باستخدام برنامج مصمم باستخدام vb فإننا ننستخدم الطريقة التالية

 Shell "explorer http://www.arabteam2000.com", 1

اختي : هل انتهى ما تريدبن ام لا ؟

اخوك

تسلمون كلكم واسفه اذا جرحت احد بكلمه او غلط عليكم

ولكم جزيل الشكر

منول