第六章vb6.0对话框的设计VIP免费

第六章 对话框的设计 6 .1 预定义对话框 在应用程序中添加对话框最容易的方法是使用预定义对话框，因为不必考虑设计、装载或者显示对话框方面的问题。然而，其控件在外观上要受到限制。预定义的对话框总是模式的。 表 6.1 中列出了在Visual Basic 应用程序中添加预定义对话框时所使用的函数。 6 .1 .1 输入框InputBox函数用来产生要求输入数据的输入框；在输入框中显示提示文本、文本框和按钮；等待用户的输入或按下按钮，并返回用户在文本框中输入的内容。 如图 6.1 所示的输入框就是使用InputBox函数所产生的，用来提示用户输入要在窗体上显示的内容。 生成该输入框的代码如下所示： Word=InputBox（“请输入要在窗体中显示的内容：”、“输入”） 只需再做一点工作就可以将上面的文本输入框使用到程序中了。 实例 6.1 使用输入框。 在窗体中放置一个按钮控件，并设置它的Caption 属性的值为“输入要显示的内容”，双击这个按钮控件打开它的代码窗口，编写如下代码： Private Sub Commandl_Click() word=InputBox(“请输入要在窗体中显示的内容:”，“输入”) Print word End Sub 在该程序中，InputBox函数将产生一个输入框，并且该函数包含有两个参数，其中第一个参数是指输入框中的用户提示字符串，第二个参数是指输入框的标题： InputBox（prompt[，title][，default][，spos][，ypos][，helpfile，context]） InputBox函数语法中的各参数的含义如表 6.2 所示。 如果同时提供了Helpfile 与Context，用户可以按F1 键来查看与Context 相应的帮助主题。 如果用户单击输入框中的【确定】按钮，则 InputBox函数返回文本框中的内容。如果用户单击【取消】按钮，则此函数返回一个长度为零的字符串（“”）。 如果要省略某些位置参数，则必须加入相应的逗号分界符。例如，要指定实例 6.1 中输入框的位置，而缺省输入框的初始值，则语句如下： word =InputBox（“请输入要在窗体中显示的内容：”，“输入”， 200，200）。 6 .1 .2 消息框 MsgBox函数用来产生一个消息框。消息框用来显示简短的消息，并要求用户作出一定的响应。例如，报告操作错误或向用户提示信息。看完这些消息以后，可选取一个按钮来关闭该对话框。 创建该消息框的代码如下： Msg=MsgBox（您没有在文本框中输入任何内容“48”提示）。 这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。 实例 6...