Visual Basic 程序设计 第四章 程序的输入和输出
主要内容 利用控件输入、输出 对话框 Print方法 文本框的 Text属性,I/O 标签的 Caption属性,Output 输入对话框函数InputBox 消息对话框函数MsgBox Print方法
输入对话框 InputBox(Prompt,Title,Default,Xpos,Ypos) 返回用户输入(String类型) 例:a=InputBox("n=","输入","1")
消息对话框 MsgBox(Prompt,Buttons,Title) 返回用户所单击的按钮对应值 Prompt 提示字符串 图标
消息对话框中的按钮 常量名称 数值 按钮 vbOKOnly 确定 vbOKCancel 1 确定,取消 vbAbortRetryIgnore 确定 vbOKCancel 1 确定,取消 vbAbortRetryIgnore 2 终止,重试,忽略 vbYesNoCancel 3 是,否,取消 vbYesNo 4 是,否 vbRetryCancel 5 重试,取消
消息对话框中的图标 常量名称 数值 图标 vbCritical 16 vbQuestion 32 vbExclamation 48 vbInformation 64
MsgBox函数的返回值 常量名称 数值 用户点击的按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否
Print方法 格式: 可以用问号(?)代替 Print 以简化输入 分号(;)表示后面内容将接着输出 逗号(,)表示后面内容将跳至下个制表站输出 制表站位置:n*14+1 回车表示后面内容将从下一行开始输出 可以用问号(?)代替 Print 以简化输入 例
Private Sub Command1_Click() Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9" Print "ax", "but", "color" Picture1.Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9" Picture1.Print "more", "no", "yes" End Sub 制表站的位置: 1,15,29,… (14n+1)
具有Print方法的对象 窗体(Form) 图片框(PictureBox) 立即窗口(Debug) 打印机(Printer) 说明:引用所在窗体时,对象名可以省略,也可以用Me代表
在Print方法中常用的函数 Tab(n) 跳至第n列,输出后面内容 Spc(n) 插入n个空格 例: Print Tab(10);"学号";Tab(20);"姓名";Tab(30);"性别" Print "学号";Spc(4);"姓名";Spc(6);"性别"
与Print有关的属性 AutoRedraw(自动重画)属性为False(初值)时,用Print方法和绘图方法输出的内容被其他窗体遮挡后会被抹去。为此,应将该属性设置为True 改变CurrentX和CurrentY属性(当前输出位置)可以改变下个输出的位置 例如: CurrentX=Width/2 : CurrentY=Height/2 Print 0 ‘在窗体中心位置输出 0
输出字体与颜色 属性 意义 类型 FontName 字体名 String FontSize 大小 Single FontBold 粗体 Boolean FontItalic 斜体 FontUnderline 下划线 ForeColor 前景色 Long
与Print有关的方法 可用Cls方法清除用Print方法和绘图方法输出的内容,格式: [对象名.]Cls 清除后,当前座标回到对象的左上角
文本框的主要属性 Text 显示的文本,缺省属性 MultiLine 为True时允许多行显示 ScrollBar 滚动条,只有在MultiLine属性为True时才有意义 PassWordChar 口令字符。代替显示用户输入的字符。只当MultiLine属性为False时才起作用。 Locked 禁止用户输入,使文本框只能输出
关于焦点(Focus) 事件:GotFocus和LostFocus 获得焦点和失去焦点。任何时刻只能有一个控件获得焦点。 方法:SetFocus 属性:TabIndex Tab键序 TabStop 允许/禁止获得焦点 没有TabStop属性的控件当然不会获得焦点。
滚动条-Hscrollbar和Vscrollbar Value= Min=0 滚动块 Max=100 主要属性 Max 最大值 Min 最小值 Value 当前值 LargeChange 大增量 SmallChange 小增量 事件 Change 值改变时 Scroll 滚动时 例