CameraEX Zoom problem

Running the CameraEx example, I am trying to get the Zoom function working with a seekbar:

Code:

  Sub sbZoom_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Or camEx.IsZoomSupported = False Then Return
   camEx.Zoom = Value / 100 * camEx.GetMaxZoom
   camEx.CommitParameters
Log("Zoom Supported: " & camEx.IsZoomSupported)
Log("Zoom Max :" & camEx.GetMaxZoom)
Log("Zoom SB Value : " & Value)
Log("Zoom Value : " & camEx.Zoom)
End Sub  

However, the...

CameraEX Zoom problem

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/2c88PmH
via IFTTT