我用VB做RPG地图编辑器，遇到一个显示方面的问题

怪盗基德

怎么才可以实现像DX中的KEYCOLOR功能，我现在弄透明部分都是逐点判断，getpixel ,setpixel这样来的，效率太低了，我知道还有一种做透明的方法就是遮招，可是还要两幅图，我的目的是地图中几个层的叠加，所以这种方法可行性也不大，唯一最好的就是用COLORKEY，能实现吗？

yingzhan

Public Function TransSRC(ByVal T_DC As Long, ByVal T_x As Long, ByVal T_y As Long, ByVal S_DC As Long, ByVal S_X As Long, ByVal S_Y As Long, ByVal S_Width As Long, ByVal S_Height As Long, ByVal TransColor As Long) As Boolean
'****************************************
'               透明图片显示函数2
'****************************************
   
    Dim MaskDC, Maskbitmap As Long
    Dim ForeDc, ForeBitmap As Long
    Dim backDC, backBitmap As Long
   
    ForeDc = CreateDCandBmpBySize(S_Width, S_Height)
    BitBlt ForeDc, 0, 0, S_Width, S_Height, S_DC, S_X, S_Y, SRCCOPY
    ForeBitmap = hBitmap
   
    backDC = CreateDCandBmpBySize(S_Width, S_Height)
    BitBlt backDC, 0, 0, S_Width, S_Height, T_DC, T_x, T_y, SRCCOPY
    backBitmap = hBitmap
   
    MaskDC = CreateCompatibleDC(0)   '1.建立单色mask DC
    Maskbitmap = CreateBitmap(S_Width, S_Height, 1, 1, 0)
    SelectObject MaskDC, Maskbitmap
   
    SetBkColor ForeDc, TransColor '2.把前景图的背景色设为透明色
    BitBlt MaskDC, 0, 0, S_Width, S_Height, ForeDc, 0, 0, SRCCOPY '3.copy前景图到单色DC得到mask

    SetBkColor ForeDc, RGB(0, 0, 0)   '4.把前景图与mask图作与运算
    SetTextColor ForeDc, RGB(255, 255, 255)
    BitBlt ForeDc, 0, 0, S_Width, S_Height, MaskDC, 0, 0, SRCAND
   
    SetBkColor backDC, RGB(255, 255, 255)   '5.把背景图与mask图作与运算
    SetTextColor backDC, RGB(0, 0, 0)
    BitBlt backDC, 0, 0, S_Width, S_Height, MaskDC, 0, 0, SRCAND
   
    '6.把前景图和背景图作或运算
    BitBlt backDC, 0, 0, S_Width, S_Height, ForeDc, 0, 0, SRCPAINT
   
    BitBlt T_DC, T_x, T_y, S_Width, S_Height, backDC, 0, 0, SRCCOPY
   
    DeleteDC ForeDc: DeleteDC backDC: DelObject ForeBitmap: DelObject backBitmap
    DeleteDC MaskDC
    DelObject Maskbitmap
End Function

yingzhan

方法2：

Public Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal HeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Long


这个简单明了。

怪盗基德

用TransparentBlt，我想设2个颜色过滤，怎么办

夜荷

既然要2个颜色都做keycolor,不如把这两个颜色合并为一个颜色

yingzhan

他的意思是说要实现类似alpha混和的效果

lights

d3d 或者 sprite

jason_6260

请问：用VB怎么做地图编辑器？或者是制作教程也行。
小弟急用！谢谢各位了

lxbxl

!

大元帅

表面有个KeyColor属性啊 设置就好了 只要设置High那个，Low那个没有用
如果想制作半透明的话DDRAW会比较麻烦，最简单的办法就是打点试，具体是什么样子 你可以观察一下《传奇》的阴影是怎样绘制你 这你就知道了
由于色位问题，设置DDRAW的KEYCOLOR只有白色RGB(FFFFFF)和玫红色(FF00FF)不需要转换位数，其余还要设置后才能成功透明，还要说明的是DDRAW不支持透明背景图片