Kinect SDK v1 образцы в VB.NET

Question

Кто-нибудь знает, где я могу найти примеры нового Kinect SDK в VB и более конкретный порт образца KinectExplorer?

Я портировал весь проект WPFViewers в VB here, но он имеет ошибки на XAML.

Answer 1

Одна из приятных особенностей инфраструктуры .net и всех других языков CLR заключается в том, что вы можете легко переводить между ними.

http://www.developerfusion.com/tools/convert/csharp-to-vb/

Просто скопируйте код, который вы хотите в VB здесь, и она будет переводить.

Пример перевода файла KinectWindow.cs:

'------------------------------------------------------------------------------ 
' <copyright file="KinectWindow.cs" company="Microsoft"> 
'  Copyright (c) Microsoft Corporation. All rights reserved. 
' </copyright> 
'------------------------------------------------------------------------------ 

Imports System.Windows 
Imports Microsoft.Kinect 
Imports Microsoft.Samples.Kinect.WpfViewers 
Namespace Microsoft.Samples.Kinect.KinectExplorer 

    ''' <summary> 
    ''' This is the core kinect window. 
    ''' </summary> 
    Public Class KinectWindow 
     Inherits Window 
     #Region "Private state" 
     Private ReadOnly kinectDiagnosticViewer As KinectDiagnosticViewer 
     Private m_kinect As KinectSensor 
     #End Region 

     Public Sub New() 
      Me.kinectDiagnosticViewer = New KinectDiagnosticViewer() 
      Me.kinectDiagnosticViewer.KinectColorViewer.CollectFrameRate = True 
      Me.kinectDiagnosticViewer.KinectDepthViewer.CollectFrameRate = True 
      Content = Me.kinectDiagnosticViewer 
      Width = 1024 
      Height = 600 
      Title = "Kinect Explorer" 
      AddHandler Me.Closed, AddressOf Me.KinectWindowClosed 
     End Sub 

     Public Property Kinect() As KinectSensor 
      Get 
       Return Me.m_kinect 
      End Get 

      Set 
       Me.m_kinect = value 
       Me.kinectDiagnosticViewer.Kinect = Me.m_kinect 
      End Set 
     End Property 

     Public Sub StatusChanged() 
      Me.kinectDiagnosticViewer.StatusChanged() 
     End Sub 

     Private Sub KinectWindowClosed(sender As Object, e As System.EventArgs) 
      ' KinectDiagnosticViewer will call kinectSensor.Stop() so we properly release its use. 
      Me.Kinect = Nothing 
     End Sub 
    End Class 
End Namespace 

И как для XAML:

<kv:ImageViewer x:Class="TC.Samples.Kinect.WpfViewers.KinectSkeletonViewer" 
      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
      xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
      xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
      xmlns:kv="clr-namespace:TC.Samples.Kinect.WpfViewers.TC.Samples.Kinect.WpfViewers" 
      d:DesignHeight="480" d:DesignWidth="640"> 
    <Grid> 
     <kv:KinectSkeleton x:Name="skeletonCanvas1" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
     <kv:KinectSkeleton x:Name="skeletonCanvas2" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
     <kv:KinectSkeleton x:Name="skeletonCanvas3" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
     <kv:KinectSkeleton x:Name="skeletonCanvas4" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
     <kv:KinectSkeleton x:Name="skeletonCanvas5" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
     <kv:KinectSkeleton x:Name="skeletonCanvas6" ClipToBounds="true"> 
     </kv:KinectSkeleton> 
    </Grid> 
</kv:ImageViewer>