程序设计基础——VisualBasic教程课件作者周黎钱瑛周阳花第3章节VisualBasic界面设计（下）.pptVIP

第3章 Visual Basic界面设计（下） 学习重点 键盘鼠标事件和拖放。 菜单设计。 常用ActiveX控件介绍。 图形和多媒体制作。 本章内容 3.1 键盘和鼠标事件 3.2 拖 放 3.3 菜 单 设 计 3.4 常用ActiveX控件 3.5 图 形 绘 制 3.6 多媒体处理 3.4.8 RichTextBox控件 1．RichTextBox控件的常用属性 2．RichTextBox控件的方法 RichTextBox控件的添加需要选择“Microsoft RichTextBox Control 6.0”部件。 RichTextBox控件和TextBox控件一样可用于文本的输入和编辑，但RichTextBox控件提供了比TextBox控件更高级的格式特性。 打印 SelPrint 保存文件 SaveFile 搜索文本 Find 打开文件 LoadFile 功 能 说 明 方 法 名 功 能 说 明 方 法 名 3.4 常用ActiveX控件 当前选择点在的段落是否有项目符号样式 SelBullet 选定RTF文档内容 SelRTF 字体大小 SelFontSize 字体类型 SelFontName 字体颜色 SelColor 下划线 SelUnderLine 删除线 SelStrikethru 斜体 SelItalic 粗体 SelBold 文本对齐方式 SelAlignment 功 能 说 明 属 性 名 指定所选段落第一行与后面各行左边之间的距离 SelHangingIndent 制表符的绝对位置 SelTabs 制表符数目 SelTabCount 文本是否能被编辑 SelProtected 控件右边缩排的字数 SelIndent 文本右边向右边缩排的字数 SelRightIndent 选中的字符 SelText 选中文本的长度 SelLengh 选择文本的开始 SelStart 确定文本出现的位置状态 SelCharoffset 功 能 说 明 属 性 名 例3-19 Private Sub Command1_Click() RichTextBox1.LoadFile App.Path + \formula.txt, 1 打开本应用程序所在路径下的formula.txt文本文件 End Sub Private Sub Command2_Click() Dim name As String name = InputBox(输入新文件名！, 保存文本文档) 文件名由用户输入 RichTextBox1.SaveFile App.Path + \ + name + .rtf, 0 End Sub 单击“打开”按钮后界面 Private Sub Command3_Click() If RichTextBox1.SelText = Then MsgBox 先选中文本！ Else RichTextBox1.SelCharOffset = -100 RichTextBox1.SelFontSize = 8 End If End Sub Private Sub Command4_Click() If RichTextBox1.SelText = Then MsgBox 先选中文本！ Else RichTextBox1.SelCharOffset = 100 RichTextBox1.SelFontSize = 8 End If End Sub 上、下标设置后界面 3.5 图 形 绘 制 3.5.1 坐标系统 厘米 7 像素 3 毫米 6 磅 2 英寸 5 Twip（缇），默认值 1 字符 4 用户定义 0 功 能 说 明 取 值 功 能 说 明 取 值 ScaleMode属性值及其说明 自定义坐标系统的方法 1．ScaleTop属性/ScaleLeft属性 /ScaleWidth属性/ScaleHeight属性 2．Scale方法 [对象名.]Scale [(x1,y1)－(x2,y2)] 格式说明：(x1,y1)表示对象左上角坐标，（x2,y2）表示对象右下角坐标，Visual Basic根据这两组坐标参数计算出ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight 4个属性的值。若参数默认时，则采用默认的坐标系。 例如，Form1.Scale(-10,-10)-(20,-10) 3.5