joinclear的博客 http://blogger.org.cn/blog/blog.asp?name=joinclear joinclear的博客 blogger.org.cn W3CHINA Blog webmaster@blogger.org.cn <![CDATA[VC文件目录选择对话框(任意目录)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=15268 joinclear 2006/6/8 22:46:48 http://www.vclife.net/articles/article_view.asp?atlid=48

使用目录选择对话框时,如何让其弹出后自动打开指定目录？

是的当用目录选择对话框时，用如下的结构打开。
typedef struct _browseinfo {
HWND hwndOwner;
LPCITEMIDLIST pidlRoot;
LPSTR pszDisplayName;
LPCSTR lpszTitle;
UINT ulFlags;
BFFCALLBACK lpfn;
LPARAM lParam;
int iImage;
} BROWSEINFO, *PBROWSEINFO, *LPBROWSEINFO;

LPCITEMIDLIST pidlRoot; 这个就是　默认为桌面。


还有可以通过这种方式实现，如下：
LPMALLOC pMalloc;     
     if ( SUCCEEDED( SHGetSpecialFolderLocation (NULL, CSIDL_DRIVES, &pidl)))
     {
         SHELLEXECUTEINFO sei;
         ZeroMemory(&sei, sizeof(sei));
         sei.cbSize = sizeof(sei);
         sei.fMask = SEE_MASK_IDLIST;
         sei.lpIDList = pidl;
         sei.lpVerb = "open";
         sei.hwnd = AfxGetMainWnd()->GetSafeHwnd();
         sei.nShow = BIF_RETURNONLYFSDIRS;
         ShellExecuteEx(&sei);
         if (SUCCEEDED( SHGetMalloc (&pMalloc)))
         {
             pMalloc->Free ( pidl );
             pMalloc->Release();
         }
     }

其中：//CSIDL_DRIVES是我的电脑
参数有好些，
CSIDL_BITBUCKET 回收站
CSIDL_CONTROLS 控制面板
CSIDL_DESKTOP Windows 桌面Desktop
CSIDL_DESKTOPDIRECTORY Desktop的目录
CSIDL_DRIVES 我的电脑
CSIDL_FONTS 字体目录
CSIDL_NETHOOD 网上邻居
CSIDL_NETWORK 网上邻居虚拟目录
CSIDL_PERSONAL 我的文档
CSIDL_PRINTERS 打印机
CSIDL_PROGRAMS 程序组
CSIDL_RECENT 最近打开的文档
CSIDL_SENDTO “发送到”菜单项
CSIDL_STARTMENU 任务条启动菜单项
CSIDL_STARTUP 启动目录
CSIDL_TEMPLATES 文档模板
还有的看　MSDN吧。

现在像论坛上的朋友，他要实现的是要打开　如：f:,f:\\site等这样的目录。
很明显这样的字符串是不被支持的，所以必须要转成　LPCITEMIDLIST 这种结构的才支持。
但微软好像没有类似的函数实现这样的功能。于是就写了一个如下：

//文件目录转成LPITEMIDLIST
LPITEMIDLIST CTestBrowseDlg::ParsePidlFromPath(LPCSTR path)
{    
    OLECHAR szOleChar[MAX_PATH];    
    LPSHELLFOLDER IpsfDeskTop;    
    LPITEMIDLIST lpifq;    
    ULONG ulEaten, ulAttribs;    
    HRESULT hres;    
    SHGetDesktopFolder(&IpsfDeskTop);    
    MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED,path,-1,szOleChar,sizeof(szOleChar));    
    hres = IpsfDeskTop ->ParseDisplayName(NULL, NULL, szOleChar, &ulEaten, &lpifq, &ulAttribs);    
    hres=IpsfDeskTop->Release( );        
    if(FAILED(hres))
        return NULL;
    return lpifq;
}

如这样写：    
方法1：
LPITEMIDLIST pidl;
    
     LPMALLOC pMalloc;
     pidl = ParsePidlFromPath("F:\\site");//请先确定f:下有这个文件夹
    
     SHELLEXECUTEINFO sei;
     ZeroMemory(&sei, sizeof(sei));
     sei.cbSize = sizeof(sei);
     sei.fMask = SEE_MASK_IDLIST;
     sei.lpIDList = pidl;
     sei.lpVerb = "open";
     sei.hwnd = AfxGetMainWnd()->GetSafeHwnd();
     sei.nShow = BIF_RETURNONLYFSDIRS;
     ShellExecuteEx(&sei);
     if (SUCCEEDED( SHGetMalloc (&pMalloc)))
     {
         pMalloc->Free ( pidl );
         pMalloc->Release();
     }
就可以打开F:\site

方法2：
    CString str;
    BROWSEINFO bi;
    char name[MAX_PATH];
    ZeroMemory(&bi,sizeof(BROWSEINFO));    
    bi.pidlRoot = ParsePidlFromPath("F:\\");
    bi.hwndOwner=GetSafeHwnd();
    bi.pszDisplayName=name;
    bi.lpszTitle="S浏览文件夹";
    bi.ulFlags=BIF_RETURNONLYFSDIRS;
    
    LPITEMIDLIST idl=SHBrowseForFolder(&bi);
    if(idl==NULL)
        return;
就能打开f:

由于此文章是工作时间仓促写就，所以文辞方面就没考虑，具体的看源代码吧。

]]> <![CDATA[(J2ME入门二)J2ME　HelloWorld程序(Eclipse)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14449 joinclear 2006/5/16 17:51:07 http://www.vclife.net/mobile/mob_view.asp?mobid=4

]]> <![CDATA[(J2ME入门一)Eclipse配置J2ME开发环境]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14448 joinclear 2006/5/16 17:50:24 http://www.vclife.net/mobile/mob_view.asp?mobid=3

]]> <![CDATA[(二)VC保存和显示数据库图像(JPG、JPEG)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14377 joinclear 2006/5/13 18:08:13 转载自: http://www.vclife.net/articles/article_view.asp?atlid=18

简述关键代码如下：

1、保存图片数据到数据库

    //JPG图片保存到数据库
    try
    {
        _RecordsetPtr    pRecordset;
        pRecordset.CreateInstance(__uuidof(Recordset));
        pRecordset->Open("SELECT * FROM jpg",_variant_t((IDispatch*)pConnection),adOpenStatic,adLockOptimistic,adCmdText);
        pRecordset->AddNew();
        pRecordset->Fields->Item["jpgid"]->Value = (_variant_t)m_JPGId;//jpgid
        VARIANT pvList;
        SetPictureToVariant(pvList,(unsigned char *)m_pJPGBuffer);
        pRecordset->Fields->Item["jpgimage"]->AppendChunk(pvList); //JPG图像文件
        VariantClear(&pvList);
        
        pRecordset->Update();
        pRecordset->Close();
        AfxMessageBox("JPG图像保存成功！");

        m_JPGId == "";
        UpdateData(false);
    }
    catch(...)
    {
        AfxMessageBox("数据库读取失败");
        return;
    }
其中SetPictureToVariant如下：
    void CBMPinDBDlg::SetPictureToVariant(VARIANT &pvList, unsigned char *sPicture)
    {
        SAFEARRAYBOUND saBound[1];
        saBound[0].cElements = m_nFileLen;
        saBound[0].lLbound = 0;
        SAFEARRAY *pSA = SafeArrayCreate(VT_UI1, 1, saBound);    
        for (long l = 0; l < (long)m_nFileLen; l ++)
        {
            SafeArrayPutElement( pSA, &l, (void*)&sPicture[l]);        
        }
        VariantClear(&pvList);
        pvList.vt = VT_UI1 | VT_ARRAY;
        pvList.parray = pSA;
    }

2、从数据库读取图像文件并且显示在界面

    //从数据库里取JPG图像文件
    try
    {
        _RecordsetPtr    pRecordset;
        char sSql[129];
        sprintf(sSql,"SELECT *FROM jpg WHERE jpgid='%s'",m_JPGId);
        pRecordset.CreateInstance(__uuidof(Recordset));
        pRecordset->Open(sSql,_variant_t((IDispatch*)pConnection),adOpenStatic,adLockOptimistic,adCmdText);
        if (pRecordset->adoEOF)
        {
            CString str;
            str.Format("没有JPGid为: %s 的JPG图像!",m_JPGId );
            AfxMessageBox(str);
            Invalidate();
            m_JPGId = "";
            UpdateData(false);
            m_EidtJPGId.SetFocus();
            return;
        }
        _variant_t pvList ;        
        long lDataSize = pRecordset->GetFields()->GetItem("jpgimage")->ActualSize;
        m_nFileLen = (DWORD)lDataSize;
        if(lDataSize > 0)
        {
            _variant_t            varBLOB;
            varBLOB = pRecordset->GetFields()->GetItem("jpgimage")->GetChunk(lDataSize);
            //把二进制格式的图片转为图片格式
            try
            {
                if(varBLOB.vt == (VT_ARRAY | VT_UI1))
                {
                    if(m_pJPGBuffer = new char[lDataSize+1])        
                    {    
                        char *pBuf = NULL;
                        SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
                        memcpy(m_pJPGBuffer,pBuf,lDataSize);                
                        SafeArrayUnaccessData (varBLOB.parray);
                        m_nFileLen = lDataSize;
                        
                        //m_pJPGBuffer -> pPicture                    
                        HGLOBAL hMem = ::GlobalAlloc( GMEM_MOVEABLE, m_nFileLen );
                        LPVOID lpBuf = ::GlobalLock( hMem );                    
                        memcpy(lpBuf,m_pJPGBuffer,m_nFileLen);
                        
                        ::GlobalUnlock( hMem );
                        
                        if ( CreateStreamOnHGlobal( hMem, TRUE, &pStream ) !=S_OK )     
                            return ;
                        
                        if ( OleLoadPicture( pStream, m_nFileLen, TRUE, IID_IPicture, ( LPVOID * )&pPicture ) !=S_OK )
                            return ;
                        
                        Invalidate();//在界面显示                
                    }
                }
            }
            catch(...)
            {
                AfxMessageBox("从数据库中读取jpg图像有错！");
                return;
            }
            
        }
        
    }
    catch(...)
    {
        AfxMessageBox("数据库读取失败");
        return;
    }


具体的程序请参考附带的例子，例子里面有详细的注释。

]]> <![CDATA[(一)VC保存和显示数据库图像(BMP)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14376 joinclear 2006/5/13 18:06:09 转载自: http://www.vclife.net/articles/article_view.asp?atlid=17

简述关键代码如下：

1、保存图片数据到数据库

//BMP图片保存到数据库
    try
    {
        _RecordsetPtr    pRecordset;
        pRecordset.CreateInstance(__uuidof(Recordset));
        pRecordset->Open("SELECT * FROM bmp",_variant_t((IDispatch*)pConnection),adOpenStatic,adLockOptimistic,adCmdText);
        pRecordset->AddNew();
        pRecordset->Fields->Item["bmpid"]->Value = (_variant_t)m_BMPId;        //bmpid
        VARIANT pvList;
        SetPictureToVariant(pvList,(unsigned char *)m_pBMPBuffer);
        pRecordset->Fields->Item["bmpimage"]->AppendChunk(pvList);            //BMP图像文件
        VariantClear(&pvList);
    
        pRecordset->Update();
        pRecordset->Close();
        AfxMessageBox("BMP图像保存成功！");
    }
    catch(...)
    {
        AfxMessageBox("数据库读取失败");
        return;
    }
其中SetPictureToVariant如下：
    void CBMPinDBDlg::SetPictureToVariant(VARIANT &pvList, unsigned char *sPicture)
    {
        SAFEARRAYBOUND saBound[1];
        saBound[0].cElements = m_nFileLen;
        saBound[0].lLbound = 0;
        SAFEARRAY *pSA = SafeArrayCreate(VT_UI1, 1, saBound);    
        for (long l = 0; l < (long)m_nFileLen; l ++)
        {
            SafeArrayPutElement( pSA, &l, (void*)&sPicture[l]);        
        }
        VariantClear(&pvList);
        pvList.vt = VT_UI1 | VT_ARRAY;
        pvList.parray = pSA;
    }

2、从数据库读取图像文件并且显示在界面

    //从数据库里取BMP图像文件
    try
    {
        _RecordsetPtr    pRecordset;
        char sSql[129];
        sprintf(sSql,"SELECT *FROM bmp WHERE bmpid='%s'",m_BMPId);
        pRecordset.CreateInstance(__uuidof(Recordset));
        pRecordset->Open(sSql,_variant_t((IDispatch*)pConnection),adOpenStatic,adLockOptimistic,adCmdText);
        if (pRecordset->adoEOF)
        {
            CString str;
            str.Format("没有BMPid为: %s 的BMP图像!",m_BMPId );
            AfxMessageBox(str);
            DestroyPhoto();
            Invalidate();
            m_BMPId = "";
            UpdateData(false);
            m_EidtBMPId.SetFocus();
            return;
        }
        _variant_t pvList ;        
        long lDataSize = pRecordset->GetFields()->GetItem("bmpimage")->ActualSize;
        m_nFileLen = (DWORD)lDataSize;
        if(lDataSize > 0)
        {
            _variant_t            varBLOB;
            varBLOB = pRecordset->GetFields()->GetItem("bmpimage")->GetChunk(lDataSize);
            //把二进制格式的图片转为图片格式
            if(varBLOB.vt == (VT_ARRAY | VT_UI1))
            {
                if(m_pBMPBuffer = new char[lDataSize+1])        
                {    
                    char *pBuf = NULL;
                    SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
                    memcpy(m_pBMPBuffer,pBuf,lDataSize);                
                    SafeArrayUnaccessData (varBLOB.parray);
                    m_nFileLen = lDataSize;
                    m_hBitmap = BufferToHBITMAP();
                    Invalidate();//在界面显示                
                }
            }
        }
        
    }
    catch(...)
    {
        AfxMessageBox("数据库读取失败");
        return;
    }

上次写了两篇关于在VC界面显示图片(BMP、JPG)的文章，但是并没有涉及到数据库，所以这次补写了这两篇有关数据库的文章，这两篇文章用的是access的数据库，其它的数据库操作道理是一样的。

具体的程序请参考附带的例子，例子里面有详细的注释。

文章为我原创，更多文章请到我的网站查看(www.vclife.net).

]]> <![CDATA[(二)VC界面显示图片(JPG JPEG GIF)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14375 joinclear 2006/5/13 18:04:27 转载自: http://www.vclife.net/articles/article_view.asp?atlid=7

简述实现步骤如下：

1、通过点击浏览按钮选择JPG图像文件
点击浏览按钮打开文件对话框选择JPG图像文件，得到文件所在的路径目录。
关键代码如下：
char szFilter[] = "JPG Files (*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files (*.gif)|*.gif|All Files (*.*)|*.*||";
CFileDialog dlg(TRUE,"jpg|jpeg|gif",NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,szFilter);
if(dlg.DoModal() == IDOK)
{
CString strPathName = dlg.GetPathName();                
}

2、加载JPG文件到内存
主要通过COM类—IPicture实现。
关键代码如下：
BOOL CShowJPGDlg::LoadJPGFile(const char *pPathname)
{
    CFile file;
    if( !file.Open( pPathname, CFile::modeRead) )
        return FALSE;

    DWORD    m_nFileLen;
    m_nFileLen = file.GetLength();

    HGLOBAL hMem = ::GlobalAlloc( GMEM_MOVEABLE, m_nFileLen );
    LPVOID lpBuf = ::GlobalLock( hMem );
    if( file.ReadHuge( lpBuf, m_nFileLen ) != m_nFileLen )
        return FALSE;
    file.Close();

    ::GlobalUnlock( hMem );

    if ( CreateStreamOnHGlobal( hMem, TRUE, &pStream ) !=S_OK )     
        return FALSE;
    
    if ( OleLoadPicture( pStream, m_nFileLen, TRUE, IID_IPicture, ( LPVOID * )&pPicture ) !=S_OK )
        return FALSE;
    
    return TRUE;
}

3、在屏幕上显示JPG图像
主要通过Render函数实现显示JPG图像。
Render函数说明
HRESULT Render( HDC hdc,            //设备环境句柄
             long x,            //在hdc上的水平坐标
             long y,            //在hdc上的垂直坐标
             long cx,            //图像宽度
             long cy,            //图像高度
             OLE_XPOS_HIMETRIC xSrc,    //在源图像上的水平偏移
             OLE_YPOS_HIMETRIC ySrc,    //在源图像上的垂直偏移
             OLE_XSIZE_HIMETRIC cxSrc,    //在源图像上水平拷贝的数量
             OLE_YSIZE_HIMETRIC cySrc,    //在源图像上垂直拷贝的数量
             LPCRECT prcWBounds        //指向目标图元设备环境句柄的指针
             );
关键代码如下：
void CShowJPGDlg::DrawImage(int x, int y, CDC *pDC)
{        
    if (pPicture != NULL)
    {
        long nWidth,nHeight;
        pPicture->get_Width( &nWidth );
        pPicture->get_Height( &nHeight );         
    /*
        //图片原大显示
            CSize sz( nWidth, nHeight );
            pDC->HIMETRICtoDP( &sz );
            pPicture->Render(pDC->m_hDC,0,0,sz.cx,sz.cy,0,nHeight,nWidth,-nHeight,NULL);
    */                
        //按窗口尺寸显示
        CRect rect;
        GetClientRect(&rect);
        pPicture->Render(pDC->m_hDC,x,y,rect.Width(),rect.Height(),0,nHeight,nWidth,-nHeight,NULL);
    }
}

注意：由于是主要通过COM类—IPicture实现的，不要忘记了CoInitialize(NULL);，用完了CoUninitialize();。
显示JPEG、GIF和JPG是一样的。
相比较BMP图像，JPG、JPEG、GIF图像有很多优点。但BMP图像在VC中的处理好像更理所当然一点，相信这种COM实现显示JPG、JPEG、GIF图像的处理让我们更是耳目一新。

具体的程序请参考附带的例子，例子里面有详细的注释。


 

]]> <![CDATA[(一)VC界面显示图片(BMP)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14374 joinclear 2006/5/13 18:01:54 http://www.vclife.net/articles/article_view.asp?atlid=6
简述实现步骤如下：

1、通过点击浏览按钮选择BMP图像文件
点击浏览按钮打开文件对话框选择BMP图像文件，得到文件所在的路径目录。
关键代码如下：
char szFilter[] = "BMP Files (*.bmp)|*.bmp|All Files (*.*)|*.*||";
CFileDialog dlg( TRUE,"BMP",NULL,OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,szFilter );
if(dlg.DoModal() == IDOK)
{
    CString strPathName = dlg.GetPathName();                
}

2、加载BMP文件到内存
通过得到的BMP图像文件路径目录，加载BMP图像文件到内存中。
关键代码如下：
BOOL CShowBMPDlg::LoadShowBMPFile(const char *pPathname)
{
    CFile file;
    if( !file.Open( pPathname, CFile::modeRead) )
        return FALSE;
    DWORD            m_nFileLen;
    m_nFileLen = file.GetLength();
    m_pBMPBuffer = new char[m_nFileLen + 1];
    if(!m_pBMPBuffer)
        return FALSE;
    if(file.ReadHuge(m_pBMPBuffer,m_nFileLen) != m_nFileLen)
        return FALSE;
    return TRUE;
}

3、将内存中的BMP文件内容转换到HBITMAP
将内存中的BMP文件内容转换成位图句柄。
关键代码如下：
HBITMAP CShowBMPDlg::BufferToHBITMAP()
{
    HBITMAP                hShowBMP;
    LPSTR                hDIB,lpBuffer = m_pBMPBuffer;
    LPVOID                lpDIBBits;
    BITMAPFILEHEADER     bmfHeader;
    DWORD                bmfHeaderLen;
    
    bmfHeaderLen = sizeof(bmfHeader);
    strncpy((LPSTR)&bmfHeader,(LPSTR)lpBuffer,bmfHeaderLen);

    if (bmfHeader.bfType != (*(WORD*)"BM")) return NULL;
    hDIB = lpBuffer + bmfHeaderLen;
    BITMAPINFOHEADER &bmiHeader = *(LPBITMAPINFOHEADER)hDIB ;
    BITMAPINFO &bmInfo = *(LPBITMAPINFO)hDIB ;

    lpDIBBits=(lpBuffer)+((BITMAPFILEHEADER *)lpBuffer)->bfOffBits;
    CClientDC dc(this);
    hShowBMP = CreateDIBitmap(dc.m_hDC,&bmiHeader,CBM_INIT,lpDIBBits,&bmInfo,DIB_RGB_COLORS);
    return hShowBMP;
}

4、在屏幕上显示BMP图像
双缓冲实现BMP位图显示在屏幕上。
关键代码如下：
void CShowBMPDlg::DrawImage(int x, int y, CDC *pDC)
{
    HBITMAP OldBitmap;
    CDC MemDC;
    MemDC.CreateCompatibleDC(pDC);
    OldBitmap=(HBITMAP)MemDC.SelectObject(m_hBitmap);

    CRect rect;
    GetClientRect(&rect);    
    pDC->BitBlt(x,y,rect.Width(),rect.Height(),&MemDC,0,0,SRCCOPY);
    MemDC.SelectObject(OldBitmap);
}

以上是本人对位图显示资料的一个整理，对你而言也许很简单，但这只是我个人的一个整理总结。一方面整理总结一个自己认为不错的知识点，另一方面也希望能够帮助一些需要帮助的人。

具体的程序请参考附带的例子，例子里面有详细的注释。

源代码 请到转载的网上下载(www.vclife.net)

]]> <![CDATA[美化VC界面(用户登录界面)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=14373 joinclear 2006/5/13 17:45:16 转载自: http://www.vclife.net/articles/article_view.asp?atlid=8

VC开发程序单调的界面相信大家都是深有感触，提到界面美化编程，人们都会说做界面不要用VC写，太难了。
一句俗语：难者不会，会者不难。VC的美化界面编程并没有人们想像的那么难。这篇文章是我写的一个用户登录界面，但界面被我美化了，我将一步一步的来讲解它的美化界面的实现步骤。相信有了这篇文章，你的VC界面从此也能绚丽多彩。

实现步骤：

第一步：美化界面的非客户区(重绘标题栏和界面边框)。
关键代码如下：
// 函 数 名：DrawTitleBar
// 功能描述：绘制标题栏、边框颜色，绘制标题内容、图标和按钮
// 输入参数：pDC：设备指针
// 输出参数：void
// 创建日期：2006-2-20
// 修改日期：2006-2-20
// 作 者：joinclear
// 附加说明：无
void CTitleBarColorDlg::DrawTitleBar(CDC *pDC)
{
    if (m_hWnd)
    {
        CBrush Brush(RGB(187,200,143));
        CBrush* pOldBrush = pDC->SelectObject(&Brush);

        CRect rtWnd, rtTitle, rtButtons;
        GetWindowRect(&rtWnd);
        
        //取得标题栏的位置
         //SM_CXFRAME 窗口边框的边缘宽度
         //SM_CYFRAME 窗口边框的边缘高度
         //SM_CXSIZE 窗口标题栏宽度
          //SM_CYSIZE 窗口标题栏高度
        rtTitle.left = GetSystemMetrics(SM_CXFRAME);
        rtTitle.top = GetSystemMetrics(SM_CYFRAME);
        rtTitle.right = rtWnd.right - rtWnd.left - GetSystemMetrics(SM_CXFRAME);
        rtTitle.bottom = rtTitle.top + GetSystemMetrics(SM_CYSIZE);

        CPoint point;
        //填充顶部框架
        point.x = rtWnd.Width();                        
        point.y = GetSystemMetrics(SM_CYSIZE) + GetSystemMetrics(SM_CYFRAME) + 0;
        pDC->PatBlt(0, 0, point.x, point.y, PATCOPY);
        //填充左侧框架
        point.x = GetSystemMetrics(SM_CXFRAME) -1;
        point.y = rtWnd.Height()- 1;
        pDC->PatBlt(0, 0, point.x, point.y, PATCOPY);
        //填充底部框架
        point.x = rtWnd.Width();
        point.y = GetSystemMetrics(SM_CYFRAME);
        pDC->PatBlt(0, rtWnd.Height()-point.y, point.x, point.y, PATCOPY);
        //填充右侧框架
        point.x = GetSystemMetrics(SM_CXFRAME);
        point.y = rtWnd.Height();
        pDC->PatBlt(rtWnd.Width()-point.x, 0, point.x, point.y, PATCOPY);        
        
        //重画标题栏图标
        m_rtIcon.left = rtTitle.left ;
        m_rtIcon.top = rtTitle.top;
        m_rtIcon.right = m_rtIcon.left + 16;
        m_rtIcon.bottom = m_rtIcon.top + 15;
        ::DrawIconEx(pDC->m_hDC, m_rtIcon.left, m_rtIcon.top, AfxGetApp()->LoadIcon(IDR_MAINFRAME),
            m_rtIcon.Width(), m_rtIcon.Height(), 0, NULL, DI_NORMAL);
        m_rtIcon.OffsetRect(rtWnd.TopLeft());
    
        CBitmap* pBitmap = new CBitmap;
        CBitmap* pOldBitmap;
        CDC* pDisplayMemDC=new CDC;
        pDisplayMemDC->CreateCompatibleDC(pDC);
        
        //重画关闭button
        rtButtons.left = rtTitle.right - 16;
        rtButtons.top = rtTitle.top - 1;
        rtButtons.right = rtButtons.left + 16;
        rtButtons.bottom = rtButtons.top + 15;
        pBitmap->LoadBitmap(IDB_EXIT_FOCUS);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButtons.left, rtButtons.top, rtButtons.Width(), rtButtons.Height(), pDisplayMemDC, 0,

0, SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        m_rtButtExit = rtButtons;
        m_rtButtExit.OffsetRect(rtWnd.TopLeft());
        pBitmap->DeleteObject();
        
        //重画最大化/恢复button
        rtButtons.right = rtButtons.left - 3;
        rtButtons.left = rtButtons.right - 16;
        if (IsZoomed())
            pBitmap->LoadBitmap(IDB_RESTORE_NORMAL);
        else
            pBitmap->LoadBitmap(IDB_MAX_NORMAL);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButtons.left, rtButtons.top, rtButtons.Width(), rtButtons.Height(), pDisplayMemDC, 0,

0, SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        m_rtButtMax = rtButtons;
        m_rtButtMax.OffsetRect(rtWnd.TopLeft());
        pBitmap->DeleteObject();
        
        //重画最小化button
        rtButtons.right = rtButtons.left - 3;
        rtButtons.left = rtButtons.right - 16;
        pBitmap->LoadBitmap(IDB_MIN_NORMAL);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButtons.left, rtButtons.top, rtButtons.Width(), rtButtons.Height(), pDisplayMemDC, 0,

0, SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        m_rtButtMin = rtButtons;
        m_rtButtMin.OffsetRect(rtWnd.TopLeft());
        pBitmap->DeleteObject();

        //重画caption
        int nOldMode = pDC->SetBkMode(TRANSPARENT);
        COLORREF clOldText=pDC->SetTextColor(RGB(255, 255, 255));
        
        CFont m_captionFont;
        m_captionFont.CreateFont(
            18, // 字体的高度            
            0, // 字体的宽度
            0, // 字体显示的角度
            0, // 字体的角度
            FW_BOLD, // 字体的磅数
            FALSE, // 斜体字体
            FALSE, // 带下划线的字体
            0, // 带删除线的字体
            ANSI_CHARSET, // 所需的字符集
            OUT_DEFAULT_PRECIS, // 输出的精度
            CLIP_DEFAULT_PRECIS, // 裁减的精度
            DEFAULT_QUALITY, // 逻辑字体与输出设备的实际字体之间的精度
            DEFAULT_PITCH | FF_SWISS, // 字体间距和字体集
            _T("Arial")); // 字体名称
            
        CFont* pOldFont = NULL;            
        pOldFont = pDC->SelectObject(&m_captionFont);
        
        rtTitle.left += m_rtIcon.Width ()+3;
        rtTitle.top = rtTitle.top;
        rtTitle.bottom = rtTitle.top + 30;
        CString m_strTitle;
        GetWindowText(m_strTitle);
        pDC->DrawText(m_strTitle, &rtTitle, DT_LEFT);
        pDC->SetBkMode(nOldMode);
        pDC->SetTextColor(clOldText);
        
        ReleaseDC(pDisplayMemDC);
        delete pDisplayMemDC;
        delete pBitmap;
    }
}

还有在非客户区 绘制鼠标的消息。分别为：
void CTitleBarColorDlg::OnNcLButtonDown(UINT nHitTest, CPoint point)
{
    if (m_rtButtExit.PtInRect(point)) //关闭
        SendMessage(WM_CLOSE);
    else if (m_rtButtMin.PtInRect(point)) //最小化
        SendMessage(WM_SYSCOMMAND, SC_MINIMIZE, MAKELPARAM(point.x, point.y));
    else if (m_rtButtMax.PtInRect(point))
    {
        if (IsZoomed()) //最大化
        {
            SendMessage(WM_SYSCOMMAND, SC_RESTORE, MAKELPARAM(point.x, point.y));
            CRect rtWnd;
            GetWindowRect(&rtWnd);
            CRgn rgn;
            rgn.CreateRoundRectRgn(0,0,rtWnd.Width(),rtWnd.Height(),5,5);
            SetWindowRgn((HRGN)rgn,true);
            Invalidate();
        }
        else
        {
            SendMessage(WM_SYSCOMMAND, SC_MAXIMIZE, MAKELPARAM(point.x, point.y));
            
            CRect rtWnd;
            GetWindowRect(&rtWnd);
            CRgn rgn;
            rgn.CreateRoundRectRgn(0,0,rtWnd.Width(),rtWnd.Height(),5,5);
            SetWindowRgn((HRGN)rgn,true);
            Invalidate();
        }
    }
    else if (!IsZoomed())
        Default();
}
void CTitleBarColorDlg::OnNcMouseMove(UINT nHitTest, CPoint point)
{
    CWindowDC dc(this);
    CWindowDC* pDC = &dc;
    CDC* pDisplayMemDC=new CDC;
    pDisplayMemDC->CreateCompatibleDC(pDC);
    CBitmap* pBitmap = new CBitmap;
    CBitmap* pOldBitmap;
    CRect rtWnd, rtButton;
    
    if (pDC)
    {
        GetWindowRect(&rtWnd);
        
        //关闭button
        if (m_rtButtExit.PtInRect(point))
            pBitmap->LoadBitmap(IDB_EXIT_NORMAL);
        else
            pBitmap->LoadBitmap(IDB_EXIT_FOCUS);
        rtButton = m_rtButtExit;
        rtButton.OffsetRect(-rtWnd.left, -rtWnd.top);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButton.left, rtButton.top, rtButton.Width(), rtButton.Height(), pDisplayMemDC, 0, 0,

SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        pBitmap->DeleteObject();
        
        //最大化/恢复button
        if (m_rtButtMax.PtInRect(point))
        {
            if (IsZoomed())
                pBitmap->LoadBitmap(IDB_RESTORE_FOCUS);
            else
                pBitmap->LoadBitmap(IDB_MAX_FOCUS);
        }
        else
        {
            if (IsZoomed())
                pBitmap->LoadBitmap(IDB_RESTORE_NORMAL);
            else
                pBitmap->LoadBitmap(IDB_MAX_NORMAL);
        }
        rtButton = m_rtButtMax;
        rtButton.OffsetRect(-rtWnd.left, -rtWnd.top);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButton.left, rtButton.top, rtButton.Width(), rtButton.Height(), pDisplayMemDC, 0, 0,

SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        pBitmap->DeleteObject();
        
        //最小化button
        if (m_rtButtMin.PtInRect(point))
            pBitmap->LoadBitmap(IDB_MIN_FOCUS);
        else
            pBitmap->LoadBitmap(IDB_MIN_NORMAL);
        rtButton = m_rtButtMin;
        rtButton.OffsetRect(-rtWnd.left, -rtWnd.top);
        pOldBitmap=(CBitmap*)pDisplayMemDC->SelectObject(pBitmap);
        pDC->BitBlt(rtButton.left, rtButton.top, rtButton.Width(), rtButton.Height(), pDisplayMemDC, 0, 0,

SRCCOPY);
        pDisplayMemDC->SelectObject(pOldBitmap);
        pBitmap->DeleteObject();
        
    }
    
    pDisplayMemDC->DeleteDC();
    
    delete pDisplayMemDC;
    delete pBitmap;

    CDialog::OnNcMouseMove(nHitTest, point);
}
大部分实现如上代码所示具体实现请参照程序附带的源代码。

第二步：改变窗口边框为圆角。
关键代码如下：
int CTitleBarColorDlg::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
    if (CDialog::OnCreate(lpCreateStruct) == -1)
        return -1;

    CRect rtWnd;
    GetWindowRect(&rtWnd);
    
    CRgn rgn;
    rgn.CreateRoundRectRgn(0,0,rtWnd.Width(),rtWnd.Height(),5,5);
    SetWindowRgn((HRGN)rgn,true);

    return 0;
}

第三步：填充背景。
关键代码如下：
BOOL CTitleBarColorDlg::OnEraseBkgnd(CDC* pDC)
{
    BOOL retValue= CDialog::OnEraseBkgnd(pDC);

    CRect rc;
    GetClientRect(&rc);
    pDC->FillSolidRect(&rc,RGB(236,233,216));
    
    return retValue;
}

第四步：绘制按钮。
具体请参考源代码中类CXPButton.h、CXPButton.cpp

第五步：绘制编辑框。
具体请参考源代码中类COwnerEdit.h、COwnerEdit.cpp

第六步：绘制静态字体和颜色。
这一步本来也写了一个类的，但想想用OnCtlColor()还是能很好的实现的，就没写。具体实现请看OnCtlColor()中的实现。

以上代码具体实现的细节问题，你可以下载例子代码，仔细查看其源码实现(内有详细注释)。

]]> <![CDATA[从Windows消息的角度看窗口应用程序的运行过程]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11850 joinclear 2006/2/20 13:43:49 http://doc.4kiki.net/content/1/7/200505/01/0cb2559898848981.html
一个典型的Win32窗口应用程序的框架是这样的：
    程序入口点（WinMain函数）－－>注册窗口类（调用RegisterClass函数或RegisterClassEx函数）－－>创建主窗口（调用CreateWindow函数或CreateWindowEx函数）－－>显示主窗口（调用ShowWindow函数）－－>更新主窗口（调用UpdateWindow函数）－－>进入消息循环（GetMessage、TranslateMessage、DispatchMessage）并处理各种Windows消息（窗口过程函数）－－>程序出口点（WinMain返回）。就像下面这个例子一样：

#include<windows.h>
#include<tchar.h>
//窗口类名和窗口标题
TCHAR szWindowClass[]=_T("HELLOWINDOWS");
TCHAR szWindowTitle[]=_T("This is the MAIN window");
//窗口过程函数
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
 //LogMessage(logfile,msg,wParam,lParam);//
 switch(msg)
 {
 case WM_DESTROY:
  PostQuitMessage(0);
  return 0;
 default:
  return DefWindowProc(hWnd,msg,wParam,lParam);
 }
}

int WINAPI _tWinMain( HINSTANCE hInstance,HINSTANCE,LPTSTR lpCmdLine,int nCmdShow)
{
 //注册窗口类
 WNDCLASSEX wcex;
 wcex.cbSize   = sizeof(WNDCLASSEX);
 wcex.style  = CS_HREDRAW | CS_VREDRAW;
 wcex.lpfnWndProc = (WNDPROC)WndProc;
 wcex.cbClsExtra  = 0;
 wcex.cbWndExtra  = 0;
 wcex.hInstance  = hInstance;
 wcex.hIcon   = NULL;
 wcex.hCursor  = LoadCursor(NULL, IDC_ARROW);
 wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
 wcex.lpszMenuName = NULL;
 wcex.lpszClassName = szWindowClass;
 wcex.hIconSm  = NULL;
 RegisterClassEx(&wcex);
 //创建主窗口
 HWND hWnd = CreateWindowEx(0,szWindowClass, szWindowTitle, WS_OVERLAPPEDWINDOW,
  128, 96, 512, 480, HWND_DESKTOP, NULL, hInstance, NULL);
 
 if (!hWnd)
  return FALSE;
 //显示并更新主窗口
 ShowWindow(hWnd,nCmdShow);
 UpdateWindow(hWnd);
 // 进入消息循环
 MSG msg;
 while (GetMessage(&msg, NULL, 0, 0))
 {
  TranslateMessage(&msg);
  DispatchMessage(&msg);
 }
 return msg.wParam;
 //程序退出
}

    这个例子很十分简单，只是显示一个窗口就完事了；不过麻雀虽小，五脏俱全，它基本上可以作为一个Win32窗口程序的框架了。
下面来看它的窗口过程WndProc,它只处理了一个消息：WM_DESTROY，其余的消息都交给了Windows去处理（调用DefWindowProc）。对于一个实际的Windows程序来说，要在窗口过程中处理的消息会很多；然而Windows消息成百上千，无论你处理多少消息，剩下的你还是得调用DefWindowProc交给Windows系统去处理。这次我们就来看看，从程序启动到退出，DefWindowProc到底要帮我们做多少的工作。
    实验的思想很简单，把所有传递给窗口过程的消息都记录在一个Log文件中，我们就可以察看在一个程序的生命过程中的所有消息了。在上面的例子中，我们在窗口函数WndProc的最开始调用一个方法（形如注释掉的那一行：LogMessage(logfile,msg,wParam,lParam)），把传递来的消息类型，WPARAM参数，LPARAM参数顺序都记录下来，就会形成一个WIndows消息Log文件了。
    下面是两次实验的结果（假设上面的例子编译后得到HelloWin.EXE）：
     实验一：在文件管理其中选中HelloWin.EXE，按回车键启动，显示主窗口后马上按下ALT+F4把它关闭，得到的LOG文件如下：

时间                   消息码        参数                 参数                  描述
HH:MM:SS.MSS    MSG       WPARAM        LPARAM         DECRIPTION
03:21:39.187    0x0024    0x00000000    0x0012F910     WM_GETMINMAXINFO  获取最大化最小化信息
03:21:39.187    0x0081    0x00000000    0x0012F908     WM_NCCREATE  窗口非客户区被创建
03:21:39.187    0x0083    0x00000000    0x0012F930     WM_NCCALCSIZE  计算非客户区的大小
（WPARAM：FALSE->不必指出窗口客户区的有效区域）
03:21:39.187    0x0001    0x00000000    0x0012F8D4     WM_CREATE  主窗口被创建
03:21:39.187    0x0018    0x00000001    0x00000000     WM_SHOWWINDOW  
（WPARAM：TRUE->显示窗口 LPARAM：0->指出这个消息是调用ShowWindow函数发来的）
03:21:39.187    0x0046    0x00000000    0x0012FEB0     WM_WINDOWPOSCHANGING 窗口位置（包括大小）正在改变
03:21:39.203    0x001C    0x00000001    0x00000584     WM_ACTIVATEAPP  窗口进程激活状态改变
（WPARAM：TRUE->Activate激活 LPARAM：线程ID=0x0584）
03:21:39.203    0x0086    0x00000001    0x00000000     WM_NCACTIVATE  非客户区的激活状态需要改变
（WPARAM：TRUE->Activate激活）
03:21:39.203    0x007F    0x00000002    0x00000000     WM_GETICON  获取小图标2
（WPARAM：2---->ICON_SMALL2）
03:21:39.203    0x007F    0x00000000    0x00000000     WM_GETICON  获取小图标
（WPARAM：0---->ICON_SMALL）
03:21:39.203    0x007F    0x00000001    0x00000000     WM_GETICON  获取大图标
（WPARAM：1---->ICON_BIG）
03:21:39.203    0x0006    0x00000001    0x00000000     WM_ACTIVATE  窗口激活状态改变
（WPARAM：1---->WA_ACTIVE激活）
03:21:39.203    0x0281    0x00000001    0xC000000F     WM_IME_SETCONTEXT 输入法TRUE->Active 
03:21:39.203    0x0282    0x00000002    0x00000000     WM_IME_NOTIFY  输入法IMN_OPENSTATUSWINDOW
03:21:39.203    0x0007    0x00000000    0x00000000     WM_SETFOCUS  窗口获得输入焦点
03:21:39.218    0x0085    0x00000001    0x00000000     WM_NCPAINT  非客户区需要重画
（WPARAM：1---->整个窗口（Window Frame）都需要重画
03:21:39.218    0x0014    0x0101005D    0x00000000     WM_ERASEBKGND  擦除背景
03:21:39.218    0x0047    0x00000000    0x0012FEB0     WM_WINDOWPOSCHANGED 窗口位置（包括大小）已经改变
03:21:39.218    0x0083    0x00000001    0x0012FAEC     WM_NCCALCSIZE  计算非客户区的大小
（WPARAM：TRUE->NCCALCSIZE_PARAMS参数有效（根据该参数来计算重画区域）
03:21:39.218    0x0085    0x00000001    0x00000000     WM_NCPAINT  非客户区需要重画
（WPARAM：1---->整个窗口（Window Frame）都需要重画
03:21:39.218    0x0014    0x890109B8    0x00000000     WM_ERASEBKGND  擦除背景
03:21:39.218    0x0005    0x00000000    0x01BE01F8     WM_SIZE   窗口大小已经改变
（WPARAM：0->SIZE_RESTORED 既不是最大化也不是最小化（MSDN如此说……））
03:21:39.218    0x0003    0x00000000    0x007E0084     WM_MOVE   窗口已被移动
（LPARAM：x=84[132] y=7e[126] 指出了窗口客户区的新坐标）
03:21:39.218    0x000F    0x00000000    0x00000000     WM_PAINT   窗口客户区需要重画
03:21:39.218    0x007F    0x00000002    0x00000000     WM_GETICON  2---->ICON_SMALL2
03:21:39.218    0x007F    0x00000000    0x00000000     WM_GETICON  0---->ICON_SMALL
03:21:39.218    0x007F    0x00000001    0x00000000     WM_GETICON  1---->ICON_BIG
===================================================================================
03:21:39.375    0x0101    0x0000000D    0xC01C0001     WM_KEYUP   键盘有按键被按下
（WPARAM：0D--->VK_RETURN（回车键） LPARAM：RECNT:1;SCCODE:1C;NON-EXKEY）
03:21:41.000    0x0104    0x00000012    0x20380001     WM_SYSKEYDOWN  系统键被按下
（WPARAM：12--->VK_MENU（ALT键）    LPARAM：RECNT:1;SCCODE:38;ALT-DOWN）
03:21:41.609    0x0104    0x00000073    0x203E0001     WM_SYSKEYDOWN  系统键被按下
（WPARAM：73--->VK_F4（F4键）     LPARAM：RECNT:1;SCCODE:3E;ALT-DOWN（ALT键同时被按下））
=======================================================================================
03:21:41.609    0x0112    0x0000F060    0x00000000     WM_SYSCOMMAND  系统命令
（WPARAM：F060->SC_CLOSE）
03:21:41.609    0x0010    0x00000000    0x00000000     WM_CLOSE   窗口需要被关闭
03:21:41.609    0x0046    0x00000000    0x0012F8A0     WM_WINDOWPOSCHANGING 窗口位置（包括大小）正在改变
03:21:41.609    0x0047    0x00000000    0x0012F8A0     WM_WINDOWPOSCHANGED 窗口位置（包括大小）已经改变
03:21:41.609    0x0086    0x00000000    0x00000000     WM_NCACTIVATE  窗口非客户区激活状态改变
（WPARAM：FALSE->InActivate非激活状态）
03:21:41.625    0x0006    0x00000000    0x00000000     WM_ACTIVATE  窗口激活状态改变
（WPARAM：0----->WA_INACTIVATE非激活状态）
03:21:41.625    0x001C    0x00000000    0x00000584     WM_ACTIVATEAPP  窗口进程激活状态改变
（WPARAM：FALSE->InActivate   TID=0584）
03:21:41.625    0x0008    0x00000000    0x00000000     WM_KILLFOCUS  窗口失去输入焦点
03:21:41.625    0x0281    0x00000000    0xC000000F     WM_IME_SETCONTEXT 输入法FALSE->InActivate
03:21:41.625    0x0282    0x00000001    0x00000000     WM_IME_NOTIFY  输入法IMN_CLOSESTATUSWINDOW
03:21:41.625    0x0002    0x00000000    0x00000000     WM_DESTROY  窗口被销毁 
03:21:41.625    0x0082    0x00000000    0x00000000     WM_NCDESTROY  窗口非客户区被销毁

   实验二：在文件管理其中用鼠标双击HelloWin.EXE启动程序，显示主窗口后马上移动鼠标到窗口右上角的关闭按钮把它关闭，得到的LOG文件如下：

时间                    消息码       参数                   参数                 描述
HH:MM:SS.MSS    MSG       WPARAM        LPARAM         DECRIPTION
04:29:01.421    0x0024    0x00000000    0x0012F910     WM_GETMINMAXINFO
04:29:01.421    0x0081    0x00000000    0x0012F908     WM_NCCREATE
04:29:01.421    0x0083    0x00000000    0x0012F930     WM_NCCALCSIZE
04:29:01.421    0x0001    0x00000000    0x0012F8D4     WM_CREATE
04:29:01.421    0x0018    0x00000001    0x00000000     WM_SHOWWINDOW
04:29:01.421    0x0046    0x00000000    0x0012FEB0     WM_WINDOWPOSCHANGING
04:29:01.437    0x001C    0x00000001    0x00000584     WM_ACTIVATEAPP
04:29:01.437    0x0086    0x00000001    0x00000000     WM_NCACTIVATE
04:29:01.437    0x007F    0x00000002    0x00000000     WM_GETICON
04:29:01.437    0x007F    0x00000000    0x00000000     WM_GETICON
04:29:01.437    0x007F    0x00000001    0x00000000     WM_GETICON
04:29:01.437    0x0006    0x00000001    0x00000000     WM_ACTIVATE
04:29:01.437    0x0281    0x00000001    0xC000000F     WM_IME_SETCONTEXT
04:29:01.437    0x0282    0x00000002    0x00000000     WM_IME_NOTIFY
04:29:01.437    0x0007    0x00000000    0x00000000     WM_SETFOCUS
04:29:01.437    0x0085    0x00000001    0x00000000     WM_NCPAINT
04:29:01.437    0x0014    0x840108B2    0x00000000     WM_ERASEBKGND
04:29:01.437    0x0047    0x00000000    0x0012FEB0     WM_WINDOWPOSCHANGED
04:29:01.437    0x0083    0x00000001    0x0012FAEC     WM_NCCALCSIZE
04:29:01.437    0x0085    0x00000001    0x00000000     WM_NCPAINT
04:29:01.437    0x0014    0x0F01093A    0x00000000     WM_ERASEBKGND
04:29:01.437    0x0005    0x00000000    0x01BE01F8     WM_SIZE
04:29:01.437    0x0003    0x00000000    0x007E0084     WM_MOVE
04:29:01.437    0x000F    0x00000000    0x00000000     WM_PAINT
04:29:01.437    0x007F    0x00000002    0x00000000     WM_GETICON
04:29:01.437    0x007F    0x00000000    0x00000000     WM_GETICON
04:29:01.437    0x007F    0x00000001    0x00000000     WM_GETICON
========================================================================================
04:29:01.828    0x0084    0x00000000    0x009E0266     WM_NCHITTEST 光标移动或鼠标键被按下 
（LPARAM：当前光标位置（相对于屏幕左上角）x=0266[614] y=009E[236]）
04:29:01.828    0x0020    0x00A40268    0x02000001     WM_SETCURSOR 鼠标导致的光标移动
（LPARAM：Hit-Test码:01->HTCLIENT在客户区 鼠标消息码:0200->MOUSEMOVE鼠标移动）
04:29:01.828    0x0200    0x00000000    0x002001E2     WM_MOUSEMOVE 鼠标移动
（LPARAM：鼠标当前位置 x=01E2[482] y=0020[32]）
*************此处省略N个[WM_NCHITTEST-WM_SETCURSOR-WM_MOUSEMOVE]消息***************
04:29:01.984    0x0084    0x00000000    0x007F0268     WM_NCHITTEST 
（LPARAM：当前光标位置（相对于屏幕左上角）x=0268[616] y=007F[127]）
04:29:01.984    0x0020    0x00A40268    0x02000001     WM_SETCURSOR 
（LPARAM：Hit-Test码:01->HTCLIENT在客户区 鼠标消息码:0200->MOUSEMOVE鼠标移动）
04:29:01.984    0x0200    0x00000000    0x000101E4     WM_MOUSEMOVE 
（LPARAM：鼠标当前位置x=01E4[484] y=0001[1]）
04:29:02.000    0x0084    0x00000000    0x007D0269     WM_NCHITTEST 
（LPARAM：当前光标位置（相对于屏幕左上角）x=0269[617] y=007D[125]）
04:29:02.000    0x0020    0x00A40268    0x02000002     WM_SETCURSOR 鼠标导致的光标移动
（LPARAM：Hit-Test码:02->HTCAPTION在标题区 鼠标消息码:0200->MOUSEMOVE鼠标移动）
04:29:02.000    0x00A0    0x00000002    0x007D0269     WM_NCMOUSEMOVE 非客户区的鼠标移动
（WPARAM：Hit-Test码:02->HTCAPTION LPARAM：光标位置：x=0269[617] y=007D[125]）
************此处省略N个[WM_NCHITTEST-WM_SETCURSOR-WM_MOUSEMOVE]消息******************
04:29:02.234    0x0084    0x00000000    0x0075026D     WM_NCHITTEST 
（LPARAM：当前光标位置（相对于屏幕左上角）x=026D[621] y=0075[117]）
04:29:02.234    0x0020    0x00A40268    0x02000014     WM_SETCURSOR 
（LPARAM：Hit-Test码:14->HTTOPRIGHT在右上角 鼠标消息码:0200->MOUSEMOVE鼠标移动）
04:29:02.234    0x00A0    0x00000014    0x0075026D     WM_NCMOUSEMOVE 
（WPARAM：Hit-Test码:14->HTTOPRIGHT     LPARAM：光标位置：x=026D[621] y=0075[117]
04:29:02.296    0x0084    0x00000000    0x0075026D     WM_NCHITTEST 
（LPARAM：当前光标位置（相对于屏幕左上角）x=026D[621] y=0075[117]）
04:29:02.296    0x0020    0x00A40268    0x02010014     WM_SETCURSOR 
（LPARAM：Hit-Test码:14->HTTOPRIGHT在右上角 鼠标消息码:0201->LBUTTONDOWN 鼠标左键被按下
04:29:02.296    0x00A1    0x00000014    0x0075026D     WM_NCLBUTTONDOWN  鼠标左键在非客户区按下
（LPARAM：当前光标位置（相对于屏幕左上角）x=026D[621] y=0075[117]）
04:29:02.484    0x0215    0x00000000    0x00000000     WM_CAPTURECHANGED   正在失去鼠标捕获
（LPARAM：0---->HWND_DESKTOP 桌面将要获得鼠标）
===========================================================================================
04:29:02.484    0x0112    0x0000F060    0x0075026D     WM_SYSCOMMAND F060-->SC_CLOSE
04:29:02.484    0x0010    0x00000000    0x00000000     WM_CLOSE
04:29:02.484    0x0046    0x00000000    0x0012F5E4     WM_WINDOWPOSCHANGING
04:29:02.484    0x0047    0x00000000    0x0012F5E4     WM_WINDOWPOSCHANGED
04:29:02.484    0x0086    0x00000000    0x00000000     WM_NCACTIVATE
04:29:02.484    0x0006    0x00000000    0x00000000     WM_ACTIVATE
04:29:02.484    0x001C    0x00000000    0x00000584     WM_ACTIVATEAPP
04:29:02.484    0x0008    0x00000000    0x00000000     WM_KILLFOCUS
04:29:02.484    0x0281    0x00000000    0xC000000F     WM_IME_SETCONTEXT
04:29:02.484    0x0282    0x00000001    0x00000000     WM_IME_NOTIFY
04:29:02.484    0x0002    0x00000000    0x00000000     WM_DESTROY
04:29:02.484    0x0082    0x00000000    0x00000000     WM_NCDESTROY
     在实验二中，打星号（*）的部分省略了很多个[WM_NCHITTEST-WM_SETCURSOR-WM_MOUSEMOVE]消息，鼠标移动过程中它们一直产生，唯一不同的是指示的鼠标位置不同。
     由上两个LOG文件记录的Windows消息可以对比看出，从我们开始启动程序（无论是从键盘还是鼠标双击启动）到主窗口最终显示在我们面前，Windows已经处理了从开始的WM_GETMINMAXINFO消息到第一条双划线前的WM_GETICON消息；而从我们关闭一个窗口（无论是按下ALT+F4还是鼠标点击“关闭”按钮）到程序最后退出，Windows要处理从第二条双划线后的WM_SYSCOMMAND到最后的WM_NCDESTROY消息。而程序在运行过程中产生的消息在两条双划线之间（有上面两个LOG文件可以看出区别来，跟程序的行为相关的）。值得一提的是程序最后收到的一条消息WM_QUIT，是由PostQuitMessage函数发送的，在消息循环中被GetMessage捕获,GetMessage函数捕获到WM_QUIT消息之后返回FALSE，于是WinMain函数退出消息循环，是不交给窗口过程去处理的，所以上面没有记录下来；之后程序便退出了。
     在写windows程序的时候，我们也可以通过记录windows消息的方式去调试程序的，至于怎么来我就不罗嗦啦：）


]]> <![CDATA[CToolBar(工具条控制的主要功能)]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11750 joinclear 2006/2/15 15:53:14 http://dev.csdn.net/develop/article/25/25505.shtm

]]> <![CDATA[SQL Server导出导入数据方法]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11749 joinclear 2006/2/15 15:20:45 http://www.programfan.com/club/showbbs.asp?id=123211

]]> <![CDATA[一个SQL的排序问题]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11522 joinclear 2006/2/5 16:15:00 问题：

table1
------------------------------------
f1    f2
aa     t
aa     h
bb     h
bb     f
bb     f
cc     f
cc     f
cc     w
cc     rrr

求结果如下 (sql 2000中）
------------------------------------
f1     f2    f3
aa     t      1
aa     h      2
bb     h      1
bb     f      2
bb     f      3
cc     f      1
cc     f      2
cc     w      3
cc     rrr    4

方法：用临时表实现如下：

select * ,IDENTITY(smallint, 1, 1) as Seq into Table1Tmp from Table1 order by f1

select a.f1,a.f2,b.Max-a.Seq+1 as f3 from Table1Tmp a,
(select f1,Max(Seq)as Max,Min(Seq) as Min from Table1Tmp group by f1) b
 where a.f1=b.f1 order by a.f1,f3

]]> <![CDATA[远程连接sql server 2000服务器的解决方案]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11416 joinclear 2006/1/24 14:59:49 远程连接sql server 2000服务器的解决方案
 
解决方案步骤：
一 看ping 服务器IP能否ping通。
   这个实际上是看和远程sql server 2000服务器的物理连接是否存在。如果不行，请检查网络，查看配置，当然得确保远程sql server 2000服务器的IP拼写正确。
二 在Dos或命令行下输入telnet 服务器IP 端口，看能否连通。
如telnet 202.114.100.100 1433
通常端口值是1433，因为1433是sql server 2000的对于Tcp/IP的默认侦听端口。如果有问题，通常这一步会出问题。通常的提示是“……无法打开连接,连接失败"。
如果这一步有问题，应该检查以下选项。
   1 检查远程服务器是否启动了sql server 2000服务。如果没有，则启动。
   2 检查服务器端有没启用Tcp/IP协议，因为远程连接（通过因特网）需要靠这个协议。检查方法是，在服务器上打开 开始菜单->程序->Microsoft SQL Server->服务器网络实用工具，看启用的协议里是否有tcp/ip协议，如果没有，则启用它。
   3 检查服务器的tcp/ip端口是否配置为1433端口。仍然在服务器网络实用工具里查看启用协议里面的tcp/ip的属性，确保默认端口为1433，并且隐藏服务器复选框没有勾上。
     事实上，如果默认端口被修改，也是可以的，但是在客户端做telnet测试时，写服务器端口号时必须与服务器配置的端口号保持一致。如果隐藏服务器复选框被勾选，则意味着客户端无法通过枚举服务器来看到这台服务器，起到了保护的作用，但不影响连接，但是Tcp/ip协议的默认端口将被隐式修改为2433，在客户端连接时必须作相应的改变。
   4 如果服务器端操作系统打过sp2补丁，则要对windows防火墙作一定的配置，要对它开放1433端口，通常在测试时可以直接关掉windows防火墙（其他的防火墙也关掉最好）。
   5 检查服务器是否在1433端口侦听。如果服务器没有在tcp连接的1433端口侦听，则是连接不上的。检查方法是在服务器的dos或命令行下面输入 netstat -a -n 或者是netstat -an，在结果列表里看是否有类似 tcp   127.0.0.1 1433   listening 的项。如果没有，则通常需要给sql server 2000打上至少sp3的补丁。其实在服务器端启动查询分析器，输入 select @@version 执行后可以看到版本号，版本号在8.0.2039以下的都需要打补丁。
   如果以上都没问题，这时你再做telnet 服务器ip 1433 测试，将会看到屏幕一闪之后光标在左上角不停闪动。恭喜你，你马上可以开始在企业管理器或查询分析器连接了。

三 检查客户端设置
    程序->Microsoft SQL Server-> 客户端网络使用工具。像在服务器网络实用工具里一样，确保客户端tcp/ip协议启用，并且默认端口为1433（或其他端口，与服务器端保持一致就行）。

四 在企业管理器里或查询分析器连接测试
   企业管理器->右键SQlserver组->新建sqlserver注册->下一步->写入远程IP->下一步->选Sqlserver登陆->下一步->写入登陆名与密码（sa,password）->下一步->下一步->完成
   查询分析器->文件->连接->写入远程IP->写入登录名和密码（sa,password）->确定
   通常建议在查询分析器里做，因为默认情况下，通过企业管理器注册另外一台SQL Server的超时设置是4秒，而查询分析器是15秒。
   修改默认连接超时的方法：
     企业管理器->工具->选项->在弹出的"SQL Server企业管理器属性"窗口中，点击"高级"选项卡->连接设置->在 登录超时（秒） 后面的框里输入一个较大的数字
     查询分析器->工具->选项->连接->在 登录超时（秒） 后面的框里输入一个较大的数字
     通常就可以连通了，如果提示错误，则进入下一步。
五  错误产生的原因通常是由于SQL Server使用了"仅 Windows"的身份验证方式，因此用户无法使用SQL Server的登录帐户（如 sa ）进行连接。解决方法如下所示：
  　1 在服务器端使用企业管理器，并且选择"使用 Windows 身份验证"连接上 SQL Server。
　　2 展开"SQL Server组"，鼠标右键点击SQL Server服务器的名称，选择"属性"，再选择"安全性"选项卡。
　　3 在"身份验证"下，选择"SQL Server和 Windows "。
　　4 重新启动SQL Server服务。（在dos或命令行下面net stop mssqlserver停止服务，net start mssqlserver启动服务，也是一种快捷的方法）。

注：在连接本地服务器时，通常使用的是命名管道协议（在服务器网络实用工具里可以看到启用的协议有这个），默认端口是445，因此在本地能连通是不能说明什么问题的，连接远程服务器是完全不同的协议）。

]]> <![CDATA[关于const的一些总结]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11192 joinclear 2006/1/13 9:16:00 http://www.vchelp.net/itbookreview/view_paper.asp?paper_id=1374

]]> <![CDATA[关于inline函数的一此总结]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11191 joinclear 2006/1/13 9:12:32 http://www.vchelp.net/itbookreview/view_paper.asp?paper_id=1397

]]> <![CDATA[C++将DBGrid中数据导出到Word和Excel.mht]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11190 joinclear 2006/1/13 9:08:29 mhtml:file://F:\资料\C++将DBGrid中数据导出到Word和Excel.mht
经常看到有网友发帖子询问如何将DBGrid中的内容导出到Excel或Word文档中，于是笔者花了点时间写了以下两个函数，分别实现将DBGrid中数据导出到Word和Excel文档。需要注意的是DBGrid中的数据并不代表数据库中所有的数据，因为数据集在打开的时候有可能进行了筛选，取决于使用者如何打开这个数据集，总之就是DBGrid中显示多少数据，就导出多少。

　　一、将DBGrid中的内容导出到Word文档

//---------------------------------------------------------------------------
// 将DBGrid中的数据导出到Word文档
//---------------------------------------------------------------------------
void __fastcall DBGrid2Word(TDBGrid *dbg, String strDocFile)
{
　if(!dbg->DataSource->DataSet->Active) // 数据集没有打开就返回
　　return;
　Variant vWordApp, vTable, vCell;
　try
　{
　　vWordApp = Variant::CreateObject("Word.Application");
　}
　catch(...)
　{
　　MessageBox(0, "启动 Word 出错, 可能是没有安装Word.","DBGrid2Word", MB_OK | MB_ICONERROR);
　　vWordApp = Unassigned;
　　return;
　}
　// 隐藏Word界面
　vWordApp.OlePropertySet("Visible", false);
　// 新建一个文档
　vWordApp.OlePropertyGet("Documents").OleFunction("Add");
　Variant vSelect = vWordApp.OlePropertyGet("Selection");
　// 设置一下字体，大小
　vSelect.OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size);
　vSelect.OlePropertyGet("Font").OlePropertySet("Name", dbg->Font->Name.c_str());
　// 要插入表格的行数
　int nRowCount(dbg->DataSource->DataSet->RecordCount + 1);
　nRowCount = nRowCount < 2? 2: nRowCount;
　// 要插入表格的列数
　int nColCount(dbg->Columns->Count);
　nColCount = nColCount < 1? 1: nColCount;
　// 在Word文档中插入与DBGrid行数列数基本相同的一个表格
　vWordApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleProcedure("Add",
　　　vSelect.OlePropertyGet("Range"),
　　　nRowCount, // 行数
　　　nColCount, // 列数
　　　1, // DefaultTableBehavior:=wdWord9TableBehavior
　　　0); // AutoFitBehavior:=wdAutoFitFixed
　// 操作这个表格
　vTable = vWordApp.OlePropertyGet("ActiveDocument").
　OleFunction("Range").OlePropertyGet("Tables").OleFunction("Item", 1);
　// 设置单元格的宽度
　for(int i=0; i<nColCount; i++)
　{
　　int nColWidth = dbg->Columns->Items[i]->Width;
　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1)
　　　　.OlePropertySet("PreferredWidthType", 3); // wdPreferredWidthPoints
　　vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1)
　　　　.OlePropertySet("PreferredWidth", nColWidth);
　}
　// 先将列名写入Word表格
　for(int j=0; j<dbg->Columns->Count; j++)
　{
　　vCell = vTable.OleFunction("Cell", 1, j + 1);
　　vCell.OlePropertySet("Range", dbg->Columns->Items[j]->FieldName.c_str());
　　// 列名单元格背景颜色 // wdColorGray125
　　vCell.OlePropertyGet("Shading").OlePropertySet("BackgroundPatternColor", 14737632);
　}
　// 将DBGrid中的数据写入Word表格
　dbg->DataSource->DataSet->First();
　for(int i=0; i<nRowCount; i++)
　{
　　// 63 63 72 75 6E 2E 63 6F 6D
　　for(int j=0; j<dbg->Columns->Count; j++)
　　{
　　　vCell = vTable.OleFunction("Cell", i + 2, j + 1);
　　　vCell.OlePropertySet("Range",
　　　　dbg->DataSource->DataSet->FieldByName(
　　　　　dbg->Columns->Items[j]->FieldName)->AsString.c_str());
　　}
　　dbg->DataSource->DataSet->Next();
　}
　// 保存Word文档并退出
　vWordApp.OlePropertyGet("ActiveDocument").OleProcedure("SaveAs", strDocFile.c_str());
　vWordApp.OlePropertyGet("ActiveDocument").OleProcedure("Close");
　Application->ProcessMessages();
　vWordApp.OleProcedure("Quit");
　Application->ProcessMessages();
　vWordApp = Unassigned;
　// 工作结束
　MessageBox(0, "DBGrid2Word 转换结束!","DBGrid2Word", MB_OK | MB_ICONINFORMATION);
}


　　二、将DBGrid中的内容导出到Excel文档

//---------------------------------------------------------------------------
// 将DBGrid中的数据导出到Excel文档
//---------------------------------------------------------------------------
void __fastcall DBGrid2Excel(TDBGrid *dbg, String strXlsFile)
{
　if(!dbg->DataSource->DataSet->Active) // 数据集没有打开就返回
　　return;
　Variant vExcelApp, vSheet;
　try
　{
　　vExcelApp = Variant::CreateObject("Excel.Application");
　}
　catch(...)
　{
　　MessageBox(0, "启动 Excel 出错, 可能是没有安装Excel.","DBGrid2Excel", MB_OK | MB_ICONERROR);
　　return;
　}
　// 隐藏Excel界面
　vExcelApp.OlePropertySet("Visible", false);
　// 新建一个工作表
　vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add", 1); // 工作表
　// 操作这个工作表
　vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);
　// 设置Excel文档的字体
　vSheet.OleProcedure("Select");
　vSheet.OlePropertyGet("Cells").OleProcedure("Select");
　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size);
　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Name",dbg->Font->Name.c_str());
　vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("FontStyle", "常规");
　vSheet.OlePropertyGet("Cells", 1, 1).OleProcedure("Select");
　// 表格的行数
　int nRowCount(dbg->DataSource->DataSet->RecordCount + 1);
　nRowCount = nRowCount < 2? 2: nRowCount;
　// 表格的列数
　int nColCount(dbg->Columns->Count);
　nColCount = nColCount < 1? 1: nColCount;
　// 设置单元格的宽度
　for(int i=0; i<nColCount; i++)
　{
　　int nColWidth = dbg->Columns->Items[i]->Width;
　　vExcelApp.OlePropertyGet("Columns", i + 1).OlePropertySet("ColumnWidth", nColWidth / 7);
　}
　// 先将列名写入Excel表格
　for(int j=0; j<dbg->Columns->Count; j++)
　{
　　// 标题行的行高
　　vExcelApp.OlePropertyGet("Rows", 1).OlePropertySet("RowHeight", 20);
　　vSheet.OlePropertyGet("Cells", 1, j + 1)
　　　.OlePropertySet("Value", dbg->Columns->Items[j]->FieldName.c_str());
　　// 设置列名单元格的背景色
　　Variant vInter = vSheet.OlePropertyGet( "Cells", 1, j + 1).OlePropertyGet("Interior");
　　vInter.OlePropertySet("ColorIndex", 15); // 灰色
　　vInter.OlePropertySet("Pattern", 1); // xlSolid
　　vInter.OlePropertySet("PatternColorIndex", -4105); // xlAutomatic
　}
　// 将DBGrid中的数据写入Excel表格
　dbg->DataSource->DataSet->First();
　for(int i=0; i<nRowCount; i++)
　{
　　// 普通数据行的行高16
　　vExcelApp.OlePropertyGet("Rows", i + 2).OlePropertySet("RowHeight", 16);
　　// 63 63 72 75 6E 2E 63 6F 6D
　　for(int j=0; j<dbg->Columns->Count; j++)
　　{
　　　vSheet.OlePropertyGet("Cells", i + 2, j + 1).OlePropertySet("Value",
　　　　　dbg->DataSource->DataSet->FieldByName(
　　　　　　dbg->Columns->Items[j]->FieldName)->AsString.c_str());
　　}
　　dbg->DataSource->DataSet->Next();
　}
　// 保存Excel文档并退出
　vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", strXlsFile.c_str());
　vExcelApp.OleFunction("Quit");
　vSheet = Unassigned;
　vExcelApp = Unassigned;
　// 工作结束
　MessageBox(0, "DBGrid2Excel 转换结束!","DBGrid2Excel", MB_OK | MB_ICONINFORMATION);
}

]]> <![CDATA[在C++ Builder中用Ole控制Excel表]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11189 joinclear 2006/1/13 9:07:42 http://www.yesky.com/412/1651912.shtml
笔者在实际工作中经常用Excel表做数据报表，大多数表格的数据都要从数据库中读取，这样我就用C++Builder做了一个报表程序，方便了很多，现在把它共享给C++Builder爱好者们，就算为丰富C++Builder的文档资料做点事情吧。

　　首先把Excel报表文件保存到一个指定目录下，最好放在可执行程序的子目录下，作为模板文件。可以把报表标题、表头等设置好。这里是保存在trpt子目录下。

　　然后建一个report目录，作为报表目标文件夹，存放填好数据的报表，可以由用户直接操作。

　　首先确定在你的机器中装有Office。这里一Office2000为例。

　　在C++Builder中新建一个工程，在窗体Form1上面放一个两个按钮SaveButton和ReadButton，分别用来保存数据到Excel表和显示刚刚保存的Excel表。

　　在SaveButton按钮的单击事件中把从数据库中取到的数据放入到指定的Excel表中并将改文件拷贝到report目录下。在ReadButto按钮的单击事件中显示report目录下的报表文件，方便用户修改和另外保存。

　　在Form1.h头文件中定义几个变量：

private:
Variant Ex,Wb,Sheet,ERange,EBorders;

　　并在文件头中包含如下语句：

#include "Excel_2K_SRVR.h"
#include

　　在Form1.cpp的文件头中加入

#pragma link "Excel_2K_SRVR"

　　主要代码如下：

void __fastcall TForm1:: SaveButtonClick(TObject *Sender)
{
try
{
SaveButton->Enabled = false;
ReadButton->Enabled = false;//使两个按钮无效

file://取报表文件CardSend.xls的完整目录名
AnsiString ExcelFileName = GetCurrentDir()+"\\trpt\\table.xls";

if(!FileExists(ExcelFileName))
{
Application->MessageBox("报表模板文件不存在,无法打开！",
"错误",MB_ICONSTOP|MB_OK);
return;
}
file://建立Excel的Ole对象Ex
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}
file://设置Excel为不可见
Ex.OlePropertySet("Visible",false);
file://打开指定的Excel报表文件。报表文件中最好设定只有一个Sheet。
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
Wb = Ex.OlePropertyGet("ActiveWorkBook");
Sheet = Wb.OlePropertyGet("ActiveSheet");//获得当前默认的Sheet

file://清空Excel表，这里是用循环清空到第300行。对于一般的表格已经足够了。
AnsiString strRowTemp;
AnsiString strRange;
int iCols,iRows;//记录列数和行数

/*从第三行开始，到第300行止。一般第一行是表标题，第二行是副标题或者制表日期。*/
for(iRows=3;iRows<300;iRows++)
{ file://假设只有6列。
for (iCols = 1;iCols < 7; iCols++)
{
file://清空行
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value","");
}
file://去掉表格边框
strRange = "A"+IntToStr(iRows)+":F"+IntToStr(iRows);//获取操作范围
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");//获取边框对象
EBorders.OlePropertySet("linestyle",xlNone);
}

AnsiString strPtrDate; file://存放当前日期，作为制表日期
DateSeparator = '-';
ShortDateFormat = "yyyy/m/d";//设置为年/月/日格式

strPtrDate = DateToStr(Date());//取当前日期

AnsiString strYear = strPtrDate.SubString(1,4);
strPtrDate = strPtrDate.SubString(6,strPtrDate.Length()-5);
AnsiString strMonth = strPtrDate.SubString(1,strPtrDate.Pos("-")-1);
AnsiString strDay =
strPtrDate.SubString(strPtrDate.Pos("-")+1,
strPtrDate.Length()-strPtrDate.Pos("-"));
strPtrDate = strYear+"年"+strMonth+"月"+strDay+"日";

AnsiString strData = "报表标题";//报表标题
file://将报表标题置于第一行第一列。在此之前，应将报表文件的标题格式设定好。
Sheet.OlePropertyGet("Cells",1,1).OlePropertySet("Value",
strData.c_str());
file://将制表日期置于表格第二行的右侧。
Sheet.OlePropertyGet("Cells",2,5).OlePropertySet("Value",
strPtrDate.c_str());

iRows = 3;//在第三行放置表格的列名
Sheet.OlePropertyGet("Cells",iRows,1).OlePropertySet("Value","列名1");
Sheet.OlePropertyGet("Cells",iRows,2).OlePropertySet("Value","列名2");
Sheet.OlePropertyGet("Cells",iRows,3).OlePropertySet("Value","列名3");
Sheet.OlePropertyGet("Cells",iRows,4).OlePropertySet("Value","列名4");
Sheet.OlePropertyGet("Cells",iRows,5).OlePropertySet("Value","列名5");
Sheet.OlePropertyGet("Cells",iRows,6).OlePropertySet("Value","列名6");
file://画表格边框，在A3：F3之间取范围
strRange = "A"+IntToStr(iRows)+":F"+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
file://从数据库中取数据(略)，假设数据集放入Query1中。
Query1->Open();//打开数据集
file://循环取数
while(!Query1->Eof)
{
file://循环取字段的数据放到Excel表对应的行列中
for(iCols=1;iCols<7;iCols++)
{
strRowTemp = Query1->Fields->Fields[iCols-1]->AsString;
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value",
strRowTemp.c_str());
}
file://画该行的表格边框
strRange = "A"+IntToStr(iRows)+":F"+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
Query1->Next();
}//while结束

Wb.OleProcedure("Save");//保存表格
Wb.OleProcedure("Close");关闭表格
Ex.OleFunction("Quit");退出Excel
file://定义目标文件名
AnsiString DestinationFile =
GetCurrentDir()+"\\report\\table.xls";
file://将刚刚修改的Excel表格文件table.xls拷贝到report目录下
if(!CopyFile(ExcelFileName.c_str(),DestinationFile.c_str(),false))
{
Application->MessageBox("复制文件操作失败,Excel文件可能正在使用中！",
"错误",MB_ICONSTOP|MB_OK);
return;
}
Application->MessageBox("成功完成报表保存！\n可以按\'打开Excel文件\'
按钮进行报表工作","提示",MB_ICONINFORMATION|MB_OK);

SaveButton ->Enabled = true;
ReadButton ->Enabled=true;
}//try结束
catch(...)
{
Application->MessageBox("操作Excel表格失败！",
"错误",MB_ICONSTOP|MB_OK);
Wb.OleProcedure("Close");
Ex.OleFunction("Quit");
SaveButton ->Enabled = true;
ReadButton ->Enabled=false;
}
}

　　至此，完成报表数据的写入工作。如果要对完成的Excel表进行操作，可以点击"打开Excel表文件按钮"(ReadButton),进行修改，保存，打印等操作。ReadButton的单击事件如下实现：

void __fastcall TForm1:: ReadButtonClick(TObject *Sender)
{
try
{
file://指定report目录下的报表文件用于用户操作
AnsiString ExcelFileName =
GetCurrentDir();+"\\report\\table.xls";

if(!FileExists(ExcelFileName))
{
Application->MessageBox("Excel表文件不存在,无法打开！",
"错误",MB_ICONSTOP|MB_OK);
return;
}

try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}
file://使Excel可见
Ex.OlePropertySet("Visible",true);
file://打开Excel表格文件Table.xls
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
}
catch(...)
{
Application->MessageBox("操作Excel表格错误！","错误",MB_ICONSTOP|MB_OK);
Ex.OleFunction("Quit");
}
}

　　以上关于C++BuilderExcel表格的操作仅作为个人观点和水平呈献给关心此问题的读者，如果有更好的方式方法，敬请指教，不胜感激。

]]> <![CDATA[如何用 ADO 方式把数据写到 Excel 表中，以及如何从 Excel 表中读出数据？]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11188 joinclear 2006/1/13 9:04:33 http://dev.hackbase.com/hackbase11/how303381.htm
如何用 ADO 方式把数据写到 Excel 表中，以及如何从 Excel 表中读出数据？
另外，在写 Excel 表格时，如何控制单元格的格式，如绘制边框线，水平居中，字体等？
回复人： lanren_me(阿波) ( ) 信誉：115 2003-05-29 12:34:43Z 得分:25
? 
要在应用程序中控制Excel2000的运行，首先必须在编制自动化客户程序时使其头文件要包含Comobj.hpp和Utilcls.h。
即：#include<Comobj.hpp>
#include<Utilcls.h>
C++ Builder开发者把Excel自动化对象的功能包装在下面的四个Ole Object Class函数中，应用人员可以很方便地进行调用。
设置对象属性：Variant  OlePropertySet（属性名，参数……）；
        获得对象属性：void  OlePropertyGet（属性名，参数……）；
        调用对象方法：1) Variant  OleFunction（函数名，参数……）；
                    2) void  OleProcedure（过程名，参数……）；
 C++ Builder中使用OLE控制Excel2000，必须掌握Excel2000的自动化对象及Microsoft Word Visual Basic帮助文件中的关于Excel的对象、方法和属性。对象是一个Excel元素，属性是对象的一个特性或操作的一个方面，方法是对象可以进行的动作。
1、Excel中常用的对象是：Application，Workbooks，Worksheets等。
（1）	创建应用对象：如：
Variant ex；
ex=Variant::CreateObject ("Excel.Application");
     或者 ex=CreateOleObject ("Excel.Application");
（2）	创建工作簿对象：
Variant wb；
wb=ex.OlePropertyGet("ActiveWorkBook");
（3）	创建工作表对象：
Variant sheet；
sheet=wb.OlePropertyGet("ActiveSheet");
（4）	创建区域对象：
Variant range；
range=sheet.OlePropertyGet("Range","A1:A10");
2、常用的属性操作：
（1）新建EXCEL文件：
（a）：新建系统模板的工作簿
ex.OlePropertyGet("workbooks").OleFunction("Add")      //默认工作簿
ex.OlePropertyGet("workbooks").OleFunction("Add"，1)   //单工作表
ex.OlePropertyGet("workbooks").OleFunction("Add"，2)   //图表
ex.OlePropertyGet("workbooks").OleFunction("Add"，3)   //宏表
ex.OlePropertyGet("workbooks").OleFunction("Add"，4)   //国际通用宏表
ex.OlePropertyGet("workbooks").OleFunction("Add"，5)   //与默认的相同
ex.OlePropertyGet("workbooks").OleFunction("Add"，6)   //工作簿且只有一个表
（b）：新建自己创建的模板的工作簿
ex.OlePropertyGet("workbooks").OleFunction("Add","C:\\WINDOWS\\Profiles\\test2\\Application Data\\Microsoft\\Templates\\result.xlt");  // 后面写上模板的完全路径，注意“\\”
（2）打开工作簿：
ex.OlePropertyGet("workbooks").OleFunction("open"，"路径名.xls")
（3）保存工作簿：
wb.OleFunction("Save"); //表格保存
       wb..OleFunction("SaveAs","文件名"); //表格保存为，文件路径注意用“\\”
（4）退出EXCEL：
ex.OleFunction ("Quit");
（5）设置字体：
  （a）：设置单元格字体
sheet.OlePropertyGet("Cells",1,1).OlePropertyGet("Font").OlePropertySet("Name","隶书");
      sheet.OlePropertyGet("Cells",2,3).OlePropertyGet("Font").OlePropertySet("size",28);
  （b）：设置所选区域字体
range.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("size",28);      range.OlePropertyGet("Cells").OlePropertyGet("Font").OlePropertySet("Color",
RGB(0,0,255));
     其中参数的设置：
        Font---Name :  “隶书”               //字体名称
           ----Size :    12                  //字体大小
           ----Color :  RGB(*,*,*)           //颜色
           -----Underline : true/false           //下划线
           -----Italic:   true/false             //斜体
（6）单元格的合并：
（a） range1=sheet.OlePropertyGet("Range", "A1:A2");   //A1和A2单元格合并
（b） AnsiString Str="A"+IntToStr(j)+":"+"C"+IntToStr(j);
        range1=sheet.OlePropertyGet("Range",Str);   //可以用变量控制单元格合并
range1.OleFunction("Merge" , false);
（7）赋值语句：
（a）：指定单元格赋值
sheet.OlePropertyGet("Cells",3,6).OlePropertySet("Value",str);
      sheet.OlePropertyGet("Cells",j,1).OlePropertySet("Value","共查到记录:"+IntToStr(j-6));
（b）：所选区域单元格赋值
range.OlePropertyGet("Cells").OlePropertySet("Value",10);
（c）：所选区域行赋值
range.OlePropertyGet("Rows",1).OlePropertySet("Value",1234);
（d）：工作表列赋值
sheet.OlePropertyGet("Columns",1).OlePropertySet("Value",1234);
（8）取值语句：
AnsiString abc=sheet.OlePropertyGet("Cells",120,1).OlePropertyGet("Value");
（9）区域选择：
range.OlePropertyGet("Cells").OleFunction("Select");
（10）窗口属性：
（a）显示属性
ex.OlePropertySet("Windowstate",3);         //最大化显示
参数  1---------xlNormal                  //正常显示
2---------xlMinimized                //最小化显示
3---------xlMaximized                //最大化显示
（b）状态栏属性
ex.OlePropertySet ("StatusBar","您好，请您稍等。正在查询！");
ex.OlePropertySet ("StatusBar", false);     //还原成默认值
（c）标题属性：
                ex.OlePropertySet("Caption","查询系统");


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Variant my_excel,all_workbooks,my_workbook,my_worksheet;
   Variant my_range;
   AnsiString columname,residue,cellname,rangename;
   int i,j=1;
   int count;
try
    {
     my_excel=CreateOleObject("excel.Application");//启动Excel
    }
    catch(...)
    {
     MessageBox(GetFocus(),"无法启动Excel","警告",MB_OK|MB_ICONSTOP);
     Abort();
    }
    all_workbooks=my_excel.OlePropertyGet("WorkBooks");
    Procedure Open("Open");

my_excel.OlePropertySet("Visible",(Variant)true); //使Excel启动后可见
    my_workbook=all_workbooks.OleFunction("Add");//新建一个工作薄
    my_workbook=my_excel.OlePropertyGet("ActiveWorkbook");
    my_worksheet=my_workbook.OlePropertyGet("ActiveSheet");
    my_worksheet.OlePropertyGet("Rows",2).OleProcedure("Insert");//插入一行

//根据DBGrid的表头输出Excel表头
   for(i=0;i<DBGridEh1->FieldCount;++i)
    {
     my_excel.OlePropertyGet("Cells",1,(i+1)).OlePropertySet("Value",DBGridEh1->Columns->Items[i]->Title->Caption.c_str());
    }
//输出表体
    ADOQuery1->DisableControls();
    ADOQuery1->First();
    for(j=2;!ADOQuery1->Eof;++j)
    {
     for(i=0;i<DBGridEh1->FieldCount;++i)
     {
      //向表格添加数据
      my_excel.OlePropertyGet("Cells",j,(i+1)).OlePropertySet("Value",DBGridEh1->Columns->Items[i]->Field->AsString.c_str());
     }
     ADOQuery1->Next();
    }
    ADOQuery1->EnableControls();

    my_worksheet.OlePropertyGet("Range","A1:D3").OlePropertyGet("Interior").OlePropertySet("ColorIndex",15); //改表格颜色
  //  my_worksheet.OlePropertyGet("Range","A1:A3").OleProcedure("Merge",0); //合并单元格
    my_worksheet.OlePropertyGet("Range","A1:D1").OlePropertyGet("Columns").OleProcedure("autofit"); //设置自适应列宽
   // my_worksheet.OlePropertyGet("Range","A1:D3").OleProcedure("Merge",1);
    my_worksheet.OlePropertyGet("Range","A1:D3").OlePropertySet("HorizontalAlignment",3);  //居中

   MessageBox(this->Handle,"请按确定彻底关闭Excel","通知",MB_OK|MB_ICONEXCLAMATION|MB_APPLMODAL);
    my_excel.OleFunction("Quit");


}
Top
回复人： jukyy(做一大水雷把鬼子炸沉) ( ) 信誉：90 2003-05-29 13:03:16Z 得分:25
? 
高人呀，学习。我这有一个向Excel里写数据的函数，事先把数据导入到一个ADOTable中，然后调用
DataSetToExcel(ADOTable1,true);
//以下是往Excel里写数据
void DataSetToExcel(TDataSet* DataSet,bool H)
{
    Variant Ex,Wbs,Wb,Sh1;
    int CurrRow,CurrCol;
    CurrCol=0;
    CurrRow=0;
    Screen->Cursor=crHourGlass;
    if(Ex.IsEmpty())
        try
        {
            Ex=Variant::CreateObject("Excel.Application");
        }
        catch(...)
        {
            Screen->Cursor=crDefault;
            Application->MessageBoxA("打开Excel出错，请确认你已经正确安装了Microsoft Office2000!","违章车辆照片管理系统",64);
            return;
        }
    try
    {
        if(Ex.PG("ActiveWorkBook").IsEmpty())
            Ex.PG("WorkBooks").PR("ADD");
        if(Wb.IsEmpty())
            Wb=Ex.PG("ActiveWorkBook");
        Sh1=Wb.PG("Sheets").FN("Add");
        Ex.OlePropertySet("Visible",true);
    }
    catch(...)
    {
        Ex=Ex.Empty();
        Wb=Wb.Empty();
        DataSetToExcel(DataSet,H);
    }
    if(H)                 //PR=OleProcedure,PG=OlePropertyGet,PS=OlePropertySet
    {
        for (int j=0;j<DataSet->Fields->Count;j++)
        {
            if(DataSet->Fields->Fields[j]->Visible)
            {
                CurrCol++;
                Sh1.PG("Cells",1,CurrCol).PS("Value",DataSet->Fields->Fields[j]->FieldName);
            }
        }
        DataSet->First();
        for (int i=0;i<DataSet->RecordCount;i++)
        {
            CurrCol=0;
            for (int j=0;j<DataSet->Fields->Count;j++)
            {
                if(DataSet->Fields->Fields[j]->Visible)
                {
                    CurrCol++;
                    Sh1.PG("Cells",i+2,CurrCol).PS("Value",DataSet->Fields->Fields[j]->AsString);
                }
            }
            DataSet->Next();
        }
    }
    else
    {
        for (int j=0;j<DataSet->Fields->Count;j++)
        {
            if(DataSet->Fields->Fields[j]->Visible)
            {
                CurrRow++ ;
                Sh1.PG("Cells",CurrRow,1).PS("Value",DataSet->Fields->Fields[j]->FieldName);
                DataSet->First();
                for (int i=0;i<DataSet->RecordCount;i++)
                {
                    Sh1.PG("Cells",CurrRow,i+2).PS("Value",DataSet->Fields->Fields[j]->AsString);
                    DataSet->Next();
                }
            }
        }
    }
    Screen->Cursor=crDefault;
}

]]> <![CDATA[c++builder中，DBGrid的行颜色设置]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11105 joinclear 2006/1/9 10:21:29 　设一DBGrid已经和一DataSorce连接，且能显示某一表中的所有记录。

现我要让DBGrid中显示的记录,记录号为奇数时显示一种颜色，记录号为双数时又显示一种颜色。

方法是响应：DBGrid的消息：OnDrawColumnCell

程序如下：

void __fastcall T***::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
  if(DBGrid1->DataSource->DataSet->RecNo % 2 == 0)
  {
          DBGrid1->Canvas->Font->Color = clWindowText;
          DBGrid1->Canvas->Brush->Color =clMoneyGreen;
  }
  else
  {
          DBGrid1->Canvas->Font->Color = clWindowText;
          DBGrid1->Canvas->Brush->Color = clCream;
  }
  DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

这时DBGrid显示了颜色，但这时当我选中某一行记录时，没有我以前（option\dgRowSelect=true）选中时的颜色效果了，就是说我这时选中了哪一行，没有颜色提示了。

故下面的程序代码，我又加入这个选中行有颜色标识的提示。而且颜色是可以任意变的。

改后的程序如下：
void __fastcall TfmDrvVeh::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
  if(DBGrid1->DataSource->DataSet->RecNo % 2 == 0)
  {
          DBGrid1->Canvas->Font->Color = clWindowText;
          DBGrid1->Canvas->Brush->Color =clMoneyGreen;
  }
  else
  {
          DBGrid1->Canvas->Font->Color = clWindowText;
          DBGrid1->Canvas->Brush->Color = clCream;
  }
  DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

  　if(State.Contains(gdSelected)||(State.Contains(gdSelected)&&State.Contains(gdFocused)))
    {
       DBGrid1->Canvas->Font->Color = clWindowText;
       DBGrid1->Canvas->Brush->Color =TColor RGB(157,167,253);
       DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
    }
}

]]> <![CDATA[回车键的使用]]> http://blogger.org.cn/blog/more.asp?name=joinclear&id=11104 joinclear 2006/1/9 10:17:29 在VC中创建一基于对话框的工程，编译运行，成功。面对着刚刚创建的工程，心里那个高兴呀。突然一时心血来潮，按了个回车键，工程一闪而过没了。再编译运行，成功。按了个ESC键，工程一闪而过也没了。
为什么会这样，因为CDialog 中有默认对ENTER和ESC键的处理。
解决这种一按回车和ESC键就关闭工程的正确处理方法是:触发PreTranslateMessage消息，截获ENTER和ESC对对话框的消息。
代码如下：
BOOL CXXX::PreTranslateMessage(MSG* pMsg)
{
    if(pMsg->message == WM_KEYDOWN)
    {
        switch(pMsg->wParam)
        {
        case VK_RETURN://屏蔽回车键
            return TRUE;
        case VK_ESCAPE://屏蔽ESC键
            return TRUE;
        }
    }
    return CDialog::PreTranslateMessage(pMsg);
}

OK了，这下好了。突然我在对话框上加了一个编辑框和一个列表框，我想先在编辑框中输入内容，然后按一下回车键，就把编辑框的内容插入到列表框中。

突然一想还真无从下手，再一想还是在PreTranslateMessage里面做，上面的我是直接return TRUE;的。我在这个return TRUE;上面做就行了。

代码如下：
BOOL CXXX::PreTranslateMessage(MSG* pMsg)
{ 
    HWND h1 = ::GetDlgItem(m_hWnd,IDC_EDIT1);
    if(pMsg->message == WM_KEYDOWN)
    {        
        switch(pMsg->wParam)
        {
           case VK_RETURN:
               UpdateData();
               if (pMsg->hwnd == h1)
               {                                      

                     m_list.AddString(m_edit1);
               }    
                 return TRUE;
           case VK_ESCAPE:
                  return TRUE;
             break;
          }
    }  
    return CDialog::PreTranslateMessage(pMsg);
}
要是两个编辑框呢。在编辑框1中回车，把编辑框1的内容加到列表框，在编辑框2中回车，把编辑框2的内容加到列表框，于是这样。

代码如下：
BOOL CXXX::PreTranslateMessage(MSG* pMsg)
{ 
    HWND h1 = ::GetDlgItem(m_hWnd,IDC_EDIT1);
    HWND h2 = ::GetDlgItem(m_hWnd,IDC_EDIT2);
    if(pMsg->message == WM_KEYDOWN)
    {        
         switch(pMsg->wParam)
        {
                case VK_RETURN:
                      UpdateData();
                     if (pMsg->hwnd == h1)
                     {                                     

                          m_list.AddString(m_edit1);
                      } 
                    if (pMsg->hwnd == h2)
                    {                                        

                         m_list.AddString(m_edit2);
                     }    
                    return TRUE;
                case VK_ESCAPE:
                     return TRUE;
                 break;
           }
    }  
    return CDialog::PreTranslateMessage(pMsg);
}

为了下面的使用，先来讲讲VC的窗口类和窗口句柄的转换。
窗口类就是CWnd,窗口句柄就是HWND。CWnd和HWND之间互相转换代码如下：
    CWnd *pWnd;
    HWND  hWnd;
    hWnd = pWnd->GetSafeHwnd();        //CWnd->HWND
    pWnd = CWnd::FromHandle(hWnd); //HWND->CWnd

则这样上面的两个编辑框的代码，改一下第二个编辑框先得到CWnd，转一下然后和HWnd比较。
改了的代码如下：
BOOL CXXX::PreTranslateMessage(MSG* pMsg)
{ 
    HWND h1 = ::GetDlgItem(m_hWnd,IDC_EDIT1);
    CWnd *h2=GetDlgItem(IDC_EDIT2);
    if(pMsg->message == WM_KEYDOWN)
    {        
        switch(pMsg->wParam)
        {
        case VK_RETURN:
              UpdateData();
              if (pMsg->hwnd == h1)
              {                                         

                         m_list.AddString(m_edit1);
              } 
              if (pMsg->hwnd == h2->GetSafeHwnd())
              {                                     

                      m_list.AddString(m_edit2);
              }    
             return TRUE;
        case VK_ESCAPE:
              return TRUE;
          break;
        }
    }  
    return CDialog::PreTranslateMessage(pMsg);
}
完成了，功能一模一样。
好开心！
举一反三，下面别的控件你也可以这样做了。如：列表框
等等。

突然一天，我发现这种做法失效了。失效在组合框上了。
原本的希望却变成了失望。痛苦啊。
程序如下：
BOOL CXXX::PreTranslateMessage(MSG* pMsg)
{ 
    HWND h3 = ::GetDlgItem(m_hWnd,IDC_COMBO1);
    if(pMsg->message == WM_KEYDOWN)
    {        
           switch(pMsg->wParam)
          {
           case VK_RETURN:
                  UpdateData();
                   if (pMsg->hwnd == h3)
                  {                                                      

                             m_list.AddString(m_combo1);
                  }    
                 return TRUE;
           case VK_ESCAPE:
                 return TRUE;
           break;
         }
    }  
    return CDialog::PreTranslateMessage(pMsg);
}
于是用SPY++一看，组合框却有两个句柄，一个是ComboBox,还有一个是Edit的句柄。想想也是呀：组合框的可视部分就是由一个Edit组合成的，而pMsg->hwnd得到的句柄就是这个Edit所指的句柄(因为回车就是在这个Edit里面敲的),而HWND h3 =::GetDlgItem(m_hWnd,IDC_COMBO1);得到的这个句柄却是ComboBox的句柄，pMsg->hwnd 和 h3这两个当然不等了。
呵呵，找到了原因就好办了。

这下记起来有个这个函数了吧：CWnd* GetParent() const;
其实ComboBox就是Edit的父窗口(组合框和编辑框都可以看成是窗口)。
哦，既然pMsg->hwnd是Edit的句柄，ComboBox又是Edit的父窗口，那用个GetParent();就得到父窗口的句柄了，就可以和得到的句柄比较了。
大功告成，于是代码就出来了。

代码如下(举了两个组合框)：

BOOL CEntercomboDlg::PreTranslateMessage(MSG* pMsg)
{
       CWnd *h1=GetDlgItem(IDC_COMBO1);
       CWnd *h2=GetDlgItem(IDC_COMBO2);
 
       CWnd* hh = CWnd::FromHandle(pMsg->hwnd);
       CWnd* hhp = NULL;
       if(pMsg->message == WM_KEYDOWN)
        {        
        switch(pMsg->wParam)
         {
        case VK_RETURN:
             UpdateData();
             hhp = hh->GetParent();  
             if (hhp == h1) {
                      m_list.AddString(m_combo1);
             }
             if (hhp == h2) {
                      m_list.AddString(m_combo2);
              }   
             return TRUE;
        case VK_ESCAPE:
             return TRUE;
         break;
         }
 }  
 return CDialog::PreTranslateMessage(pMsg);
}

哦，不错。

这只是回车键在VC的应用之一。

]]>