2012-03-18 17 views
0

こんにちは、カメラのLEDを常時使用しているアプリを作りたいと思います。私はこれを行ういくつかの例を見てきましたが、VBで必要なときにそれらを動作させることはできません。私は自分自身を変換するC#コードを公開しています。また、windows.phone.media.extended.dllアセンブリが必要であることも知っています。私はエミュレータイメージをダンプすることができましたが、アセンブリが動作するかどうかはわかりません。代わりに反射を使用するにはどうすればよいですか?Windows用LEDトーチ/懐中電灯アプリの作り方(Visual Studio)


次のコードを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 }); } 
} 
+0

学習プロジェクトの一部 – Matt9Atkins

+0

あなたはその投稿を見ましたか?あなたがすでに見つけたサンプルの何が問題なのですか? –

+1

私はこのチュートリアルのソースコードをhttp://www.locked.nl/wp7-flashlight-getting-startedからダウンロードしましたが、VBで記述しようとしましたが、いくつかのエラーがありましたが、現在はエラーはありませんが、 doesnt仕事。変換しようとすると、その明らかなものが間違っていました。私は何のために何を探しているのですか? – Matt9Atkins

答えて

0

は、あなたがそれをここに正しい

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それを変換するいくつかのコードがある100%だと確信していない、VBに変換貼り付けコードですXAMLで定義されていますが、必要な場合はわかりません。

関連する問題