\'拍照事件
Public Sub LinkLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 Forms("拍照").Open
End Sub
\'扫描事件
Public Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim frm As WinForm.Form = Forms("图片管理器")
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim imageFile As WIA.imageFile
Dim cdc As  New WIA.CommonDialogClass()

Try
    imageFile = cdc.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.TextIntent, WIA.WiaImageBias.MaximizeQuality, "{00000000-0000-0000-0000-000000000000}", True, True,False)
    If  imageFile IsNot Nothing Then
        Dim path As String = ProjectPath & "Attachments\\sm" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"
        imageFile.SaveFile(path)
        piv.AddFile(FileSys.GetName(path))
    End If
Catch generatedExceptionName As System.Runtime.InteropServices.COMException
    MessageBox.Show("您的扫描仪尚未准备好!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try
End Sub

\'左转90
Public Sub LinkLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
    Dim bmp As New bitmap(zp)
    bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
    bmp.save(zp)
    Dim obj As object = piv.basecontrol.Controls(0)
    Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
    pic.Image = bmp
End If

End Sub

\'右转90
Public Sub LinkLabel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
    Dim bmp As New bitmap(zp)
    bmp.RotateFlip(RotateFlipType.Rotate270FlipNone)
    bmp.save(zp)
    Dim obj As object = piv.basecontrol.Controls(0)
    Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
    pic.Image = bmp
End If
End Sub

\'打印
Public Sub LinkLabel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
If piv.SelectedItem IsNot Nothing Then
    Dim doc As New PrintDoc \'定义一个报表对象
    Dim rm As New prt.RenderImage \'定义一个图片对象
    rm.Image = getImage(piv.SelectedItem)
    doc.Body.Children.Add(rm) \'将图片对象加入报表
    Doc.Preview() \'预览
End If
End Sub