第3章对话框.pptVIP

第3章 VB.Net控件 对话框 1.有模式窗体或对话框必须关闭或隐藏，才能继续使用应用程序的其余部分。如： Visual Studio 中的“关于”对话框。 将窗体显示为有模式对话框，可用 ShowDialog 方法，如： Dim frmAbout as New Form() frmAbout.ShowDialog() 2.无模式窗体允许在窗体之间变换焦点，而不必关闭初始窗体。如： Visual Studio 中可从“编辑”菜单访问的“查找”对话框。 将窗体显示为无模式对话框，可用 Show 方法，如： Dim frmAbout as New Form() frmAbout.Show ()　 2. 消息框和输入框 Msgbox函数 Messagebox类 Inputbox函数 MsgBox函数和MsgBox过程 MsgBox按钮设置 MsgBox所选按钮返回值 例1用Messagebox实现word中的保存提示框。 InputBox函数 3 通用对话框 打开文件对话框 打开文件对话框 OpenFileDialog重要方法 （1）showdialog方法 如： OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK 表示点击了“打开对话框”的“打开”按钮 打开文件对话框 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Filter = Text Files|*.txt|所有文件|*.*|JPG Files|*.JPG OpenFileDialog1.FilterIndex = 3 OpenFileDialog1.ShowDialog（） If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image = New System.Drawing.Bitmap(OpenFileDialog1.FileName) PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) End If 保存文件对话框 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SaveFileDialog1.Filter = Text Files|*.txt|所有文件|*.*|JPG Files|*.JPG SaveFileDialog1.FilterIndex = 3 If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image.Save(SaveFileDialog1.FileName) End If End Sub 颜色对话框 字体对话框 字体对话框 * 1有模式和无模式 Windows 窗体 打开一个信息框，等待用户选择一个按钮。 MsgBox函数返回所选按钮的值，MsgBox过程不返回值 MsgBox函数形式： 变量[%] = MsgBox(提示[,按钮][,标题]) MsgBox过程形式： MsgBox 提示[,按钮][,标题] 按钮项是一整型表达式，决定信息框按钮的数目和类型及出现在信息框上的图标形式。 本章目录 第3个按钮为默认 512 VB.NETDefaultButton3 第2个按钮为默认 56 VB.NETDefaultButton2 第1个按钮为默认 0 VB.NETDefaultButton1 默认 按钮 信息图标 64 VB.NETInformation 警告信息图标 48 VB.NETExclamation 询问信息图标 32 VB.NETQuestion 关键信息图标 16 VB.NETCritical 图标 类型 重试、取消按钮