Android Question webview zoom

mohdsaks · Nov 16, 2013

hii
and thank you for all your supporting
my question is am using webview to connect to my ip cam and everything was good and i can see the video streaming but i want the view to be zoomed out because its too zoomed in, i used this code

B4X:

Sub bed_room_camera


  Dim zoomed As Boolean

  Camera.LoadUrl("http://xxxx.xxx/xxx.htm")
  If zoomed = False Then
  For i = 0 To 10
      If Camera.Zoom(False) = True Then
      
        End If
      Next
      zoomed = True
    
End If


  Camera.ZoomEnabled = False





End Sub

it worked fine for awhile but when the page full loaded it became to the same size before
can you help me with any code or example for zoom out

Erel · Nov 17, 2013

Have you tried to call this code in the PageFinished event?

mohdsaks · Nov 17, 2013

thank you for your replay
am realy new with programming can you just show me in example what you mean .

Erel · Nov 17, 2013

Something like:

B4X:

Sub Camera_PageFinished(Url As Finished) 'assuming that the event name is Camera
 Do While Camera.Zoom(false) = True
 Loop
End Sub

mohdsaks · Nov 17, 2013

thank you very much for your support but i tried the pagefinishe event but i get that i may miss a library because of (as finished ) i think and if there is any other way to zoom out plz help me with it

mohdsaks · Nov 18, 2013

please any solution

Erel · Nov 19, 2013

You should post the full code.

mohdsaks · Nov 23, 2013

this is my full code with the website which i want to zoom out

B4X:

#Region  Project Attributes
    #ApplicationLabel: webview
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Main")
      WebView1.LoadUrl("http://www.mytryout01.somee.com")
      WebView1.ZoomEnabled = True
 
 
    bed_room_camera




End Sub

Sub bed_room_camera

  Dim zoomed As Boolean
   
  zoomed = False
 
 
  If zoomed = False Then
  For i = 0 To 20
      If WebView1.Zoom(False) = True Then
       
        End If
      Next
      zoomed = True
     
  End If
 
 

End Sub



Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

hope anyone can help me with that

LucaMs · Nov 23, 2013

mohdsaks said:

this is my full code with the website which i want to zoom out

B4X:

#Region  Project Attributes
    #ApplicationLabel: webview
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Main")
      WebView1.LoadUrl("http://www.mytryout01.somee.com")
      WebView1.ZoomEnabled = True


    bed_room_camera




End Sub

Sub bed_room_camera

  Dim zoomed As Boolean
  
  zoomed = False


  If zoomed = False Then
  For i = 0 To 20
      If WebView1.Zoom(False) = True Then
      
        End If
      Next
      zoomed = True
    
  End If



End Sub



Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

hope anyone can help me with that

B4X:

  If zoomed = False Then
  For i = 0 To 20
      If WebView1.Zoom(False) = True Then
      '??????????????????????????????????????????????????
        End If
      Next
      zoomed = True
   
  End If

I have not read the whole thread, I'll do it in a moment, but I noticed this and ...!

mohdsaks · Nov 23, 2013

that because i don't know what to put there and i don't know if what i did is right or wrong
and thank you in advance for your help you will save me really if you will find me the solution

LucaMs · Nov 23, 2013

mohdsaks said:
that because i don't know what to put there and i don't know if what i did is right or wrong
and thank you in advance for your help you will save me really if you will find me the solution

I have tested your code and I see a page on which I can zoom-in; zoom-out at the beginning is disabled. This is a problem??

mohdsaks · Nov 23, 2013

no my problem is i want the page to be zoomed out automatically because when i open that page with the webview its zoomed in too much and i can see only the logo then i have to zoom out to see the whole page for the website

Erel · Nov 23, 2013

You haven't integrated the code I previously suggested...

mohdsaks · Nov 23, 2013

hi Erel i tried to use your code but without any luck actually maybe what i did all wrong can you just tell me exactly what i have to do with that code because i dont know how to use it and am really want to thank you for your helping

LucaMs · Nov 24, 2013

Erel said:
You haven't integrated the code I previously suggested...

I have integrated it :

B4X:

Sub WebView1_PageFinished (Url As String)
  Log("WebView1_PageFinished")
    Do While WebView1.Zoom(False) = True
      Log("zoom out") ' <--- this line is executed 7 times
      DoEvents ' probably it is not necessary
    Loop
End Sub

I tried to "invalidate" WebView1. Don't works fine

Erel · Nov 24, 2013

@mohdsaks you should just put this code in the activity. I assume that the EventName parameter of WebView is WebView1.

mohdsaks · Nov 24, 2013

thank you for ur help
i tried the code above but it is not working for zoom out but when i change the code like

B4X:

Sub WebView1_PageFinished (Url As String)
  Log("WebView1_PageFinished")
    Do While WebView1.Zoom(True) = True
      Log("zoom out") ' <--- this line is executed 7 times
      DoEvents ' probably it is not necessary
    Loop
End Sub

it is working and it is zoom in 7 times and i can see the log
also i noticed when i lunched the code that the zoom out button is not enabled i can only zoom in

Android Question webview zoom

mohdsaks

Member

Erel

B4X founder

mohdsaks

Member

Erel

B4X founder

mohdsaks

Member

mohdsaks

Member

Erel

B4X founder

mohdsaks

Member

LucaMs

Expert

mohdsaks

Member

LucaMs

Expert

mohdsaks

Member

Erel

B4X founder

mohdsaks

Member

LucaMs

Expert

Erel

B4X founder

mohdsaks

Member

Android Question webview zoom

Member

B4X founder

Member

B4X founder

Member

Member

B4X founder

Member

Expert

Member

Expert

Member

B4X founder

Member

Expert

B4X founder

Member

Privacy & Transparency

Privacy & Transparency