- 博客(0)
- 资源 (11)
- 收藏
- 关注
2008 ASHRAE Handbook _ HVAC Systems and Equipment
2008 ASHRAE Handbook _ HVAC Systems and Equipment
2013-10-05
commondialog将所需文件保存到任意文件夹下
在数据采集处理中,经常需要将存储数据的文件保存在自己想要保存的文件夹下,本方法可以实现弹出对话框,将文件保存到任意自己选定的文件夹下
2013-01-23
vb图标制作方法及安装软件
vb编程系统美化时,经常要用到许多图标,然而下载的图标因为尺寸和格式,导致不能用在vb上,利用该工具可将图像或图标转换为vb所需的标准形式,用来美化我们的编程,很简单好用,内附制作步骤
2012-09-07
vb设计屏幕截图程序
vb设计屏幕截图,api
'截图模Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
块Module1.bas,以下程序放入标准模块内
'创建BMP位图
Public Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture
Dim r As Long
Dim Pic As PicBmp
Dim IPic As IPicture
Dim IID_IDispatch As GUID
'填充IDispatch界面
With IID_IDispatch
.Data1 = &H20400; .Data4(0) = &HC0; .Data4(7) = &H46; End With
'截图处理
Public Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal _
LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc _
As Long) As Picture
'使用时
Dim tmpPicture As Picture
'Public Const snapFolder = "c:/Snap" '截图保存位置
'捕捉活动窗口
Set tmpPicture = CaptureActiveWindow()
'捕捉整个屏幕
Set tmpPicture = CaptureScreen()
'保存时
SavePicture tmpPicture, "FileName完整路径名称"
2012-09-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人