VB.NET WebBrowser’a Zoom In-Out Yapmak

WebBrowser üstünde yakınlaştırma ve uzaklaştırma işlemi yapmak istediğimizde aşağıdaki kodu kullanabiliriz.

Aşağıdaki kodu Sub’ların dışına yazmamız gerekiyor. Resimdeki gibi Public Class Form1’in hemen altına ekleyebilirsiniz.

Private Enum OpticalZoom
OLECMDID_OPTICAL_ZOOM = 63
End Enum
Private Enum ZoomTanimlamalari
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_SHOWHELP = 3
End Enum

Aşağıdaki bu kodu ise istediğiniz bir nesnenin içine ekleyebilirsiniz. Resimdeki örnekte biz bir butonun içine ekledik.

Try
Dim Oran As Integer = 100
Dim MyWeb As Object = WebBrowser1.ActiveXInstance
MyWeb.ExecWB(OpticalZoom.OLECMDID_OPTICAL_ZOOM, ZoomTanimlamalari.OLECMDEXECOPT_PROMPTUSER, _
Oran, IntPtr.Zero)
Catch ex As Exception
End Try


Oran isimli değişken zoom yapılacak oranı belirlemek için kullanılıyor.

Yakınlaştırmak(Zoom In) için Oran isimli değişkene 100’den büyük bir değer vermek gerekiyor.

Uzaklaştırmak(Zoom Out) için Oran isimli değişkene 100’den küçük bir değer vermek gerekiyor.

Tarayıcı ön izlemesini varsayılan hale geri döndürmek için Oran isimli değişkene 100 değerini vermemiz gerekiyor.

Yakınlaştırma(Zoom In) Örneği;
Try
Dim Oran As Integer = 200
Dim MyWeb As Object = WebBrowser1.ActiveXInstance
MyWeb.ExecWB(OpticalZoom.OLECMDID_OPTICAL_ZOOM, ZoomTanimlamalari.OLECMDEXECOPT_PROMPTUSER, _
Oran, IntPtr.Zero)
Catch ex As Exception
End Try


Bu kod çalıştırıldığında WebBrowser’ın ön izlemesi %200 oranında yakınlaştırılacaktır.

Uzaklaştırma(Zoom Out) Örneği;
Try
Dim Oran As Integer = 75
Dim MyWeb As Object = WebBrowser1.ActiveXInstance
MyWeb.ExecWB(OpticalZoom.OLECMDID_OPTICAL_ZOOM, ZoomTanimlamalari.OLECMDEXECOPT_PROMPTUSER, _
Oran, IntPtr.Zero)
Catch ex As Exception
End Try


Bu kod çalıştırıldığında WebBrowser’ın ön izlemesi %75 oranında uzaklaştırılacaktır.