Как сделать приложение со светодиодным фонариком / фонариком для Windows Phone (Visual Studio)

Question

Привет, я хочу сделать приложение, которое постоянно использует светодиод камеры.Я видел несколько примеров, которые делают это, но я не могу заставить их работать, так как они мне нужны в VB.Я открыт для кода C #, который я буду конвертировать сам.Также я знаю, что вам нужна сборка windows.phone.media.extended.dll.Мне удалось сбросить образ эмулятора, но я не уверен, что сборка будет работать.Как я могу использовать отражение вместо?

---

Как я могу преобразовать следующие коды в VB?

private void VideoCamera_Initialized(object sender, object eventArgs)
{
    if (Initialized != null)
    {
        Initialized.Invoke(this, new EventArgs());
    }
}

public bool LampEnabled
{
    get { return (bool)_videoCameraLampEnabledPropertyInfo.GetGetMethod().Invoke(_videoCamera, new object[0]); }
    set { _videoCameraLampEnabledPropertyInfo.GetSetMethod().Invoke(_videoCamera, new object[] { value }); }
}

Answer 1

Вот код, который вы вставили, конвертированный в VB, не уверен, что он на 100% правильный

Private Sub VideoCamera_Initialized(sender As Object, eventArgs As Object)
If Initialized IsNot Nothing Then
    Initialized.Invoke(Me, New EventArgs())
End If
End Sub

Public Property LampEnabled() As Boolean
Get
    Return CBool(_videoCameraLampEnabledPropertyInfo.GetGetMethod().Invoke(_videoCamera, New Object(-1) {}))
End Get
Set
    _videoCameraLampEnabledPropertyInfo.GetSetMethod().Invoke(_videoCamera, New Object() {value})
End Set
End Property

вот код, который я получил из примера и преобразовал его

Dim cam As VideoCamera = Nothing
cam = New VideoCamera()
cam.Initialized += Function(s,e)
    cam.LampEnabled = True
    cam.StartRecording()
End Function

vCam.SetSource(cam)

New Thread(Function() 
    Try
    Dim isf = IsolatedStorageFile.GetUserStoreForApplication()
    Dim files = isf.GetFileNames()
    For Each file As var In files
    Debug.WriteLine("Deleting... " & Convert.ToString(file))
    isf.DeleteFile(file)
    Next
    Catch ex As Exception
    Debug.WriteLine("Error cleaning up isolated storage: " & ex)
    End Try
End Function).Start()

cam.StartRecording()

vCamопределяется в xaml, не уверен, что вам это нужно.