纯VB6代码精仿QQ截图，抓屏模块功能 - 源码爱好者下载
您的当前位置：
纯VB6代码精仿QQ截图，抓屏模块功能
纯VB6代码精仿QQ截图，抓屏模块功能，纯Vb源代码编写，比之前上传的那些接近Qq截图的功能，也比较完整，代码内有画文本和椭圆的函数。
　　截图实现部分：确定鼠标XY输入点坐标，确定区域的范围，判断鼠标是否位于pic上，是否处于编辑状态，如果是则将光标改为十字型，然后进入绘图状态，如果选区包含部分提示图片，则需要把图片先隐藏，开始按指定坐标截图，如果当前单击的按钮索引与记录索引相同就将Picture2隐藏，更新OriginalX，因为选择区域时可能会出现shape的right点大于left点……
运行环境：Windows/VB6
相关标签：
软件大小：26.2K
软件属性：共享版 | 简体中文
软件评级：
收录更新： |
相关链接：暂无演示
软件截图：
下载地址：> vb.net 类似qq截图?该如何处理
vb.net 类似qq截图?该如何处理
shooteras & &
发布时间： & &
浏览：372 & &
回复：3 & &
悬赏：0.0希赛币
vb.net 类似qq截图 自己不能完成类似QQ截图的功能。网上找，VB.NET 资料很少，请各位老大赐教
　　VB.NET code　　Public Declare Function ZhuaTu1 Lib &CameraDLL.dll& Alias &CameraSubArea& (ByVal handle As Integer) As Integer
Public Declare Function ZhuaTu2 Lib &CameraDLL.dll& Alias &CameraWindowLikeSpy& () As Integer
shoottt & &
& & （0）（0）引用
探讨VB.NET code
Public Declare Function ZhuaTu1 Lib &CameraDLL.dll& Alias &CameraSubArea& (ByVal handle As Integer) As Integer
Public Declare Function ZhuaTu2 Lib &CameraDLL.dll& Alias &CameraWindowLikeSpy& () As Integer
shootman2 & &
& & （0）（0）引用
探讨引用:VB.NET code
Public Declare Function ZhuaTu1 Lib &CameraDLL.dll& Alias &CameraSubArea& (ByVal handle As Integer) As Integer
Public Declare Function ZhuaTu2 Lib &CameraDLL.dll& Alias &CameraWindowLikeSpy& () As Integer
调用： ZhuaTu1(me.handle.toint32) ZhuaTu2()shopbao & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&Vb6.0开发的仿QQ截图，抓屏模块功能代码下载_最火下载站
> 下载信息页
文件大小：26 KB
授权方式：免费版
更新时间：
界面语言：简体中文
软件等级：
插件情况：无插件
相关网站：
演示网址：Demo Url
运行环境：windows/vb6.0
软件简介：
Vb6.0开发的仿QQ截图，抓屏模块功能代码，纯Vb源代码编写，比之前上传的那些接近Qq截图的功能，也比较完整，代码内有画文本和椭圆的函数。
截图实现部分：确定鼠标XY输入点坐标，确定区域的范围，判断鼠标是否位于pic上，是否处于编辑状态，如果是则将光标改为十字型，然后进入绘图状态，如果选区包含部分提示图片，则需要把图片先隐藏，开始按指定坐标截图，如果当前单击的按钮索引与记录索引相同就将Picture2隐藏，更新OriginalX，因为选择区域时可能会出现shape的right点大于left点&&
《Vb6.0开发的仿QQ截图，抓屏模块功能代码》的下载地址
　1、我们对所有资源都进行了病毒查杀和插件检查，力争提供绿色下载环境。当然，有些含钩子和补丁的软件包可能会误报病毒，但绝对是安全的，推荐您在解压使用前自行检查。　2、如果某软件不能下载，请稍后尝试，总是不能下载的请点击上边的报告错误，我们将尽快修正，谢谢合作！　3、我们提供的程序意在学习和研究，未经作者或本站许可请不要用于商业用途，由此造成的不良后果本站不承担任何责任。　4、本站部分资源下载后需要解压密码，请双击压缩文件，查看右侧的说明，除此之外所有密码为：liehuo.net　5、如果本站提供的某软件或资源侵犯了您的利益或版权，请立即，我们将在收到反馈后的第一时间确认并处理。　6、建议使用下载本站提供的软件，并使用进行解压缩，如果您感觉本站还不错，请。VB最小化的代码，像QQ那样的，重赏呀_百度知道
VB最小化的代码，像QQ那样的，重赏呀
提问者采纳
鼠标左键释放Private Const WM_RBUTTONUP = &H205
' (ByVal hwnd As Long) As LongPrivate Declare Function Shell_NotifyIcon Lib & S&user32&quot.dll&quot.Icon
&#39, ttDELETE
'现在时间.szTip = strTip & vbNullChar Alias &删除图标Private Const NIF_MESSAGE = &H1Private Const NIF_ICON = &H2Private Const NIF_TIP = &H4Private Const NIF_INFO = &H10
Private Const NIIF_INFO = &H1
&#39.dwInfoFlags = NIIF_INFO
, ttA可以设定弹出菜单
End SelectEnd SubPrivate Sub Form_Unload(Cancel As Integer)
ShowToolTip Me;
'鼠标左键按下Private Const WM_LBUTTONUP = &H202
'NOTIFYICONDATA类型的大小，通常使用
'Shell_NotifyIconA& (ByVal dwMessage As Long.Visible = Not Me;图标名柄
As String * 128
'增加托盘图标End SubPrivate Sub Form_MouseUp(Button As Integer.Print Msg
Select Case Msg
&#39, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATA
&#39, Shift As Integer, &quot，用Len(变量名)获得即可
&#39, Optional strTitle As String = &Tip文本的标题
dwInfoFlags
As LongEnd TypePrivate Const NIM_ADD = &H0
&#39, Optional strTip As String = &quot: &
PopupMenu mnuF & Time
&#39, &窗体的名柄
' & vbLf & &quot, vbPopupMenuLeftButton
&#39, Y As Single) '图标资源的ID号, ttModify.szInfoTitle = strTitle & vbNullChar
, X As Single.cbSize = Len(nfIconData)
, ttTipType As TipT使哪些参数有效它是以下枚举类型中的
NIF_MESSAGE
四个常数的组合
uCallBackMessage
&#39.uTimeoutOrVersion = 5000
, &quot,自己修改需要的功能;当鼠标停留在图标上时显示的Tip文本
&#39.hIcon = frmN通常为
dwStateMask
'气泡提示&quot, nfIconData)
With nfIconData通常为
As String * 256
'修改图标Private Const NIM_DELETE = &H2
&#39.hwnd&#39, nfIconData)End SubPrivate Sub Form_Click()
ShowToolTip Me;i&Tip文本正文
uTimeoutOrVersion
'鼠标右键释放Private nfIconData
As NOTIFYICONDATAPublic Enum TipType
[ttAdd] = NIM_ADD
[ttModify] = NIM_MODIFY
[ttDELETE] = NIM_DELETEEnd EnumPrivate Sub ShowToolTip(frmName As F显示弹出气泡End SubPrivate Sub Form_Load()
ShowToolTip Me;气泡提示&由于VB中没有Union类型;&quot.uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.dwStateMask = 0
，只能用Long型代替
szInfoTitle
As String * 64
'右键单击
SetForegroundWindow Me;添加图标Private Const NIM_MODIFY = &H1
'&直接添加在窗体;图标（蓝色的&quot.hwnd = frmN）Private Const WM_LBUTTONDOWN = &H201
'&quot'气泡内容&quot, Optional strInfo As String = &quot.uId = vbNull
.hwnd, &;消息&quot.szInfo = strInfo & vbNullChar
:Option ExplicitPrivate Declare Function SetForegroundWindow Lib &.uCallBackMessage = WM_LBUTTONUP
Call Shell_NotifyIcon(ttTipT)
If ttTipType = ttDELETE Then
Call Shell_NotifyIcon(NIM_DELETE.dwState = 0;shell32;左键双击
Me;点击托盘图标Dim Msg As Long
Msg = X /左键单击
&#39.TwipsPerPixelX
D气泡标题&接受消息的事件
非常感谢。我改了改还是很好用的。
其他类似问题
为您推荐：
最小化的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁