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

第12、13章 控制台和MDI程序 第12章 控制台程序 第13章 MDI程序 补充 程序封面和退出确认 第12章 控制台应用程序 什么是控制台应用程序：DOS应用程序。 创建菜单操作：新建项目|控制台应用程序 组成：程序初始由一个模块组成，其中有一个Sub Main。可以根据需要添加更多的模块。 输入： Console.Read() Console.ReadLine() 输出 Console.Write() Console.WriteLine() 第12章 控制台应用程序 例子：在Sub Main()中增加代码如下： Dim s As String Console.WriteLine(”Input Please: ”) S=Console.ReadLine() Console.WriteLine(”Your Input is : ”) Console.WriteLine(s) 运行效果： 提示Input Please: 随意输入，按回车。 输出Your Input is : 和刚才的输入。 第13章 MDI程序例1 什么是MDI程序：可以在主窗体内打开操作多个子窗体的程序。 13.1 例子1： 简单MDI：打开/关闭/排列多个子窗体。 菜单操作：新建项目|Windows应用程序。 将Form1设置为父窗体：IsMDIContainer=True 加入Form2作为子窗体。 在Form1增加菜单： “打开子窗体” ”水平排列子窗体” ”垂直排列子窗体” ”层叠排列子窗体” 第13章 MDI程序 “打开子窗体”代码： Dim son As New Form2 son.MDIParent=Me son.Show() “水平排列子窗体”代码： Me.LayOutMdi(MdiLayout .TileHorizontal) “垂直排列子窗体”代码： Me.LayOutMdi(MdiLayout .TileVertical) “层叠排列子窗体”代码：Me.LayOutMdi(MdiLayout .Cascade) 第13章 MDI程序 运行效果： 按“打开”可以不断地打开子窗体。 按“排列”可以按不同方法排列子窗体。 扩展： 在子窗体上增加控件，比如TextBox、Button等。 父窗体可以打开非子窗体的窗体。 子窗体可以有自己的菜单。 第13章 MDI程序例1 13.2 例子2： MDI记事本：打开/编辑/保存多个子窗体文本。 菜单操作：新建项目|Windows应用程序。 将Form1设置为父窗体：IsMDIContainer=True 在Form1增加菜单： “打开文件” ”保存文件” 加入Form2作为子窗体。 在Form2增加Textbox1，设置Dock属性为Fill。 第13章 MDI程序 “打开文件”菜单项目“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程序 “保存文件”菜单项目“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程序 运行效果： 按“打开文本”可以不断地打开记事本子窗体。 在每个记事本子窗体中可以编辑文本。 按“保存文本”可以保存当前活动的记事本子窗体