منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تصغير حجم الصفحة في webbrowser ? - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تصغير حجم الصفحة في webbrowser ? (/showthread.php?tid=25298)

تصغير حجم الصفحة في webbrowser ? - hichem1 - 08-06-18

السلام عليكم 
لدي صفحة كبيرة لا تظهر بأكملها في ال webbrowser فكيف أصغر حجم تلك الصفحة مثل ما أفعل في google chrome ?

RE: تصغير حجم الصفحة في webbrowser ? - elgokr - 08-06-18

الرجاء التوضيح اكثر

تحياتى لك


RE: تصغير حجم الصفحة في webbrowser ? - hichem1 - 09-06-18

أريد إستعمال هذه الخاصية و هي موجودة في كروم تمكن من تصغير أو تكبير الصفحة في المتصفح 
و أريد أن أطبقها في ال webbrowser في مشروعي

RE: تصغير حجم الصفحة في webbrowser ? - abdoman28@ymail.com - 09-06-18

السلام عليكم 
كيف يمكننى  تغيير اسم المستخدم ؟

RE: تصغير حجم الصفحة في webbrowser ? - hichem1 - 09-06-18

(09-06-18, 01:15 AM)abdoman28@ymail.com كتب : السلام عليكم 
كيف يمكننى  تغيير اسم المستخدم ؟

أسف لكنني لا أعلم أخي

RE: تصغير حجم الصفحة في webbrowser ? - elgokr - 09-06-18

كل ما عليك فعله التالى 
انشاء WebBrowser تحت اسم WebBrowser1
(تذكر ان الاسم المذكور هنا موجود ايضاً فى الكود)

من ثم فى منطقة الاكواد اسفل 
PHP كود :
Public Class Form1 

ضع الكود التالى
كود :
   Private Enum Exec
       OLECMDID_OPTICAL_ZOOM = 63
   End Enum

   Private Enum execOpt
       OLECMDEXECOPT_DODEFAULT = 0
       OLECMDEXECOPT_PROMPTUSER = 1
       OLECMDEXECOPT_DONTPROMPTUSER = 2
       OLECMDEXECOPT_SHOWHELP = 3
   End Enum

اذا كنت تحتاج لعمل زر بمقاسات محددة
فقم بانشاء مثلاً  عدد 5 Button
وضع داخل كل منهم الكود التالى

Button1 - مقاس 25%
كود :
       ' Size Zoom 25%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 25, IntPtr.Zero)
       Catch ex As Exception
       End Try

Button2 - مقاس 50%
كود :
       ' Size Zoom 50%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 50, IntPtr.Zero)
       Catch ex As Exception
       End Try

Button3 - مقاس 100%
كود :
       ' Size Zoom 100%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 100, IntPtr.Zero)
       Catch ex As Exception
       End Try

Button4 - مقاس 150%
كود :
       ' Size Zoom 150%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 150, IntPtr.Zero)
       Catch ex As Exception
       End Try

Button5 - مقاس 200%
كود :
       ' Size Zoom 200%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 200, IntPtr.Zero)
       Catch ex As Exception
       End Try

واذا كنت تريد عمل على شكل - و +
قم بانشاء TextBox وليكن اسمه TextBox1
اجعل القيمة الافتراضية 100
وقم بجعل خصائصه التالى
PHP كود :
Size = 0; 0 

من ثم قم بانشاء عدد 2 Button
وقم بتطبيق الكود التالى على Button الخاص بـ +
كود :
       ' Max Size Zoom 200%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           Dim ii As Integer = 10
           TextBox1.Text += ii
           If Val(TextBox1.Text) <= 200 Then
               MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, TextBox1.Text, IntPtr.Zero)
           End If
       Catch ex As Exception
       End Try

وقم بتطبيق الكود التالى على Button الخاص بـ -
كود :
       ' Min Size Zoom 25%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           Dim ii As Integer = 10
           TextBox1.Text -= ii
           If Val(TextBox1.Text) >= 25 Then
               MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, TextBox1.Text, IntPtr.Zero)
           End If
       Catch ex As Exception
       End Try

واذا كنت تريد عمل زر خاص بعرض الحجم الطبيعي

فقط كل ما عليك عمل الزر وقم بادراج الكود التالى بداخله
كود :
       ' Reset Size Zoom 100%
       Try
           Dim MyWeb As Object = WebBrowser1.ActiveXInstance
           MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 100, IntPtr.Zero)
       Catch ex As Exception
       End Try

اتمنى كل ما يخطر ببالك بخصوص هذه النقطة تكون موجودة فى الرد ده

تحياتى لك
وتمنياتى لك التوفيق
(09-06-18, 01:15 AM)abdoman28@ymail.com كتب : السلام عليكم 
كيف يمكننى  تغيير اسم المستخدم ؟


فقط راسل الادارة من خلال اتصل بنا

او من خلال هذا القسم
http://vb4arb.com/vb/forumdisplay.php?fid=66

تحياتى لك


RE: تصغير حجم الصفحة في webbrowser ? - hichem1 - 09-06-18

بالفعل كل ما أحتاجه عن هذا هنا و الله إنك أسطوري !!