vb 实现录音视频功能

【核心代码】

<Window
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:WebcamControl="clr-namespace:WebcamControl;assembly=WebcamControl" x:Class="MainWindow"

    Title="MainWindow" Height="1080" Width="1920" WindowState="Maximized">
  <Canvas>
    <Border Canvas.Left="399" Canvas.Top="100" Height="414" Width="520" BorderThickness="1" BorderBrush="Black">
      <WebcamControl:Webcam  Canvas.Left="399" Canvas.Top="100"  x:Name="myWebCam" Height="412" Width="518"/>
    </Border>

    <ComboBox x:Name="ComboBox1" Height="63" Canvas.Left="233" Canvas.Top="19" Width="298" FontSize="18" FontWeight="Bold"/>
    <ComboBox x:Name="ComboBox2" Height="63" Canvas.Left="564" Canvas.Top="19" Width="448" FontSize="18"  FontWeight="Bold"/>
     <Button x:Name="Button1" Content="開始" Height="85" Canvas.Left="1078" Canvas.Top="19" Width="163" FontSize="24" FontWeight="Bold" />
    <Button x:Name="Button2" Content="撮る" Height="85" Canvas.Left="1350" Canvas.Top="19" Width="163" IsEnabled="False" FontSize="24" FontWeight="Bold"/>

    <Image x:Name="Image1" Height="480" Canvas.Left="1088" Canvas.Top="143" Width="640" Stretch="Fill"/>
    <Canvas x:Name="ShowArea" Height="480" Canvas.Left="1088" Canvas.Top="143" Width="640"/>
    <Button x:Name="prevButton" Content="前" Height="66" Canvas.Left="981" Canvas.Top="320" Width="90" FontSize="36" FontWeight="Bold" IsEnabled="False"/>
    <Button x:Name="nextButton" Content="次" Height="66" Canvas.Left="1745" Canvas.Top="320" Width="90" FontSize="36" FontWeight="Bold" IsEnabled="False"/>
    <Button x:Name="gouseiButton" Content="合成保存" Height="103" Canvas.Left="1247" Canvas.Top="647" Width="347" FontSize="72" FontWeight="Bold" IsEnabled="False"/>
    <TextBlock x:Name="TextBlock1" Height="84" Canvas.Left="220" TextWrapping="Wrap"  Canvas.Top="666" Width="900" FontSize="36" FontWeight="Bold" Foreground="Red"/>
    <Button x:Name="recordButton" Content="録音開始" Height="76" Canvas.Left="399" Canvas.Top="547" Width="176" FontSize="36" FontWeight="Bold" IsEnabled="False"/>
    <Button x:Name="recordStopButton" Content="録音停止" Height="76" Canvas.Left="606" Canvas.Top="547" Width="176" FontSize="36" FontWeight="Bold" IsEnabled="False"/>
    <MediaElement x:Name="MediaElement1" Height="194" Canvas.Left="455" Canvas.Top="768" Width="291"  UnloadedBehavior="Manual" LoadedBehavior="Manual"/>
    <Button x:Name="playButton" Content="再生" Height="76" Canvas.Left="798" Canvas.Top="547" Width="121" FontSize="36" FontWeight="Bold" IsEnabled="False"/>
    <InkPresenter x:Name="paintCanvas"/>

  </Canvas>
</Window>