使用VisualBasic实现输入对话框功能

输入对话框是通过输入函数InputBox实现数据输入的,函数返回值就是用户在对话框中输入的内容,是String类型,每次只能输入一个数据。

格式:InputBox(prompt,[title],[default],[xpos,ypos])。

功能:函数执行时,弹出对话框,接收用户输入数据(字符串),并作为函数值返回。

参数:prompt,提示信息字符串表达式,在对话框中提示输入内容;title,对话框标题;default,对话框中的默认输入字符串,缺省时为空白;xpos,ypos,对话框左上角的点坐标,缺省时,对话框显示在屏幕中心。

【案例2-1】设计一个将华氏温度F转换为摄氏温度C的应用程序,已知转换公式为C=5/9*(F-32)。

【案例要求】

程序运行时,单击“华氏温度”按钮,利用InputBox接受用户输入的华氏温度值(如输入100),按“确定”按钮后,在窗体上使用文本框分别输出华氏温度和对应摄氏温度值,运行效果如图2-3所示。

图2-3　华氏转摄氏程序运行界面(www.xing528.com)

【案例操作】

界面设计,在窗体中拖放标签label1、label2,文本框tex1、text2和命令按钮command1、command2。设置这些对象的属性。Form1.Caption:华氏转摄氏;Label1.Caption:华氏温度;Label2.Caption:摄氏温度;Text1和Text2的Text属性值为空字符串;Command1.Caption:温度转换;Command2.Caption:退出。

代码设计,双击“Command1”命令按钮,在代码窗口中编辑Command1的Click事件过程,代码如下。

程序运行后,单击“温度转换”按钮,出现Inputbox对话框,在输入框中输入要转换的华氏温度,如输入100,如图2-4所示。

图2-4　Inputbox函数对话框

按“确定”按钮后,窗体的运行效果如图2-3所示。程序中,Text1.Text=F语句将字符串“100”赋值给了整型变量F(F接收的是数值100,这里隐含有将字符串“100”自动转换成数值100的操作),Text2.Text=C语句,是指把C赋值Text2文本框,隐含着将数值C自动转换为字符串的操作。