解决方案 »
- 请教
- installshield打包程序
- 有没有办法让窗体全屏,却不挡住任务栏
- 一个有关数据库的更新!!!急
- Me.Caption = keycode是什么意思
- 用vb做驱动程序
- 我不该在这发帖。实在不会了??关于evb(关键是evb中的人太少了)向各位求助看看。
- 如何实现播放器和录像打包在一起,最终效果就是类似屏幕录像专家那样,可以只生成一个exe文件
- ACCESS支持这样的查询吗?急、急、急!!!!!!!!!!!
- 如何能把数学函数的原型导出来,例如:求某数的平方根的函数,把它的原型导出来之后就可以看到系统是用什么公式计算的了。
- 这有一个知识点不太懂望大神指点
- 如何设计一个类似“记事本"中”查找或替换“的窗体
如果能,就根本不是你说的问题。
可能热键激活了你的程序,QQ在失去焦点时自动隐藏了。
你应该考虑不让你的程序抢焦点。
就是GetDC(0)这个代码抓不了QQ界面,怎么办?
程序初始化的时候就把getdc(0)读进来,我就不信QQ窗口想躲你一辈子
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private 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
Private DC As LongPrivate Sub Form_Click()
BitBlt Me.hDC, 0, 0, Screen.Width \ 15, Screen.Height \ 15, DC, 0, 0, vbSrcCopy
End SubPrivate Sub Form_Load()
DC = GetDC(0)
End Sub
谢谢楼上热心的朋友,我试着在Form_Load时就GetDC(0),然后在按钮事件中将图BitBlt在Picture1里面,结果还是一样,QQ的聊天窗口就跟透明人一样。如上图
哎呀,怎么没想到这个情况呢。谢谢。 按你说的,果然成功了。应该是下面这样:
Call BitBlt(Picture1.hDC, 0, 0, w, h, hDCtmp, 0, 0, vbSrcCopy Or &H40000000)