MFC ClientToScreen 和 ScreenToClient

     ClientToScreen( )是把窗口坐标转换为屏幕坐标

 ScreenToClient( )是把屏幕坐标转换为窗口坐标
 屏幕坐标是相对于屏幕左上角的,而窗口坐标是相对于窗口用户区左上角的
 VC下,有些函数使用窗口坐标,有些使用屏幕坐标,使用时要分清。
 
 
 一个窗体分为两部分:系统区和客户区
 象标题和菜单之类的是系统区,由系统来控制,客户区就是你的地盘喽!!!
 Width, Height 是指整体的,ClientWidth, ClientHeight是指客户区的,两者相减就是
 系统区的啦!!!
 ClientToScreen是把坐标从当前窗体转化成全屏幕的!!!
 ScreenToClient是把屏幕坐标转化成相对当前窗体的坐标!!!!

 

[cpp]  view plain copy
  1. bool  m_bIsLButtonDawn =false;  
  2. void CDrawDlg::OnMouseMove(UINT nFlags, CPoint point)   
  3. {  
  4.     // TODO: Add your message handler code here and/or call default  
  5.     CWnd *pwnd=GetDlgItem(IDC_EDIT1);  
  6.     CDC *pdc=pwnd->GetDC();  
  7.     CRect rect;  
  8.     this->ClientToScreen(&point);  
  9.     pwnd->ScreenToClient(&point);  
  10.     pwnd->GetClientRect(&rect);  
  11.     //  HCURSOR hcur=::LoadCursorFromFile("pen.cur");   
  12.     //  SetClassLong(GetSafeHwnd(),GCL_HCURSOR,(LONG)hcur);    
  13.     // CPen pen(PS_INSIDEFRAME,-1,RGB(255,255,255));  
  14.     //     CPen* olePen=pdc->SelectObject(&pen);  
  15.     if(rect.PtInRect(point) &&  m_bIsLButtonDawn )  
  16.     {  
  17.         pdc->DPtoLP(&m_fp);  
  18.         pdc->MoveTo(m_fp);  
  19.         pdc->DPtoLP(&point);  
  20.         pdc->LineTo(point);  
  21.     }  
  22.     m_fp=point;  
  23.     //  pdc->SelectObject(olePen);  
  24.     ReleaseDC(pdc);  
  25.     CDialog::OnMouseMove(nFlags, point);  
  26. }  
  27. void CDrawDlg::OnLButtonUp(UINT nFlags, CPoint point)   
  28. {  
  29.     m_bIsLButtonDawn =false;  
  30.     // TODO: Add your message handler code here and/or call default  
  31.     /* 
  32.     CWnd *pwnd=GetDlgItem(IDC_EDIT1); 
  33.         CDC *pdc=pwnd->GetDC(); 
  34.     CRect rect; 
  35.     this->ClientToScreen(&point); 
  36.     pwnd->ScreenToClient(&point); 
  37.     pwnd->GetClientRect(&rect); 
  38.    
  39.     if(rect.PtInRect(point)) 
  40.     { 
  41.     pdc->DPtoLP(&m_fp); 
  42.     pdc->MoveTo(m_fp); 
  43.     pdc->DPtoLP(&point); 
  44.     pdc->LineTo(point); 
  45.   
  46.     } 
  47.     ReleaseDC(pdc);*/  
  48.    
  49.     CDialog::OnLButtonUp(nFlags, point);  
  50. }  
  51. void CDrawDlg::OnLButtonDown(UINT nFlags, CPoint point)   
  52. {  
  53.     // TODO: Add your message handler code here and/or call default  
  54.     CWnd *pwnd=GetDlgItem(IDC_EDIT1);  
  55.     CDC *pDC=pwnd->GetDC();  
  56.     CRect rect;  
  57.     this->ClientToScreen(&point);  
  58.     pwnd->ScreenToClient(&point);  
  59.     pwnd->GetClientRect(&rect);  
  60.     if(rect.PtInRect(point))  
  61.     {  
  62.         m_fp.x=point.x;  
  63.         m_fp.y=point.y;  
  64.     }  
  65.     ReleaseDC(pDC);  
  66.     m_bIsLButtonDawn =true;  
  67.     CDialog::OnLButtonDown(nFlags, point);  
  68. }  

  • 1
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA中的ClientToScreen函数是用于将窗口客户区的坐标转换为屏幕坐标。该函数的返回值是一个Long型整数,表示转换后的屏幕坐标。 在VBA中,使用ClientToScreen函数需要引用user32.dll动态链接库。在代码中可以通过以下方式调用该函数: Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 其中hwnd是一个Long型参数,表示窗口的句柄。lpPoint是一个POINTAPI类型的参数,表示窗口客户区的坐标。 在调用ClientToScreen函数之前,首先需要声明一个POINTAPI类型的变量,用于存储转换前的窗口客户区坐标和转换后的屏幕坐标。 接下来,可以使用ClientToScreen函数进行坐标转换。示例代码如下: Dim hwnd As Long Dim clientPoint As POINTAPI Dim screenPoint As Long hwnd = Form1.hwnd clientPoint.x = 100 clientPoint.y = 100 ' 调用ClientToScreen函数进行坐标转换 screenPoint = ClientToScreen(hwnd, clientPoint) MsgBox "转换后的屏幕坐标为:(" & clientPoint.x & "," & clientPoint.y & ")" 上述代码中,首先将Form1的句柄赋值给hwnd变量。然后将要转换的窗口客户区坐标(100, 100)赋值给clientPoint结构体。最后调用ClientToScreen函数进行坐标转换,将转换后的屏幕坐标赋值给screenPoint变量。 最后,通过MsgBox函数弹出一个对话框,显示转换后的屏幕坐标。 这样就可以在VBA中使用ClientToScreen函数进行窗口客户区坐标和屏幕坐标的转换了。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值