VisualBasic程序设计（第二版） 丁爱萍 第4章 赋值与输入输出.ppt

第4章 赋值与输入输出 4.1 数据输出 4.2 常用基本语句 4.3 利用文本框进行数据输入 4.4 使用对话框 习题四 4.1 数 据 输 出 4.1.1 直接输出到窗体 1. 使用Print方法 使用Print方法可以在窗体上输出文本字符串或表达式的值，并可在其他图形对象或打印机上输出信息。其语法格式为 [〈对象名称〉.] Print [〈表达式列表〉] [{, | ;}] 【例4-1】 使用Print方法在窗体中直接输出字符串或数值表达式的值，如图4.1所示。 设计步骤如下： (1) 建立应用程序用户界面。选择“新建”工程，进入窗体设计器，在窗体中增加一个命令按钮Command1，如图4.2所示。 (2) 按表4-1设置对象属性。 (3) 编写代码。 图4.1 使用Print方法 图4.2 建立程序界面 2. 与Print方法有关的函数 为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。 1) Tab函数 在Print方法中，可以使用Tab函数来对输出进行定位。 2) Spc函数 在Print方法中，还可以使用Spc函数来对输出进行定位。 【例4-2】 使用Tab和Spc函数进行对齐输出，如图4.3所示。 Private Sub Form_Click() Print Print Tab(5); 学号; Tab(20); 姓名; Tab(30); 性别; Tab(40); 入学成绩 Print Print Tab(5); 2000101; Tab(20); 丁叮; Tab(30); 女; Tab(40); 650 Print Tab(5); 2000102; Tab(20); 柳洋洋; Tab(30); 男; Tab(40); 668 Print Tab(5); 2000103; Spc(8); 李骊; Spc(6); 女; Spc(8); 640 Print Tab(5); 2000132; Spc(8); 杜小红; Spc(4); 女; Spc(8); 635; End Sub 3. 使用位置属性 要精确地把文本输出到窗体、图片框或打印页上，可以用位置属性CurrentX和CurrentY。这两个属性分别表示当前输出位置的横坐标与纵坐标。 如果要控制所显示或打印文本的大小和外观，可以用VB中的字体属性，各字体属性及其名称如表4-2所示。 表4-2 字体属性及名称 【例4-3】 如图4.4所示，按指定尺寸、颜色和外观，把字符串“风光无限好”输出到窗体的中间。 设计步骤如下： (1) 建立应用程序用户界面与对象属性的设置参见例4-1。 (2) 编写命令按钮的Click事件代码： 图4.4 使用位置属性CurrentX和CurrentY示例 Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = 隶书 设置输出文本的字体 FontSize = 30 设置输出字体的大小 ForeColor = QBColor(15) 设置输出文本的前景色，即字体的颜色 BackColor = QBColor(8) 设置输出文本的背景色，即窗体的颜色 a = 风光无限好 textW = TextWidth(a) / 2 TextWidth(a)表示字符串a的宽度 textH = (TextHeight(a) + Command1.Height) / 2 TextHeight(a)表示字符串a的高度 CurrentX = ScaleWidth / 2 - textW 设置输出的水平位置 CurrentY = ScaleHeight / 2 - textH