08-06-18, 08:49 PM
08-06-18, 11:38 PM
الرجاء التوضيح اكثر
تحياتى لك
09-06-18, 12:56 AM
أريد إستعمال هذه الخاصية و هي موجودة في كروم تمكن من تصغير أو تكبير الصفحة في المتصفح
و أريد أن أطبقها في ال webbrowser في مشروعي
و أريد أن أطبقها في ال webbrowser في مشروعي
09-06-18, 01:15 AM
السلام عليكم
كيف يمكننى تغيير اسم المستخدم ؟
كيف يمكننى تغيير اسم المستخدم ؟
09-06-18, 01:19 AM
(09-06-18, 01:15 AM)abdoman28@ymail.com كتب : [ -> ]السلام عليكم
كيف يمكننى تغيير اسم المستخدم ؟
أسف لكنني لا أعلم أخي
09-06-18, 01:34 AM
كل ما عليك فعله التالى
انشاء 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 TryButton2 - مقاس 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 TryButton3 - مقاس 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 TryButton4 - مقاس 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 TryButton5 - مقاس 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 كتب : [ -> ]السلام عليكم
كيف يمكننى تغيير اسم المستخدم ؟
فقط راسل الادارة من خلال اتصل بنا
او من خلال هذا القسم
تحياتى لك
09-06-18, 01:59 AM
بالفعل كل ما أحتاجه عن هذا هنا و الله إنك أسطوري !!