第三章数据输入输出2.pptVIP

示例9或例3-6：使用信息对话框输出各种票额钞票张数的付款方案 设计步骤如下： ◇建立应用程序用户界面（如下图左） 数据输入 示例9 Private Sub Command1_Click() x = Val(Text1.Text) Y1 = x \ 100 : x = x Mod 100 Y2 = x \ 50 : x = x Mod 50 Y3 = x \ 10 : x = x Mod 10 Y4 = x \ 5 : x = x Mod 5 Y5 = x \ 2 : x = x Mod 2 Text1.SelStart = 0 : Text1.SelLength = Len(Text1.Text) : Text1.SetFocus a = ================================= Chr(13) a = a Format(Y1 张 百元票,, @@@@@@@@@@@@) _ Format(Y2 张 50元票, @@@@@@@@@) Chr(13) a = a Format(Y3 张 10元票,, @@@@@@@@@@@@@) a = a Format(Y4 张 5元票, @@@@@@@@@) Chr(13) a = a Format(Y5 张 2元票,, @@@@@@@@@@@@@) a = a Format(x 张 1元票, @@@@@@@@@) Chr(13) a = a ================================= Chr(13) a = a 共计 Text1.Text 元 C = MsgBox(a, 0, 应发工资) End Sub 数据输入 图片框（PictureBox）和图像框（Image）都用于显示图形，它们可以显示.bmp(位图)，.ico(图标)，.wmf(图元)，.gif和.jpg等类型的图形文件 ◇ 图片框（PictureBox）可以作为其他控件的容器 ◇ 常用属性 与窗体属性相同的属性：Enabled，Name，Visible，FontBold，FontName，FontSize，AutoRedraw，Height，Left，Top，Width等 ⑴ Picture属性 该属性用于设置控件要显示的图形。该属性无论是在属性窗口中设置还是在运行时由程序代码设置，均需要完整的路径和文件名。 ⑵ AutoSize属性 返回或设置控件大小是否自动调整大小，以完整显示图形。如果设置为True，图片框根据图形大小自动调整。如果设置为False，保持原尺寸，当图形比图片框大时，则超出部分会自动被截去。 图片框 ⑶ CurrentX和CurrentY属性 用来返回或设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。这两个属性只能在运行时使用，语法格式： [对象名称.]CurrentX[= x] [对象名称.]CurrentY[= y] “对象”可以是窗体、图片框或打印机。如果省略“对象”，则指当前窗体；如果省略“=x”、“=y”，则返回当前的坐标值。 ⑷ Align属性 设置图片框在窗体中的显示方式。如表3-6所示。 ◇⒉ 图片框常用事件及方法 图片框控件与窗体一样，支持Click和DblClick等事件。支持图形方法和Print方法。图形方法有Circle（画圆）、Line（画直线）和Point（画点）等。 图片框 数据输出 ?图片框的使用 设置Picture属性可以显示和消除图形；用Print方法可以向图片框输出文本；用图形方法可以在图片框中画图形 输出文本到图片框（PictureBox） 图片框控件可以输出图形、图像、文本，还可以像窗体一样作容器包含其他控件。 示例5：使用Print方法在图片框中输出字符串或表达式的值，如下图 示例5 图形文件的装入 ⒈ 在设计阶段装入图形文件 设计阶段装入图形有以下两种方法： ⑴ 使用对象的Picture属性。在对象的“属性窗口”属性列表中选择Picture属性，Visual Basic将弹出一个“加载图片”对话框，从中可以选择图形文件并将其加载到图片框中。 ⑵ 使用剪贴板。利用“编辑/粘贴”菜单功能，将剪贴板中的图片粘贴到图片框中。 2. 在运行期间装入图形文件 运行时装入图形有以下3种方法： ⑴ 使用LoadPicture函数装入图形文件 使用LoadPicture函数可以将指定的图形文件装入，并将该图形赋