Visual Basic.NET编程PPT电子课件教案-第12、13章 控制台和MDI程序.ppt

第12、13章 控制台和mdi程序 第12章 控制台程序 第13章 mdi程序 补充 程序封面和退出确认 n什么是控制台应用程序：dos应用程序。 n创建菜单操作：新建项目|控制台应用程序 n组成：程序初始由一个模块组成，其中有一 个sub main。可以根据需要添加更多的模块 。 n输入： nconsole.read() nconsole.readline() n输出 nconsole.write() nconsole.writeline() 第12章 控制台应用程序 n例子：在sub main()中增加代码如下： dim s as string console.writeline(”input please: ”) s=console.readline() console.writeline(”your input is : ”) console.writeline(s) n运行效果： n提示input please: n随意输入，按回车。 n输出your input is : 和刚才的输入。 第12章 控制台应用程序 第13章 mdi程序例1 n什么是mdi程序：可以在主窗体内打开操作多个子 窗体的程序。 13.1 例子1： n简单mdi：打开/关闭/排列多个子窗体。 n菜单操作：新建项目|windows应用程序。 n将form1设置为父窗体：ismdicontainer=true n加入form2作为子窗体。 n在form1增加菜单： n“打开子窗体” n”水平排列子窗体” n”垂直排列子窗体” n”层叠排列子窗体” n“打开子窗体”代码： dim son as new form2 son.mdiparent=me son.show() n“水平排列子窗体”代码： me.layoutmdi(mdilayout .tilehorizontal) n“垂直排列子窗体”代码： me.layoutmdi(mdilayout .tilevertical) n“层叠排列子窗体”代码： me.layoutmdi(mdilayout .cascade) 第13章 mdi程序 n运行效果： n按“打开”可以不断地打开子窗体。 n按“排列”可以按不同方法排列子窗体。 n扩展： n在子窗体上增加控件，比如textbox、button 等。 n父窗体可以打开非子窗体的窗体。 n子窗体可以有自己的菜单。 第13章 mdi程序 第13章 mdi程序例1 13.2 例子2： nmdi记事本：打开/编辑/保存多个子窗体文本。 n菜单操作：新建项目|windows应用程序。 n将form1设置为父窗体：ismdicontainer=true n在form1增加菜单： n“打开文件” n”保存文件” n加入form2作为子窗体。 n在form2增加textbox1，设置dock属性为fill。 n“打开文件”菜单项目“click”代码： dim fd as new openfiledialog fd.filter = “all files(*.*)|*.*|text files(*.txt)|*.txt“ fd.initialdirectory = “c:“ if fd.showdialog = dialogresult.ok then dim son as new form2 son.mdiparent = me son.text = fd.filename son.show() dim fs as new streamreader(fd.filename) son.textbox1.text = fs.readtoend fs.close() end if 第13章 mdi程序 n“保存文件”菜单项目“click”代码： dim son as new form2 son = me.activemdichild if son is nothing then return dim fd as new savefiledialog fd.filter = “all files(*.*)|*.*|text files(*.txt)|*.txt“ fd.initialdirectory = “c:“ fd.filename = son.text if fd.showdialog = dialogresult.ok then dim fs as new streamwriter(fd.filename) fs.write(son.textbox1.text) fs.close() end if 第13章 mdi程序 n运行效果： n按“打开文本”可以不断地打开记事本子窗体。 n在每个记事本子窗体中可以编辑文本。 n按“保存文本”可以保存当前活动的记事本子窗体 。 n扩展： n按例子1和第16章记事本程序作进一步扩展。 第13章 mdi程序 n运行效果： n打开程序时，先出现一个封面画面，然后出现 主窗体。 n结束程序时，先出现一个退出确认画面，询问“ 是否退出”，并有“确定”、“取消”两个按钮。 n如果按“确定”按钮，退出程序。如果按“取消” 按钮，回到程序主窗体。 补充 程序封面和退出确认 n步骤： 1、新建项目，使用form1作为主窗体 2、增加新窗体form2，作为封面窗体， 3、将form2的formboardstyle设置为none 4、在form2上增加图像 补充 程序封面和退出确认 5、增加form1的load事件处理过程，代码如下： dim cover as new form2 dim i as long cover.show() 初始化工作。若没有，执行下列循环 for i=1 to 999999让封面停留一会儿。 next cover.close() 补充 程序封面和退出确认 6、