Visual C++应用程序设计实验报告

1、实验步骤与调试过程创建工作文件夹创建一个基于对话框的应用程序Ex_Research设it “上网问卷调查”对话框（1）按教程的步骤先将该对话框应用程序上机练习并通过（2）添加一个静态文本控件，标题为“你每天上网的平均时间”，保留默认的标识符（3）添加4个单选按钮控件，在其属性对话框中，分别将其标题设置为“VI小时”、“V2 小时”、“V3小时”、“3小时”，标示符分别为IDC_TIME_L1、 IDC_TIME_L2、 IDC_TIME_L3、IDC_TIME_M4（4）选中第一个单选按钮的Group属性选项。（5）划蚀刻线，添加静态图片控件，在其属性对话框中将其类型属性调整为“框架”，颜色

2、属性选择“蚀刻”。修改代码：（1）在OnlmtDialog函数中添加如卜代码：CheckRadioButtonCIDCTIME.L 1 ,IDC_TIME_M3 IDC_TIME_L 1）;（2）在OnOk函数中添加如下代码：su-=str+nii你每天平均上网的时间：1T; iiID=GetCheckedRadioButton（IDC_TEvIE_LlJDC_TIME_M3）;G 亡 tDl gItemText（nID,strCtii）;sti-=str+stiCtrl;5 编译运行并测试实验结果正常运行，可以按照要求显示。由于初始化时已经设置了默认选，运行程序弹出对话框中每个提问均有选现彖

3、被选中，这样 就避免了用户对某些问题未选择而带来的错误。当用户选择完毕后，单击确认后，便弹出另 一个对话框，将用户所选择的信息显示出来。改程序界面简单明了，方便用户理解操作，而 且对用户选择的内容及时反馈0疑难小结通过本次实验熟练掌握了对话框的使用和控件创建和使用的方法主要算法和程序清单BOOL CExResearchDlg: :OiiIiiitDialog() CDialog: :OnInitDialog();/Add M About.n menu item to system menu.J/ LDM_ABOUTBOX must be in the system conmiaiid rang

4、e.ASSERT(IDM_ABOUTBOX & OxFFFO) = LDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX AppendMenu (MF_SEPARAT OR); pSysMenu-AppendMenu(MF_STRINQ LDM_ABOUTBOX. strAboutMenu);/ Set the icon for tliis dialog. The framework does this automatically / when the applications mam window is not a dialog/ Set big icon/ Set smal

5、l icon/ Set big icon/ Set small iconSetlcon(mjilcon. FALSE);/ TODO: Add extra initialization hereCheckRadioEutton(IDC_AGE_L 1 & IDC_AGE_M38IDC_AGE_18T27);CheckRadioEutton(IDC_CM_FTTLJDC_CM_OTHERJDC_CM_FTTL);CButton* pBtn=(CButton*)GetDlgItem(IDC_DO_POP);pBtn-SetCheck(l);/使“收发邮件”复选框选中return TRUE; / r

6、eturn TRUE unless you set the focus to a control d CExResearcliDlg: OnOK()/ TODO: Add extra validation hereCString sgstrCMl;str=”你的年龄”；UINT iiID=GetCheckedRadioButton(IDC_AGE_L 1 & LDC_AGE_M38);GetDlgItemText(nLD,stiCtii);sti-=str+stiCtrl;sti-=str+ii你使用的接入方式：”；nID=GetCheckedRadioButton(IDC_CM-FTTLJD

7、C-CM_OTHER);GetDlgItemText(nLD,stiCtii);sti-=str+stiCtrl;sti-=str+nii你上网主要是：”；UINTnCheckIDs4=IDC_DO_PORIDC_DO_READJDC_DO_GAME,IDC_DO_OTHER;CButton* pBtn;for(int i=0;iGetCheckQ)pBtn-GetWiiidowText(stiCtrl);str=sti+strCtil;str=sti+n H;MessageBox(sti);CDialog:OnOKQ;void CEx_ResearcliDlg: :OnPaiiit()if (IsIconicQ)siCPamtDC dc(this); / device context for paintmgSendMessage(WJCONERASEBKGND, (WPARAM) dc.GetSafeHdcQ. 0);/ Center icon in client rectanglemt cxlcon = GetSysteniNIetiics(SM_CXICON);mt cylcon = GetSysteniNIetiics(SM_CYICON);CRect lect;GetClientRect(&r