frmcapture.vb

来自「This is a Text Editor Created USing VB.n」· VB 代码 · 共 35 行

Public Class frmCapture

    Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
        pcbPaste.Image = Clipboard.GetImage
        hsbImage.Maximum = pcbPaste.Width - hsbImage.Width
        vsbImage.Maximum = pcbPaste.Height - vsbImage.Height
    End Sub

    Private Sub chkTopMost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkTopMost.CheckedChanged
        If chkTopMost.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub

    Private Sub hsbImage_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbImage.Scroll
        pcbPaste.Left = -hsbImage.Value
    End Sub

    Private Sub vsbImage_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vsbImage.Scroll
        pcbPaste.Top = -vsbImage.Value
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim save As New SaveFileDialog
        save.Filter = "Jpg File (*.jpg)|*.jpg"
        save.ShowDialog()
        If save.FileName.Length > 0 Then
            pcbPaste.Image.Save(save.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            MsgBox("Done", MsgBoxStyle.Information, Me.Text)
        End If
    End Sub

End Class