锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net截图函数 vbs截图并保存

截图IT技术

VB截取屏幕[DllImport("user32.dll", EntryPoint = "GetDC")]
public static extern IntPtr GetDC(IntPtr hWnd);
[DllImport("user32.dll", EntryPoint = "ReleaseDC")]
public static extern IntPtr ReleaseDC(IntPtr hWnd, IntPtr hDC);
[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);
【vb.net截图函数 vbs截图并保存】[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr FindWindow(string lpClassName, string lpWindowName);
先找到你要截图的那个窗体的 句柄 然后根据这个句柄得到改窗体的DC创建一个bitmap 然后填充 得到的bitmap后 显示到picturebox里面
vb.net 截屏 ，获取活动窗口'模块中
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _
As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
'form1中
Private Sub Command1_Click()
Dim hDCtmp As Long, picWidth As Double, picHeight As Double
Dim x As Double
Dim y As Double
x = Val(Text2.Text)
y = Val(Text3.Text)
picWidth = Val(Text3.Text)
picHeight = Val(Text4.Text)
hDCtmp = GetDC(0)
BitBlt Picture1.hdc, 0, 0, picWidth, picHeight, hDCtmp, x, y, vbSrcCopy
ReleaseDC 0, hDCtmp
End Sub
目的: 将屏幕按照指定坐标和大小进行截取成图,在picture1显示
问题: 大小是相同了,为什么截取的坐标不对,只是屏幕上的左上
相信大家都用过QQ截图功能 。不过很多人并没有真正掌握好它的用法 。将QQ截图与其它截屏和制图软件配合使用 ， 会有意想不到的效果 。
获取颜色的RGB值
我们在编辑图片或网页的时候，经常需要获取某种颜色的“RGB值” ， 所以很多人都安装了第三方的颜色吸取工具 。其时用QQ截图键即可获取屏幕上任意颜色的RGB值 。
当按下“Ctrl Shift A”弹出“截图”提示框时，提示框中的“当前像素RGB”即为当前鼠标屏幕位置的颜色RGB值，将鼠标移动到你想查看的屏幕颜色上即可获得相应的RGB值（如图1） 。
图1精确截取图片大小
有时我们对要使用的截图尺寸有严格要求，比如论坛签名或QQ头像等 。用QQ截图键可以按尺寸精确截取 ， 一步到位无需再进行后期裁剪了 。
按下QQ截图键，按住鼠标不放选取截取范围时，在鼠标上方会有一个信息框显示当前范围的详细信息，其中“矩形大小”就是以像素来表示的图片的尺寸大小 ， 括号内的数字分别表示的是长和高（如图2） 。松开鼠标调整截图框时 ， 对照“矩形大小”就可以按需要的尺寸来精确截图范围，然后用鼠标点住截图框将截图框拖到要截取的图片上，双击即可获得所需尺寸的图片了 。
图2图片拼贴好帮手
大部分的截图软件一次只能截取一张图片，当要截取多张图片并进行拼贴组合时，就需要一张一张截取全部保存后再进行拼贴操作，非常麻烦 。
我们知道用QQ截图键截取的图片可以在任一个可以粘贴图片的程序中使用，这样只需用截图软件进行一次截图操作，剩下的图片用QQ截图键来截取，然后依次粘贴到截图软件的窗口中即可快速进行拼贴操作了，是不是很方便啊 。
小提示：QQ截图键无需打开聊天窗口即可使用 ， 截取的图片在任一可粘贴图片的程序窗口中如画图、Word等，使用“粘贴”命令即可使用
vb.net 2008 如何将指定的窗体截图并保存INTOUCH自带的就有，打印屏幕的命令
自己写个时间条件运行那命令就可以了
PRINTSCREEN这个命令 具体怎么用 看下帮助
希望我的回答对你有所帮助
如有其他问题，可以继续追问，您的采纳是我前进的动力！
vb.net Document_PrintPag 打印vb.net截图函数我帮vb.net截图函数你把最后一部分vb.net截图函数的语句顺序调换一下 。vb.net截图函数你试一试
sub button1_click()'---执行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1'这样可以两次截图
CaptureScreen()'--执行前面自定义函数截图
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一个间隔
next
end sub
VB.net的mid函数如何按照“字节数”来截?。?而不用“字符数”，也就是汉字、全角符号要算2个字节VB内部采用Unicode编码，在这种编码格式下 ， 任何字符（包括半角的字母、数字、符号以及全角的汉字、符号）都是占用两个字节的 。因此，Len("1111徐")的返回值是5 ， 表示5个字符，而LenB("1111徐")的返回值是10，表示占用10个字节 。
要想按ANSI编码格式来获取字符串的字节数，必须这样：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦 ， 虽然返回值是6，但这个数与这个字符串在内存中的实际占用字节数是不相符的哦！
vb.net截图函数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs截图并保存、vb.net截图函数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：oracle函数索引强制，oracle中强制使用索引

    下一篇：如何正确关闭be服务器？ be服务器怎么关