易截截图软件、单文件、免安装、纯绿色、仅160KB

VB实时截取窗体后面的图作为窗体背景

也是就VB假透明效果,呵呵
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 Sub Form_Load()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
sFile$ = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Me.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End
End Sub
截取前，将本身最小化
http://download.csdn.net/source/987375
我发的那个好像不对，也没仔细看，呵呵
http://topic.csdn.net/t/20030725/12/2070709.html
1楼代码好像不太合适
三楼的,正在看
不合适说出来,我再帮你找

引用
三楼的,正在看

看完了,也不太实用
我在窗体里放了一个flash控件并设成透明的，现在想把背景也搞透明，直接透明好像做不到，所以想到了要实时截屏，呵呵，算是仿窗口透明吧
那是你没把问题说清楚
站内自己搜索一下"透明窗体"

引用
我在窗体里放了一个flash控件并设成透明的，现在想把背景也搞透明，直接透明好像做不到，所以想到�


相关问答：

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb写的程序编译后,运行若出错,如何知道到在哪一行?

vb写的程序编译后,运行若出错,如何知道到在哪一行?

按Ctrl+F5预编译，出错时会跳转到错误行

不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.

我编译后在我的电脑上运行没问题,但� ......

vb打印

要用vb打印一条线，长度是100毫米怎么写？
关注

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

从VB转行VB.NET~~~开始的时候如何学基础入门啊~

VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......

vb中sql语句引号问题

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题：对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号