Spanish Como minimizar por completo en WebView

ebqlabs

Active Member
Licensed User
Hola, he usado la librería WebView1

y cuando abro una pagina web se visualiza bien, pero al abrir una imagen me aparece el zoom al máximo.

¿Hay una instrucción por defecto empiece en el zoom mínimo ?

Saludos.
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Hay un método que es Zoom

B4X:
WebView1.Zoom(NivelDeZoom)

Saludos
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Perdona, si te pones encima de ese método, le tienes que pasar True o False, por eso te da error. Si te pones encima dice: Zooms in or out according to the value of In. Returns true if zoom has changed

Si quieres hacer zomm a un valor que tu quieras puedes hacerlo asi:

B4X:
  Dim Obj1 As Reflector
  Dim f As Float
  Obj1.Target = WebView1
   f = Obj1.RunMethod("getScale") ' puedes emplearlo si quieres saber el valor junto con el log de abajo, si no lo puedes comentar
   Log("f " & f)
   Obj1.RunMethod2("setInitialScale", "200", "java.lang.int") ' el 200 es un zoom por el doble, el 100 seria sin zoom

Saludos
 

ebqlabs

Active Member
Licensed User
Hola

Perdona, si te pones encima de ese método, le tienes que pasar True o False, por eso te da error. Si te pones encima dice: Zooms in or out according to the value of In. Returns true if zoom has changed

Si quieres hacer zomm a un valor que tu quieras puedes hacerlo asi:

B4X:
  Dim Obj1 As Reflector
  Dim f As Float
  Obj1.Target = WebView1
   f = Obj1.RunMethod("getScale") ' puedes emplearlo si quieres saber el valor junto con el log de abajo, si no lo puedes comentar
   Log("f " & f)
   Obj1.RunMethod2("setInitialScale", "200", "java.lang.int") ' el 200 es un zoom por el doble, el 100 seria sin zoom

Saludos
Gracias, pero no se como implementarlo para que abra y empiece sin el zoom al maximo .
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Podrias hacer algo asi:

B4X:
WebView1.Initialize("WebView1")
WebView1.JavaScriptEnabled = True
WebView1.ZoomEnabled = True
WebView1.Color = Colors.White

Dim Obj1 AsReflectorDim f As Float
Obj1.Target = WebView1
Obj1.RunMethod2("setInitialScale", "100", "java.lang.int") ' el 100 seria sin zoom

WebView1.LoadUrl(NombrePaginaWeb) ' llamas a la web

Saludos
 
Top