Spanish Tomar la resolución más alta

[jaime bahoquez]

Como hago para tomar la foto con la resolución más alta permitida por el dispositivo.
Tengo el siguiente código:

Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes
Dim current As CameraSize = camEx.GetPictureSize
For i = 0 To pictureSizes.Length - 1
If pictureSizes(i).Width = current.Width And pictureSizes(i).Height = current.Height Then Exit
Next
Dim ps As CameraSize = pictureSizes((i + 1) Mod pictureSizes.Length)
camEx.SetPictureSize(ps.Width, ps.Height)
ToastMessageShow(ps.Width & "x" & ps.Height, False)
camEx.CommitParameters

Lo que hace esto es cambiar de resolución entre las permitidas y quiero que tome la resolución más alta permitida

 

[bgsoft]

Hola, veo que estas empleando camEx, puedes hacer esto para poner la resolucion mas alta

    Dim maxSize As CameraSize
    maxSize.Height = 0
    maxSize.Width = 0
    For Each cs As CameraSize In camEx.GetSupportedPicturesSizes
      If Power(cs.Width, 2) + Power(cs.Height, 2) > Power(maxSize.Width, 2) + Power(maxSize.Height, 2) Then maxSize = cs
    Next
    camEx.SetPictureSize(maxSize.Width, maxSize.Height)

Esto lo pones en el evento Ready si Success = True

Saludos

 

[jaime bahoquez]

bgsoft muchas gracias, si funcionó.

Saludos que estés muy bien colega

 

[bgsoft]

Hola Jaime, podrias añadir al título [SOLUCIONADO] , así ayudamos a otros compañeros a encontrar las soluciones mas rapidamente y mejoramos la agilidad del foro.

Gracias

Saludos