[elgokr]

كل ما عليك فعله التالى 

انشاء 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

تحياتى لك