解决方案 »
- XTreme ToolKit Pro中CXTPReportControl 是否提供单元格合并?
- 关于MessageBox!!!!!!!!!!!!!
- 对话框的销毁问题?
- C 语言中此问题如何解决
- http协议中汉字传输用什么编码的,如何把汉字字符串发送给webserver
- 大侠们,狂入!!关于combolist
- List Control 的ItemText内容太长了,怎么办
- 执行CFileDialog::DoModal()也会产生0xC0000005的exception ? 请问它表示什么?怎样解决?很麻烦
- 请教:很多软件都有时间限制,请问这个东西是怎么实现的(注册表?数据加密?)。谢谢!
- BITMAP资源添加后为什么画面质量严重下降?从真彩下降为调色,文件是小了,但根本看不清楚。是不是可以设置啊?
- CreateEx创建窗口的问题
- 读取excel的问题
http://blog.163.com/tijijun@126/blog/static/68209745201441611472209/
请问这能对OpenGL窗口截图吗?
请问这能对OpenGL窗口截图吗?
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 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Form_Load()
Me.AutoRedraw = False
Me.BorderStyle = 0
Me.Caption = ""
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.BorderStyle = 0
Picture1.Move Screen.Width
Picture2.BorderStyle = 0
Picture2.Width = ShockwaveFlash1.Width
Picture2.Height = ShockwaveFlash1.Height
Picture2.AutoRedraw = True
Picture2.Move Screen.Width
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
ShockwaveFlash1.Movie = "c:\106.swf"
End SubPrivate Sub Command1_Click()
DoEvents
Call keybd_event(vbKeySnapshot, 1, 0, 0)
Call CatchPicture
End SubPrivate Sub Command2_Click()
Unload Me
End SubSub CatchPicture()
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
BitBlt Picture2.hDC, 0, 0, ShockwaveFlash1.Width \ 15, ShockwaveFlash1.Height \ 15, Picture1.hDC, ShockwaveFlash1.Left \ 15, ShockwaveFlash1.Top \ 15, vbSrcCopy
SavePicture Picture2.Image, "C:\TT.BMP"
'MsgBox "抓屏完成!"
End Sub
http://www.itye.org/archives/915