vb程序设计教程第三版第三章PPT课件

[对象名称].CurrentX [=x] [对象名称].CurrentY [=y]
6
例：下面程序将图片框相对于窗体居中显示，图片框中的文字
居中显示。
Private Sub Form_Click()
Dim str1 As String str1 = "图片框相对窗体、文字相对图片框居中显示" Picture1.FontName = "宋体" Picture1.FontSize = 16
WordWrap False
AutoSize False
Font
宋体、三号
说明 命令按钮标题
标签控件的内容 不自动换行 控件不能自动调整
（a）设计时
（b）运行结果
11
3.1.2 数据输入
1. 使用“文本框”控件进行输 入
12
例1：如图所示，在设计时建立三个标签控件和三个文本 框控件。要求在运行时，点击相应的计算按钮，会显示正 确的计算结果。
当前位置+ (n Mod 行宽) Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab 函数从对象的左端开始记数，而Spc函数只表示两个输出项之间 的间隔。
5
3. 使用位置属性
位置属性CurrentX和CurrentY常用来把文本精确地输出到 窗体、图片框或打印页上。这两个属性分别表示当前输出位 置的横坐标与纵坐标。 格式：
Private Sub Command1_Click() Dim A As Integer Dim B As Integer Dim Sum As Single A = Text1.Text B = Text2.Text Sum = A + B Text3.Text = Sum
2
2. 与Print方法有关的函数 与Print相配合的函数：
（1）Tab函数 与 Print # 语句或 Print 方法一起使用，对输出进行定位。格 式：
Tab[(n)] 当在一个 Print方法中有多个Tab函数时，每个Tab函数对应 一个输出项，各输入项之间用分号隔开。
3
例 Private Sub Form_Click()
Picture1.TextWidth(str1) / 2
'输出水平位置
Picture1.CurrentY = Picture1.ScaleTop + Picture1.Height / 2 - _
Picture1.TextHeight(str1) / 2
'输出垂直位置
Picture1.Print str1
第3章 结构化程序设计
3.1 顺序结构程序设计 3.2 选择结构程序设计 3.3 循环结构结构设计
1
3.1 顺序结构程序设计
3.1.1 数据输出
1. Print方法 Print方法的语法格式为：
object.Print {Spc(n) | Tab(n)} expression charpos 其中： object：窗体、图片框、打印机等对象。 Expression：要打印的数值表达式或字符串表达式。 Charpos：逗号或分号，指定下个字符的插入点。
End Sub
由运行结果可知，单击命令按钮后，标签控件可以自动适用内容， 并自动换行，且加上边框，背景色为白色以突出显示文字。
10
对象
属性
设计时属性值
Command1 Caption
单击此按钮，令WordWrap=True， AutoSize=True
Label1
Caption
将WordWrap属性设置为True，则Caption属 性的内容自动换行并垂直扩充；将AutoSize 属性设置为True，控件自动适应内容
'在图片框中输出字符串str1
End Sub
各对象的其他参数保持默认值。程序设计时和运行结果见图4-2。无论怎样调整窗体，
只要单击窗体，都会按题目要求调整图片框和文本的位置。TextWidth()为求文本宽
度的函数。
7
（a）设计时
（b）运行时
8
4. 清除方法CLS
Cls 将清除图形和打印语句在运行时所产生的文本和图形， 清除后的区域以背景色填充。但是设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。
Picture1.Left = (ScaleWidth - Picture1.Width) / 2
Picture1.Top = (ScaleHeight - Picture1.Height) / 2
'图片框中文字的字体 '图片框中文字的字号 '图片框水平位置 '图片框垂直位置
Picture1.CurrentX = Picture1.ScaleLeft + Picture1.Width / 2 - _
标签（Label）是VB中最常用的输出文本信息的工具，目前 几乎完全取代了Print方法。 例：建立一个Label控件和Command控件。加入如下代码，运 行程序。
Private Sub Command1_Click() Label1.WordWrap = True Label1.AutoSize = True Label1.BorderStyle = 1 Label1.BackColor = &H80000014
End Sub
4
（2）Spc函数
在显示或打印列表中的下一个表达式之前插入n个空白数，n为 0~32767之间的整数。Spc函数与输出项之间用分号隔开。 格式：
Spபைடு நூலகம்(n)
如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打 印的空白之后。如果 n 大于输出行的宽度，则 Spc 利用下列公式 计算下一个打印位置：
Print "123456789" Print Tab(5); "5"; Tab(10 - 2); "8", _
" '注意这里10-2>当前位置5，故同行显示" Print Tab(5); "5"; Tab(10 - 6); "4"; Tab(20 - 15); "5"; _
" '注意这里10-6<当前位置5，故换行显示；20-15>当前位 置4，故同行显示"
语法： [〈对象名称〉.]Cls
例如，为了在运行时双击窗体时清除图片框中的文本，编 写的程序为：
Private Sub Form_DblClick() Picture1.Cls '清除图片框中的文本
End Sub 如果将代码由Picture1.Cls改为.Cls，将无法清除图片框 中的文本。
9
5. 使用“标签”控件的输出