实验七 界面程序设计.pptVIP

Visual Basic 程序设计 实验七 界面设计 1．编程设计一个密码登陆程序，要求有三个窗体，在第一个窗体输入用户名和密码，如果密码正确，弹出第二个窗体，显示“欢迎使用本系统”字样，本窗体下有一个游戏菜单项，可以玩游戏；如果密码不正确，弹出第三个窗体，显示“对不起，你不能使用该系统！”字样。界面如图7-1所示。 Shell 函数 执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。 语法：Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这些命名参数： 部分 描述 pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 windowstyle 命名参数有以下这些值： 常量 值 描述 vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。 VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 2．设计应用程序，运行效果如图7-2所示。要求：当单击“打开”按钮时，弹出“打开”对话框，选择图像文件，并将其显示在图像框控件中；单击“字体”按钮时，弹出“字体”对话框，选择需要的字体、字形、字号后，在文本框控件中以指定的字体将文字显示出来；单击“颜色”按钮时，弹出“颜色”对话框，可选择需要的字体颜色。 通用对话框不是VB系统的标准控件，使用时需要添加到工具箱中。在“部件”对话框中 选择“Microsoft Common Dialog Control 6.0”选项，可以将其添加到工具箱中。 1、显示“打开对话框” CommonDialog1.Filter = Bmp(*.bmp)|*.bmp|Jpg(*.jpg)|*.jpg CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) Filter属性 用于指定在对话框的文件列表框中显示的文件的类型。通常被称为过滤器。 此属性应该在对话框被显示之前设定。 过滤器的书写格式为： 文件说明 | 文件类型 如果有多个过滤器，它们之间可以通过“|”来隔开。 FilterIndex属性 当为一个对话框要指定一个以上的过滤器时， 需使用FilterIndex属性确定哪一个作为默认过滤器显示。 2、显示字体对话框 系统具有两种类型的字体对话框，一种是供屏幕显示用的字体，另一种是提供给打印机打印的字体，在使用字体对话框之前，我们需要设定“字体”对话框的Flags属性来指定显示哪种对话框。还可以通过Flags属性定制一些显示细节，例如“删除线”“下划线”等。 CommonDialog1.Flags = cdlCFBoth CommonDialog1.ShowFont On Error Resume Next Text1.FontName = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontSize = CommonDialog1.FontSize 3、显示颜色对话框 该对话框可供用户选择颜色，并由对话框的Color属性返回或设置选定的颜色。 CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color 常数 描述 CdlCFScreenFonts 只列出系统支持的屏幕字体 CdlCFPrinterFonts 只列出指定的打印机支持的字体 CdlCFBoth 列出可用的打印机和屏幕字体。 CdlCF