بسم الله الرحمن الرحيم ...
اتمنى مساعدتي ولو بالاجابة على فقرة واحده ...
لأن هذا أول مشروع اصممه واخذ مني جهد كبير من تصميم الفوتوشوب ووو ... فأتمنى تساعدوني في انجاز المهمة ..
يا جماعه ما ابي اطول عليكم ابعطيكم الموضوع على طول ...
انا اعمل برنامج منذ اكثر من اسبوعين ولكن حصل عندي بعض العتبات واتمنى من الجماعة يتعاونون معي في اتمام البرنامج ومالي الا الله ثم انتم ...
البرنامج عبارة عن متصفح انترنت فيه خصائص كثيره .... ( أخش بالموضوع دغري :) )
1- كود لحفظ صفحة الويب .
2- كود لطباعة صفحة ويب .
3- كود لفتح صفحة ويب .
4- كود بحث في الصفحة الحالية ( مثل alt+f) في الاكسبلورر.
5- في مربع الويب لا يظهر كاملا حيث عندما اكبر النموذج يكون شريط التمرير الطولي من الأسفل ناقص ( مو ظاهر كامل ) ما الحل ..
اخيراً وهو الأهم بالنسبة لي انا أعمل بروجرس بار بحيث ان الكود الموجود عندي لابد من ان يحتوي على مربع نص لكتابة اسم الموقع و زر امر للأنتقال ..
وانا برنامجي لا يحتوي على الأخيرين ( مربع نص وزر امر ) بل يحتوي على قوائم فيها سماء المواقع ...
كيف اربط البروجرس بار بالقوائم وهذا هو الكود ماذا علي أن أغير جزاكم الله خير
اقتباسأختار من project في أعلى البرنامجوأختار component
وبعدين حط علامة صح قدام كلا من
microsoft internet control
و
microsoft windows common controls 6.0
بعدين أضغط applay وبعدها ok
بعدين حط كوماند
وحط تكست
وأضغط عبى صورة الكرة الارضيه وهذي هي صفحة الاكسبلورر
وأضغط شريط زي شريط التحميل فيه نقط زرقه
المهم هذولي كلهم تنزلهم
وداخل الكوماند حط هذا الكود
WebBrowser1.Navigate Text1
وداخل صفحة الأكسبلورر
حط هذا الكود
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error GoTo vErr
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress
Exit Sub
vErr:
ProgressBar1.Value = 0
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label1.Caption = Text
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Caption = "اكتب اسم البرنامج او اسم المتصفح" & Text
End Sub
بانتظار ردكم جزاكم الله خير ..
