|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Public Class 屏幕截图
Dim x坐标 As Integer = 0, y坐标 As Integer = 0
Private Sub 屏幕截图_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub 屏幕截图_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
x坐标 = e.X
y坐标 = e.Y
RectangleShape1.BackgroundImage = Nothing
End Sub
Private Sub 屏幕截图_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If x坐标 > 0 Then
RectangleShape1.Left = x坐标
RectangleShape1.Top = y坐标
If e.X - x坐标 - 10 > 20 Then RectangleShape1.Width = e.X - x坐标 - 5
If e.Y - y坐标 - 10 > 20 Then RectangleShape1.Height = e.Y - y坐标 - 5
End If
End Sub
Private Sub 屏幕截图_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
x坐标 = 0
y坐标 = 0
End Sub
Private Sub RectangleShape1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles RectangleShape1.DoubleClick
Dim ss As String
Dim bm As New Bitmap(Me.BackgroundImage, Me.BackgroundImage.Width, Me.BackgroundImage.Height) 'oimg是图片对象,后是大小
Dim cloneRect As New Rectangle(RectangleShape1.Left, RectangleShape1.Top, RectangleShape1.Width, RectangleShape1.Height)
Dim format As Imaging.PixelFormat = bm.PixelFormat
Dim cloneBitmap As Bitmap = bm.Clone(cloneRect, format)
' PictureBox1.Image = cloneBitmap
' RectangleShape1.BackgroundImage = cloneBitmap
上传次数 = 上传次数 + 1
cloneBitmap.Save("d:\金立维修字典\附件\" & ss, System.Drawing.Imaging.ImageFormat.Jpeg)
Me.Hide()
Call 新建.peng(ss)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim p1 As New Point(0, 0)
Dim p2 As New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
Me.BackgroundImage = pic
End Using
'Me.WindowState = FormWindowState.Maximized
Me.Visible = True
End Sub
End Class
|
|