能力值:
( LV9,RANK:780 )
|
-
-
2 楼
我发的代码有点不伦不类了,是易代码改的,在易语言中是没有操作符 | 的 ,可以用位或()代替。
这样是为了大家看的方便
|
能力值:
( LV3,RANK:20 )
|
-
-
3 楼
我帮顶一下,这方面只有像我这样的网管才有用。
可惜我不会易语言, 对图形处理方面也不在行, 转不成 DELPHI 的(所有代码都转换了, 但不会如何真正输出到位图里)
|
能力值:
( LV2,RANK:10 )
|
-
-
4 楼
也可以先做一个圆角的矩形图片,然后CombineRgn设置窗体区域,在Setwindowlayerattribute 设置透明度
|
能力值:
( LV9,RANK:780 )
|
-
-
5 楼
写到文件 (“c:\liangfei.bmp”, GetBitsFromBitmapHandle (BMP))
.子程序 GetBitsFromBitmapHandle, 字节集, , 根据位图句柄取回位图数据。
.参数 hBitmap, 整数型
.局部变量 Bitmap, BITMAP
.局部变量 Resource, 字节集
.局部变量 BitmapFileHeader, BITMAPFILEHEADER
.局部变量 bfh, 字节集
.局部变量 hMemDC, 整数型
.局部变量 BitmapInfo, BITMAPINFO
.局部变量 bi, 字节集
GetObjectA (hBitmap, 5 × 4 + 2 + 2, Bitmap)
hMemDC = CreateCompatibleDC (0)
BitmapInfo.BITMAPINFOHEADER.biSize = 4 × 11
GetDIBits_BimapInfo (hMemDC, hBitmap, 0, 0, 0, BitmapInfo, 0)
Resource = 取空白字节集 (BitmapInfo.BITMAPINFOHEADER.biSizeImage)
BitmapInfo.BITMAPINFOHEADER.biCompression = 0
GetDIBits (hMemDC, hBitmap, 0, Bitmap.bmHeight, Resource, BitmapInfo, 0)
' 构造位图信息
bi = 取空白字节集 (BitmapInfo.BITMAPINFOHEADER.biSize)
CopyMemory_BITMAPINFO (bi, BitmapInfo, BitmapInfo.BITMAPINFOHEADER.biSize)
' 构造位图文件头
BitmapFileHeader.bfType = 19778
BitmapFileHeader.bfOffBits = 2 × 4 + 3 × 2 + BitmapInfo.BITMAPINFOHEADER.biSize
BitmapFileHeader.bfSize = BitmapFileHeader.bfOffBits + BitmapInfo.BITMAPINFOHEADER.biSizeImage
BitmapFileHeader.bfReserved1 = 0
BitmapFileHeader.bfReserved2 = 0
bfh = 取空白字节集 (14)
CopyMemory_BITMAPFILEHEADER (bfh, BitmapFileHeader, 14)
DeleteDC (hMemDC)
返回 (bfh + bi + Resource)
|
能力值:
( LV9,RANK:780 )
|
-
-
6 楼
|
能力值:
( LV2,RANK:10 )
|
-
-
8 楼
呵呵,老贼和小贼啊,不是一般的人来的!
|
能力值:
( LV9,RANK:350 )
|
-
-
9 楼
good!!!!!!
|
能力值:
( LV2,RANK:10 )
|
-
-
10 楼
看不懂 ·哈哈·还太菜一点。·
|