vb.net滚动截屏,windows7滚动截屏

vb.net 的screen的mousedown ，mousemove，mouseup事件

问题：引用原文：“要是换个思路，先截全屏，然后将窗体全屏，让Picturebox占满全屏幕，但是无论利用什么方法(最大化，boderstyle设为none）都遮挡不了任务栏。”

解决方法：经测试，代码可以实现你得要求，即能遮挡任务栏。

设置：在窗体上添加一个PictureBox1,，dock属性设置为Fill。随便导入一张图片用于显示。

代码如下：

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Me.WindowState = FormWindowState.Maximized

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

Me.Close()

End Sub

End Class

程序截图：

相关问答

Q1: VB.net点击按钮后截图，截取被当前窗体挡住的图像作为窗体背景（窗体默认无边框样式）

    '没办法，需的把窗口隐藏一下，还的隐藏后延迟一下再截图。

    Dim WithEvents Timer1 As New Timer With {.Interval = 30, .Enabled = False}

    Dim Imgrect As Rectangle

    Dim img As Bitmap

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Imgrect = Me.RectangleToScreen(Me.ClientRectangle)

        img = New Bitmap(Imgrect.Width, Imgrect.Height)

        Me.Hide()

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Stop()

        Graphics.FromImage(img).CopyFromScreen(Imgrect.X, Imgrect.Y, 0, 0, Imgrect.Size)

        Me.BackgroundImage = img

        Me.Show()

    End Sub

Q2: vb.net 2008 如何将指定的窗体截图并保存

INTOUCH自带的就有，打印屏幕的命令

自己写个时间条件运行那命令就可以了

PRINTSCREEN这个命令 具体怎么用 看下帮助

希望我的回答对你有所帮助

如有其他问题，可以继续追问，您的采纳是我前进的动力！

Q3: 请问：在vb.net2015中，如何编写截图程序？

 Me.Refresh()

        Dim memory As Image = New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(memory)

        g.CopyFromScreen(Me.Left, Me.Top, 0, 0, New Size(Me.Width, Me.Height)) '这里是截屏核心代码

        Dim FilePath As String = ""

        Dim d As New SaveFileDialog

        d.Filter = "JPEG图像|*.JPEG"

        If d.ShowDialog = Windows.Forms.DialogResult.OK Then

            FilePath = d.FileName

            If FilePath = "" Then Exit Sub

            'If FilePath.Substring(FilePath.Length - 1, 1)  "\" Then FilePath = FilePath  "\"

        Else

            Exit Sub

        End If

        d.Dispose()

        memory.Save(FilePath)

        MessageBox.Show("图像已经保存到： "  FilePath, "截图成功", MessageBoxButtons.OK, MessageBoxIcon.Information)