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

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

بعض الاكواد الخاصة بمستعرض الويب WebBrowser Empty بعض الاكواد الخاصة بمستعرض الويب 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  

تحياتى لكم
avatar
أبوسجود
......
......

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

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

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

ََ

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


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