بعض الاكواد الخاصة بمستعرض الويب WebBrowser

إرسال مساهمة في موضوع

اذهب الى الأسفل

بعض الاكواد الخاصة بمستعرض الويب WebBrowser

مُساهمة من طرف أبوسجود في الخميس نوفمبر 01, 2018 3:28 pm

أستكاملا لما قدمة الاخ / المبرمج الطموح [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] اشرح لكم بعض الاوامر اللازمة للتعامل مع تلك الاداة على سبيل المثال:


  • إظهار مربع الحوار الطباعة
  • مربع حوار إعداد صفحة الويب
  • مربع حوار العرض الأولي للوثيقة
  • نافذة خصائص الوثيقة
  • إنشاء أمر قطع ونسخ ولصق وتحديد الكل
  • نافذة للبحث عن النص في المستند
  • اظهار مربع حوار حفظ الصفحة
  • تغيير حجم الخط لصفحة الويب


وهي  الخيارات الأكثر شيوعًا لاستخدام أسلوب ExecWb لعنصر التحكم WebBrowser لان هذا الأسلوب ExecWb يحتوي على كثير من الخيارات.


1_إظهار مربع حوار إعداد صفحة الويب
الكود:
Private Sub Command1_Click()  
      
    On Local Error Resume Next  
        
    WebBrowser.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

2_إظهار مربع الطباعة و طباعة المحتوي
الكود:
Private Sub Command2_Click()  
      
    On Local Error Resume Next  
        
    WebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT  
  
End Sub

3_إظهار مربع معاينة قبل الطباعة
الكود:
Private Sub Command3_Click()  
    On Local Error Resume Next  
  
    WebBrowser.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

4_حفظ صفحة الويب
الكود:
Private Sub Command10_Click()  
  
WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, 0, 0  
End Sub

5_إظهار صفحة الخصائص
الكود:
Private Sub Command4_Click()  
      
    On Local Error Resume Next  
      
    WebBrowser.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

6_قص نص من اداة التحكم
الكود:
Private Sub Command5_Click()  
      
    On Local Error Resume Next  
      
    WebBrowser.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

7_نسخ نص من اداة التحكم
الكود:
Private Sub Command6_Click()  
      
    On Local Error Resume Next  
    
    WebBrowser.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

8_لصق نص فى اداة مستعرض الويب
الكود:
Private Sub Command7_Click()  
      
    On Local Error Resume Next  

    WebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

9_الخيار حدد مستند Webbrowser بالكامل
الكود:
Private Sub Command8_Click()  
      
    On Local Error Resume Next  
      
    WebBrowser.SetFocus  

    WebBrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT  
  
End Sub  

10_نافذة البحث
الكود:
Private Sub Command9_Click()  
      
    On Local Error Resume Next  
      
       WebBrowser.SetFocus  
    SendKeys ("^f")  
  
End Sub  

تحياتى لكم

أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى