项目二 窗体及输入输出,学习目标 了解窗体的信息输出 理解数据的输入 了解信息输出的格式 掌握信息输入、输出的对话框的使用 掌握如何运用输入输出的运用,知识1 窗体的常用属性,1窗体的建立 每次装入Visual Basic或从File菜单中选择新建项目，一个空白的窗体自动出现在屏幕上。可以开始画用户界面了。 对一个简单的程序，一个窗体已经足够了。但是对于一个长程序，也许需要用两个、三个、或者十几个窗体。为了创建另一个窗体，你可以单击工具栏中的第二个按钮来添加第二个窗体。,知识1 窗体的常用属性,2.窗体的存储 在创建一个窗体之后，用户也许需要保存它，这样以后不必再创建它，为了存储一个窗体，Visual Basic提供了两种方法： 从文件菜单中单击保存 按Ctrl+s键，,知识1 窗体的常用属性,3窗体的边框 边框使得窗体看上去漂亮。根据BorderStyle（边框类型）属性，窗体可以有几种不同的类型： 0-None 1-Fixed Single 2-Sizable 3-Fixed Dialob 4-Fixed ToolWindow 5-Sizable ToolWindow,知识1 窗体的常用属性,知识2 信息的输出,Print方法： 1 格式 对象名.Print Spc(n)|Tab(m) 表达式 抑制换行符 2 说明 （1）对象名参数指定了文本的显示地方（下例中指定的是“Form1”-即窗体），这个参数可以取以下四个值之一。窗体名称、图片框名称、调试窗口(debug)或者printer（打印机）。 也可以省略对象名，那么结果将在当前窗体中显示文本。当文本出现在窗体中时，文本将会成为窗体背景的一部分。文本将在窗体中所有的控件之下出现，因此很少在应用程序的主窗体中使用print来显示文本，而是运用专门的文本信息显示。 （2）n为插入空格的个数，spc为产生n个空格的相对定位函数 （3）m为插入点定位的列号,Tab为横向绝对列定位函数使用无参数的Tab表示插入点定位在下一列。在同一行上m的值应该是递增的，不然会从下一行显示。,知识2 信息的输出,知识3 信息的输入,InputBox函数 1语法格式： InputBox(prompt,title,default,xpos,ypos,helpfile,context) BackString=InputBox(prompt,title,default,xpos,ypos,helpfile, context ) 选项中参数对应的中文含义为： InputBox(提示信息,标题,缺省值,X坐标,Y坐标) 如：BackString= InputBox(“请输入用户名:”,“安全”,“张三”, 800, 800) BackString 对话框中的返回值 prompt 对话框中显示的提示信息，必选项 title 可选，对话框的标题，缺省标题为应用程序名 default 可选，输入文本框中的缺省值 xpos,ypos 对话框与屏幕左边和上边的距离,知识3 信息的输入,2作用： 该函数能产生一个对话框，并显示提示，等待用户输入正文或按下按钮，如果用户单击OK或按下ENTER，则InputBox函数返回文本框中的内容，输入的是数值，就返回数值，是字符串就返回字符串 3说明： （1）提示信息：最大长度为1024个字符,VB将长消息自动换行 （2）缺省值：可选显示文本框中的字符串表达式，在没有其它输入时作为缺省值如果省略default，则文本框为空 （3）X坐标缺省时，输入框水平居中 （4）Y坐标缺省时，输入框垂直居中,知识3 信息的输入,知识4 信息框的使用,MsgBox函数 1格式：MsgBox( prompt ,buttons ,title ,helpfile, context ) 2作用：弹出信息框 3参数说明： Prompt：对话框中显示的消息 如果有多行信息，则每行结尾加上回车符chr(10) 和换行符chr(13)，或者常量vbCrlf,知识4 信息框的使用,知识4 信息框的使用,【案例2.1】密码的控制 模拟用户登录界面，利用输入对话框要求用户输入密码（假设密码为“abcd”）， 如果输入正确，则开始程序，否则退出程序。,知识4 信息框的使用,【案例2.1】密码的控制,【案例2.1】密码的控制,1密码的输入 在程序运行的时候，可以通过inputbox获得数据，然后再和指定的密码比较 2信息提示 在密码不正确而退出的时候，应该用MsgBox函数提示用户错误。这里需要使用选择语句来实现智能的判断。 3在窗体中放入一按钮，显示的文字为“登录”； 然后，在command1_click( )的程序代码中输入如下代码： Private Sub Command1_Click() xx$ = InputBox(“请输入你的密码:“, “登录“, “, 3800, 2000) If xx$ “abcd“ Then yy = MsgBox(“你输入的密码不对“, vbOKOnly, “提示信息“) End End If Print “欢迎使用!“ End Sub,【案例2.1】密码的控制,本章小结,Visual Basic 6.0是我们手中实现自己设计思想并为用户提供服务的有利工具。本章让我们了解了窗体的外衣是如何改变的。并且我们理解了如何利用inputbox( )函数为程序随机的提供数据，程序会根据获得的数据进行处理。我们还利用了Msgbox( )函数进行动态的输出，让用户在使用程序过程中得到有益的提醒。 我们利用了程序进行了密码控制，可以更加有效的使程序更加的智能化。当然，在以后的程序设计和开发过程中，你人更多的函数和方法，让你的程序实现更多、更好的功能。,