文档详情

为设备环境句柄设置颜色.doc

发布:2017-08-07约5.01千字共4页下载文档
文本预览下载声明
//为设备环境句柄设置颜色 HBRUSH CContentsSubmitDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) ???? { ???????? HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor); ???????? int ctrid=pWnd-GetDlgCtrlID(); ???????? if(ctrid==IDC_EDIT4)//则IDC_EDIT4的颜色为下面的颜色 ????????????? {???????????? ?????????????????????? pDC-SetTextColor(RGB(0,0,255));?? ?????????????????????? pDC-SetBkMode(OPAQUE);? ?????????????????????? pDC-SetBkColor(RGB(255,255,255)); ????????????? ???????? return?? brushBlack; ????????????? ?}?? ???????? return hbr; ???? } ? //组合框选中事件 void CContentsSubmitDlg::OnCbnSelchangeCombo1() ???? { ???????? int nsel1=m_belong.GetCurSel(); ???????? switch(nsel1) ???????? { ???????? case 0 : ????????????? m_ProjectName.ResetContent(); ????????????? m_ProjectName.AddString(数据抓取程序开发); ????????????? break; ???????? case 1: ????????????? m_ProjectName.ResetContent(); ????????????? m_ProjectName.AddString(网络架设); ????????????? break; ???????? default: ????????????? m_ProjectName.ResetContent(); ????????????? m_ProjectName.AddString(您没有选择团队); ???????? } ???? ?} //统计工作内容编辑框控件输入的行数(回车符表示换行),并将每行中以-号为分割符的内容写入到数据库中 void CContentsSubmitDlg::OnBnClickedButton1() {??? UpdateData(true); CString workcontents,employees,scheduals,completedates,departments,teams,projects, projecttimes,weeks; ???????? workcontents=this-m_workcontents; ???????? employees=this-m_employee; ???????? projecttimes=this-m_projecttime; ???????? GetDlgItem(IDC_EDIT1)-GetWindowText(m_vdepartment); ???????? departments=m_vdepartment; ???????? //****************处理工作内容 ???????? CString strSrc =m_workcontents,strSrc1=m_workcontents; ???????? strSrc.TrimLeft(?);????? ???????? strSrc.TrimRight( ); ???????? strSrc.TrimRight( ); ???????? strSrc.TrimRight( ); ???????? strSrc.TrimRight(\t); ???????? int countn=0;//统计工作内容的条数,以换行符号为标记 ???????? int pos;//\n的位置???? int pos1;//-的位置 ???????? int k; ???????? CString contents1[10];//考虑到每个人提报最多内容不会超过10条,该数组用来存储每一行??????? for(int j=0;;j++) ???????? { ????????????? pos=strSrc.FindOneOf(
显示全部
相似文档