Bilgi-Sayar.NET Menu

ADRES:

VB.NET | WebBrowser’a Zoom In-Out Yapmak

(yoruma kapalı)

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.
VB.NET | WebBrowser’a Zoom In-Out Yapmak
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.
VB.NET | WebBrowser’a Zoom In-Out Yapmak

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.
VB.NET | WebBrowser’a Zoom In-Out Yapmak

  • polatlı

    Aslında nadir bulunabilecek bir kod olduğunu düşünüyorum 😉