帮助人提问：有没有与InverRect相类似的一个函数，能够做到。。。。？

Question

inverRect是干什么的？大概实现什么功能

Answer 1

InvertRect 用一句话说就是把白的变黑，黑的变白
用BitBlt也可以，只是要麻烦一点。
为什么不用InvertRect？

Answer 2

明白了，就是网页里的图片被选中那样，bitblt参数选择什么xor模式就差不多了

Answer 3

Declare Function InvertRect Lib "user32" Alias "InvertRect" (ByVal hdc As Long, lpRect As RECT) As Long
不是有这个api吗？

Answer 4

以下引用提问者的全文：可能是我没有说清楚，如果你用鼠标选中，用这个函数做选中好吗？
这位星级不好再乱想了（星级专家！中国话都听不懂？）
我说的是：
有没有与InverRect相类似的一个函数，能够做到将所选HDC中的RECT改成被选中的模样？？分不够可以再加！我说的被选中，是指要用高光背景（深蓝色）而不是InverRect变成了黑色。VBHELP注：我看是没有人明白，算了！

Answer 5

可以参考制作图像的mask位图，比如你说的白色的反转蓝色，蓝色反转色为红色，参考现成的mask方法示例，先制作一个红的底板，然后使用mask方法把图片添加过去，最后用invertrect反转底板，得到你想要的效果。

Answer 6

楼主，说话不能客气点吗，你听懂了我说什么了吗？我说的底板你知道就是编辑器的背景色，你就不能在内存中临时创建一个，如果不是提另创建，我说的“然后使用mask方法把图片添加过去”又有什么用呢？你在这个贴字里面两次说我，
=======================================
帮助人提问：有没有与InverRect相类似的一个函数，能够做到将所选HDC中的RECT改成被选中的模样？？分不够可以再加！
********************************************************
            欢迎使用《VBHELP可用分银行》
********************************************************
=======================================
这个问题你说明了选中之后便成蓝色吗？我告诉你我会，我已经实现了白色背景，翻转成蓝色，我就是临时创建了内存的dc，初始化成红色的，然后拷贝zyl_910的mask代码，最后invertrect，再往屏幕上bitblt出来。

Answer 7

附zyl_910的制作mask位图的方法。
制作图像的Mask图  
作者: QinJia 浏览: 4 次  
制作Mask图形的目的是为了把某一个图，去除其背景颜色，而将之画在另一个图上面，比如说有一张方形的BitMap图，上有一枝笔，而其背景是蓝色，如何将这笔画在另一张图上，而且笔原先的蓝背景不会画上去。 
　　这个问题便得制造出笔的Mask图，与Invert的Mask图，该Mask图长像是：背景颜色(本例是蓝色)变成白色，其他颜色变成黑色，而Inver的Mask图则反之。 　　本范例使用GetMaskPic()来取得Mask图的Handle of Memory DC (hMaskDC)，用GetInvertMaskPic()来取得Invert Mask图的Handle of Memory DC (hInvertMaskDC)，事实上，如果想要二者同时取得实在没有必要分成两个函式来做，只要一个就好了，这里只是一个范例，告诉大家如果想要个别取得时该如何做啦。 我将这原理简单的说明一下： 1.hdcMono = CreateCompatibleDC(0) 
　　产生一个Memory DC(与目前萤幕hDC相容)，此时该MemoryDC绘的大小只有一个单色pixel 2.hbmpMono = CreateCompatibleBitmap(hdcMono, dx, dy) 
　　产生一个大小是dx*dy 的Bitmap，而它的第一个叁数是Memory DC所以是单色的BitMap 3.hbmpOld = SelectObject(hdcMono, hbmpMono) 
　　这个动作一做，该hdcMono的绘图区就变成hbmpMono了，也就是说可以想像hdcMono有一个大小是dx*dy(by pixels)的绘图区，在其上的画图会反映到hBmpMono之上 4.picBack.AutoRedraw = True 
　　设定picBack.hDc指的是memory中的那份背景图 5.picBack.BackColor = RGB(255, 255, 255) 
　　设picBack的背景是白色，如此也会同时也使Window background Color变成白色，这边要提出说明的是，vb的BackColor指的是什麽大家都知道，但Window中的BackGround Color却不太相同，Window的BackGround Color指的是在其上画线条或Print文字时，填充於线条或文字外面的颜色，vb中一律使用Form/pictureBox的BackColor来填充，也就是说当BackColor变了时，同时也是让Window中所谓Background Color变，可以用以下程式一试便知： 
　　me.backcolor = RGB(255,255,255) 
　　Call SetBkColor(me.hDc, RGB(255,0,0)) 
　　me.print "haha" 6.ColorBack = SetBkColor(picBack.hDC, TColor) 
　　　设定PicBack的Window背景颜色成TColor，同时传回原本的Window BackGround Color存於ColorBack(先前第5步的设定，会使这ColorBack存的是白色的值) 7.BitBlt hdcMono, 0, 0, dx, dy, picBack.hDC, 0, 0, vbSrcCopy 
　　将picBack的背景图Copy 到memory DC之中，这边有一个重点，picBack是彩色图，但是目前记忆体Dc存的是单色的图，这麽Copy下去的结果会变成：PicBack的BackGround Color(即Tcolor)会变成1(白色)，其他颜色变成0(黑色)。注：如果memory dc的图是彩色，就不会如此，而memory dc的图如何变彩色，那便是Step 3. SelectObject时传入一个彩色的hBitmap，而彩色的hBitmap又如何做到，那便是在Step 2.时CreateCompatibleBitmap的第一个叁数，不传Memory DC，而传一个彩色的hDc，如form1.hdc (if 是彩色萤幕) 8.Call SetBkColor(picBack.hDC, ColorBack) 
　　window BackGround再设回原本的ColorBack之颜色(在这里是白色) 9.BitBlt picBack.hDC, 0, 0, dx, dy, hdcMono, 0, 0, vbSrcCopy 
　　将Memory dc内的图再画回PicBack的背景图中，相同的，单色图如何放入彩色图呢？原则似乎是(这是我的testing，Win32 help中没有说明)： 1(白色)会以目的hdc(在此是picack.hdc)之window Background color来填(此时是ColorBack = 白色) ，而 0(黑色)就以黑色画上去，如此一来，一个图的Mask不就造出来了吗？ 10.将Mask的图放到另一个彩色的Memory DC之中 
　　hMaskDC = CreateCompatibleDC(0) 
　　hBmpMask = CreateCompatibleBitmap(picBack.hDc, dx, dy) 
　　Call SelectObject(hMaskDC, hBmpMask) 
　　BitBlt hMaskDC, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy 11.Call SelectObject(hdcMono, hbmpOld) 
　　因已大功告成，所以将hdcMono上的绘图区设回原先的区域(於Step 2中记录)，不过我个人没有这个习惯，但没有做有没有影响系统资源，我是半路出家，实在不知。 12.Call DeleteDC(hdcMono) 
　　删除记忆体 DC，这没做就不好了。 13.Call DeleteObject(hbmpMono) 
　　删除Bitmap，这没做就不好了。 

Answer 8

'以下在form 需二个PictureBox，一个Image Control, 一个Command Box 
Private Sub Command1_Click() 
Dim dx As Long, dy As Long Call GetInvertMaskPic(Picture1, Image1, RGB(0, 0, 255)) 
'请确认相对pen.bmp图的背景颜色是什麽，本例中是蓝色，故使用RGB(0,0,255) 
Call GetMaskPic(Picture1, Image1, RGB(0, 0, 255)) dx = Me.ScaleX(Image1.Picture.Width, vbHimetric, vbPixels) 
dy = Me.ScaleY(Image1.Picture.Height, vbHimetric, vbPixels) '以下将image1的图去除背景画在Picture2之上 
Set Picture1.Picture = Image1.Picture 
BitBlt Picture2.hDc, 0, 0, dx, dy, hMaskDC, 0, 0, vbSrcAnd 
BitBlt Picture1.hDc, 0, 0, dx, dy, hInvertMaskDC, 0, 0, vbSrcAnd 
BitBlt Picture2.hDc, 0, 0, dx, dy, Picture1.hDc, 0, 0, vbSrcPaint End Sub Private Sub Form_Load() 
Picture1.Visible = False 
Picture1.AutoRedraw = True 
'Picture1.Appearance = 0　'要事先设定 
Picture1.BorderStyle = 0 
Set Image1.Picture = LoadPicture("c:pen.bmp") '请自行设定您的图 
Set Picture2.Picture =　LoadPicture("c:kpic.bmp")　'请设定成自己的背景图 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
　　Call DeleteDC(hMaskDC) 
　　Call DeleteObject(hBmpMask) 
　　Call DeleteDC(hInvertMaskDC) 
　　Call DeleteObject(hBmpInvertMask) End Sub 
'以下在.BAS Declare Function CreateCompatibleBitmap Lib "GDI32" _ 
　　　(ByVal hDc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long 
Declare Function CreateCompatibleDC Lib "GDI32" _ 
　　　(ByVal hDc As Long) As Long 
Declare Function DeleteObject Lib "GDI32" _ 
　　　(ByVal hObject As Long) As Long 
Declare Function SelectObject Lib "GDI32" _ 
　　 (ByVal hDc As Long, ByVal hObject As Long) As Long 
Declare Function DeleteDC Lib "GDI32" _ 
　　　(ByVal hDc As Long) As Long 
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 
Declare Function SetBkColor Lib "GDI32" _ 
　　　(ByVal hDc As Long, ByVal crColor As Long) As Long Public hMaskDC As Long, hBmpMask As Long 
Public hInvertMaskDC As Long, hBmpInvertMask As Long '取得 hMaskDC 的自订函数，该hMaskDC内的图像是souImg图之背景为白色 
'　　　　　　　　　　　　 而souImg的前景图是黑色 
'PicBack 叁数: 用来制作 Mask 图的图片盒 
'souImg 叁数: 摆放原图的影像之物件，可以是 image/picturebox 
'TColor 叁数: 欲去除的颜色，即souImg的背景色 
Public Sub GetMaskPic(picBack As PictureBox, _ 
　　　　souImg As Control, ByVal TColor As Long) 
Dim hdcMono, hbmpMono, hbmpOld 
Dim ColorBack As Long 
Dim dx As Long, dy As Long 　　With picBack 
　　　　'取得该图的大小, by Pixels 
　　　　dx = .ScaleX(souImg.Picture.Width, vbHimetric, vbPixels) 
　　　　dy = .ScaleY(souImg.Picture.Height, vbHimetric, vbPixels) 
　　　　'设定pictureBox的大小与Source Image的大小相同 
　　　　.Width = souImg.Width 
　　　　.Height = souImg.Height 
　　　　Set .Picture = souImg.Picture 
　　End With 
　　 
　　hdcMono = CreateCompatibleDC(0) 
　　hbmpMono = CreateCompatibleBitmap(hdcMono, dx, dy) 
　　hbmpOld = SelectObject(hdcMono, hbmpMono) 
　　 
　　picBack.AutoRedraw = True 
　　picBack.BackColor = RGB(255, 255, 255) 
　　 
　　ColorBack = SetBkColor(picBack.hDc, TColor) 
　　BitBlt hdcMono, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy 
　　Call SetBkColor(picBack.hDc, ColorBack) 
　　BitBlt picBack.hDc, 0, 0, dx, dy, hdcMono, 0, 0, vbSrcCopy 

Answer 9

hMaskDC = CreateCompatibleDC(0) 
　　hBmpMask = CreateCompatibleBitmap(picBack.hDc, dx, dy) 
　　Call SelectObject(hMaskDC, hBmpMask) 
　　BitBlt hMaskDC, 0, 0, dx, dy, picBack.hDc, 0, 0, vbSrcCopy 
　 
　　Call SelectObject(hdcMono, hbmpOld) 
　　Call DeleteDC(hdcMono) 
　　Call DeleteObject(hbmpMono) 
　　 
End Sub '取得 hInvertMaskDC 的自订函数，该hMaskDC内的图像是souImg图之背景为白色 
'　　　　　　　　　　　　 而souImg的前景图是黑色 
'PicBack 叁数: 用来制作 Mask 图的图片盒 
'souImg 叁数: 摆放原图的影像之物件，可以是 image/picturebox 
'TColor 叁数: 欲去除的颜色，即souImg的背景色 
Public Sub GetInvertMaskPic(picBack As PictureBox, _ 
　　　　souImg As Control, ByVal TColor As Long) 
Dim hdcMono, hbmpMono, hbmpOld 
Dim ColorBack As Long 
Dim dx
-----------------------------------
我以前写的东东，（1）透明bitblt（2）一定度透明Alpha
Option Explicit
'//WINGDIAPI BOOL  WINAPI TransparentBlt(HDC,int,int,int,int,HDC,int,int,int,int,UINT);Private Declare Function TransparentBltAPI Lib "msimg32.dll" Alias "TransparentBlt" _
    (ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
    ByVal crTrans As Long) As Boolean'==================================================================================
'//
'//     基本 API 实现 TransparentBlt
'//
'==================================================================================
Private Type BITMAP
        bmType As Long
        bmWidth As Long
        bmHeight As Long
        bmWidthBytes As Long
        bmPlanes As Integer
        bmBitsPixel As Integer
        bmBits As Long
End TypePrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As LongPrivate 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 Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As LongPrivate Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long'==================================================================================
'//
'//     实现 AlphaBlend
'//
'==================================================================================Private Const AC_SRC_OVER = &H0Private Type BLENDFUNCTION
    BlendOp             As Byte
    BlendFlags          As Byte
    SourceConstantAlpha As Byte
    AlphaFormat         As Byte
End TypePrivate Declare Function AlphaBlend Lib "msimg32.dll" ( _
    ByVal hdcDest As Long, _
    ByVal nXOriginDest As Long, _
    ByVal nYOriginDest As Long, _
    ByVal nWidthDest As Long, _
    ByVal nHeightDest As Long, _
    ByVal hdcSrc As Long, _
    ByVal nXOriginSrc As Long, _
    ByVal nYOriginSrc As Long, _
    ByVal nWidthSrc As Long, _
    ByVal nHeightSrc As Long, _
    ByVal BLENDFUNCT As Long) As LongPrivate Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)'=================================================================================='==================================================================================
Public Function TransparentBltFast _
    (ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
    ByVal crTrans As Long)
    
    TransparentBltFast = TransparentBltAPI(hdcDest, x, y, nWidth, nHeight, hdcSrc, xSrc, ySrc, nWidthSrc, nHeightSrc, crTrans)End Function

Answer 10

Public Sub TransparentBlt _
    (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 nWidthSrc As Long, ByVal nHeightSrc As Long, _
    ByVal TransColor As Long)    Dim dl          As Long
    Dim OrigColor   As Long
    Dim OrigMode    As Long    Dim saveDC      As Long
    Dim maskDC      As Long
    Dim invDC       As Long    Dim resultDC    As Long
    Dim hSaveBmp    As Long
    Dim hMaskBmp    As Long    Dim hInvBmp     As Long
    Dim hResultBmp  As Long    Dim hSavePrevBmp    As Long
    Dim hMaskPrevBmp    As Long
    Dim hInvPrevBmp     As Long
    Dim hDestPrevBmp    As Long    saveDC = CreateCompatibleDC(hDestDC)
    maskDC = CreateCompatibleDC(hDestDC)
    invDC = CreateCompatibleDC(hDestDC)
    resultDC = CreateCompatibleDC(hDestDC)    'creat Black-White & White-Black TEMP bitmap
    hMaskBmp = CreateBitmap(nWidthSrc, nHeightSrc, 1, 1, ByVal 0&)
    hInvBmp = CreateBitmap(nWidthSrc, nHeightSrc, 1, 1, ByVal 0&)    'creat two bitmap to be combined
    hResultBmp = CreateCompatibleBitmap(hDestDC, nWidthSrc, nHeightSrc)
    hSaveBmp = CreateCompatibleBitmap(hDestDC, nWidthSrc, nHeightSrc)
       
    hSavePrevBmp = SelectObject(saveDC, hSaveBmp)
    hMaskPrevBmp = SelectObject(maskDC, hMaskBmp)
    hInvPrevBmp = SelectObject(invDC, hInvBmp)
    hDestPrevBmp = SelectObject(resultDC, hResultBmp)    'Creat MASK
    OrigColor = SetBkColor(hSrcDC, TransColor)
    dl = BitBlt(maskDC, 0, 0, nWidthSrc, nHeightSrc, hSrcDC, xSrc, ySrc, vbSrcCopy)
    TransColor = SetBkColor(hSrcDC, OrigColor)    'invDC = NOT(maskDC)
    dl = BitBlt(invDC, 0, 0, nWidthSrc, nHeightSrc, maskDC, 0, 0, vbNotSrcCopy)
    
    '//make resultDC
    dl = BitBlt(resultDC, 0, 0, nWidthSrc, nHeightSrc, hDestDC, x, y, vbSrcCopy)
    dl = BitBlt(resultDC, 0, 0, nWidthSrc, nHeightSrc, maskDC, 0, 0, vbSrcAnd)
    
    '//make saveDC
    dl = BitBlt(saveDC, 0, 0, nWidthSrc, nHeightSrc, hSrcDC, xSrc, ySrc, vbSrcCopy)
    dl = BitBlt(saveDC, 0, 0, nWidthSrc, nHeightSrc, invDC, 0, 0, vbSrcAnd)    '//saveDC + resultDC = resultDC
    dl = BitBlt(resultDC, 0, 0, nWidthSrc, nHeightSrc, saveDC, 0, 0, vbSrcInvert)    '//output
    'dl = BitBlt(hDestDC, x, y, nWidth, nHeight, resultDC, 0, 0, vbSrcCopy)
    dl = StretchBlt(hDestDC, x, y, nWidth, nHeight, resultDC, xSrc, ySrc, nWidthSrc, nHeightSrc, vbSrcCopy)
    
    
    '//Delete All Temp
    SelectObject saveDC, hSavePrevBmp
    SelectObject resultDC, hDestPrevBmp
    SelectObject maskDC, hMaskPrevBmp
    SelectObject invDC, hInvPrevBmp    DeleteObject hSaveBmp
    DeleteObject hMaskBmp
    DeleteObject hInvBmp
    DeleteObject hResultBmp    DeleteDC saveDC
    DeleteDC maskDC
    DeleteDC invDC
    DeleteDC resultDCEnd SubPublic Function AlphaPic(ByVal hdcDest As Long, _
    ByVal nXOriginDest As Long, _
    ByVal nYOriginDest As Long, _
    ByVal nWidthDest As Long, _
    ByVal nHeightDest As Long, _
    ByVal hdcSrc As Long, _
    ByVal nXOriginSrc As Long, _
    ByVal nYOriginSrc As Long, _
    ByVal nWidthSrc As Long, _
    ByVal nHeightSrc As Long, _
    ByVal lAlphaVal As Long) As Long
          
    Dim BF      As BLENDFUNCTION
    Dim lBF     As Long
          
    'set  the  parameters
    With BF
        .BlendOp = AC_SRC_OVER
        .BlendFlags = 0
        .SourceConstantAlpha = lAlphaVal
        .AlphaFormat = 0
    End With
    
    'copy the BLENDFUNCTION-structure to a Long
    RtlMoveMemory lBF, BF, 4
    
    'AlphaBlend the picture
    AlphaPic = AlphaBlend(hdcDest, _
             nXOriginDest, nYOriginDest, nWidthDest, nHeightDest, _
             hdcSrc, nXOriginSrc, nYOriginSrc, _
             nWidthSrc, nHeightSrc, lBF)End Function

Answer 11

Public Sub TransBltFile(ByVal sFilename As String, ByVal desDC As Long, ByVal x As Long, ByVal y As Long, ByVal TransColor As Long)
    
    Dim pSource       As Picture
    Dim hBitmap       As Long
    Dim srcDC         As Long
    
    '//load picture to bitmap
    Set pSource = LoadPicture(sFilename)
    hBitmap = pSource.Handle
    
    '//getDC
    srcDC = CreateCompatibleDC(desDC)
    SelectObject srcDC, hBitmap
    
    '//Get size
    Dim bmp         As BITMAP
    GetObject hBitmap, Len(bmp), bmp
    
    '//call TransparentBltAPI
    Call TransparentBlt(desDC, x, y, bmp.bmWidth, bmp.bmHeight, srcDC, 0, 0, bmp.bmWidth, bmp.bmHeight, TransColor)
    
    '//delete temp
    DeleteDC srcDC
    Set pSource = NothingEnd Sub
-------------------
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As LongPublic Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPublic Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As LongPublic 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 LongPublic Declare Function SetBkColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As LongPublic Const ROP_DSna    As Long = &H220326 'D And (Not S)Public Function DrawTranMap(ByVal hDestDC As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal Width As Long, ByVal Height As Long, _
        ByVal hSrcDC As Long, _
        ByVal SrcX As Long, ByVal SrcY As Long, _
        ByVal MaskColor As Long) As Boolean
    Dim OldC As Long
    
    Dim hDC As Long
    Dim hMap As Long
    Dim hOldMap As Long
    
    hDC = CreateCompatibleDC(hSrcDC)
    hMap = CreateBitmap(Width, Height, 1, 1, ByVal 0&)
    hOldMap = SelectObject(hDC, hMap)
    
    OldC = SetBkColor(hSrcDC, MaskColor)
    BitBlt hDC, 0, 0, Width, Height, hSrcDC, SrcX, SrcY, vbSrcCopy
    Call SetBkColor(hSrcDC, OldC)
    
    Dim hColorDC As Long
    Dim hColorMap As Long
    Dim hColorOldMap As Long
    
    hColorDC = CreateCompatibleDC(hSrcDC)
    hColorMap = CreateCompatibleBitmap(hSrcDC, Width, Height)
    hColorOldMap = SelectObject(hColorDC, hColorMap)
    
    BitBlt hColorDC, 0, 0, Width, Height, hSrcDC, SrcX, SrcY, vbSrcCopy
    BitBlt hColorDC, 0, 0, Width, Height, hDC, 0, 0, ROP_DSna
    
    OldC = SetBkColor(hDestDC, vbWhite)
    BitBlt hDestDC, X, Y, Width, Height, hDC, 0, 0, vbSrcAnd
    Call SetBkColor(hDestDC, OldC)
    BitBlt hDestDC, X, Y, Width, Height, hColorDC, 0, 0, vbSrcInvert
    
    Call SelectObject(hDC, hOldMap)
    Call DeleteObject(hMap)
    Call DeleteDC(hDC)
    
    Call SelectObject(hColorDC, hColorOldMap)
    Call DeleteObject(hColorMap)
    Call DeleteDC(hColorDC)
    
    DrawTranMap = True
    
End Function

Answer 12

非常感谢，不过，这一大堆代码，总不是实际所需吧？
假如这样，还不如获取SelStart,SelEnd以获取：SelText,SelRect用
FillRect,DrawText不是更简单？
因为，我回答时，对方说，这种做法他清楚，关键是有没有更好的捷径，
不必再写一次文字。也许此问题真的太难了！