richtextbox获取某行_richtextbox 光标_richtextbox和textbox(34)

private sub command1_click() if option1.value then text1.fontname = "宋体" else text1.fontname = "幼圆" end if if option3.value then text1.fontsize = 16 else text1.fontsize = 20 end if if option5.value then text1.forecolor = rgb(0, 0, 255) else text1.forecolor = rgb(255, 0, 0) end if end sub

6.5 控件数组

两类数组：一般数组和控件数组 6.5.1 控件数组的概念 控件数组是一组具有相同名称、类型和事件过程的控件 例如，label1(0)，label1(1)，label1(2)，…… 但label1, label2, label3, ……不是控件数组 控件数组具有以下特点： (1)相同的控件名称(即name属性)； (2)控件数组中的控件具有相同的一般属性； (3)所有控件共用相同的事件过程。 以下标索引值(index)来标识各个控件，第一个下标索引号为0

6.5.2 控件数组的建立

建立控件数组有三种方法： (1)给控件起相同的名称 (2)将现有的控件复制并粘贴到窗体等上面

6.5.3 控件数组的使用

例6.7

按图6.4设计窗体，其中一组(共5个)单选按钮 构成控件数组，要求当单击某个单选按钮时，能够改变 文本框中文字的大小

界面如下：

控件数组

设计步骤：

(1)设计控件数组option1，其中包含5个单选按钮对象 具体操作方法：

① 画出第一个单选按钮控件，名称采用默认的option1。此时该控件处于选定状 态。 ② 单击工具栏上的“复制”按钮(或按ctrl+c)。 ③ 单击工具栏上的“粘贴”按钮(或按ctrl+v)，此时系统弹出一个如图6.5所示的 对话框

单击“是”，就建立一个控件数组元素，其index属性为1，而已画出的第一个控件的 index属性值为0。 通过鼠标拖放可以调整新控件的位置

④ 继续单击“粘贴”按钮(或按ctrl+v)和调整控件位置，可得到控件数组中 的其他三个控件，其index属性值分别为2，3和4(即从上而下为0，1，2， 3，4) ⑤ 设置控件数组各元素(从上而下)的caption属性分别为10，14，18，24和 28 (2)建立一个文本框text1，其text属性设置为“控件数组的使用”。再 建立一个标签，其caption属性为“字号控制” (3)编写程序代码

private sub form_load() option1(0).value = true 选定第一个单选按钮 text1.fontsize = 10 设定文本框中的字号 end sub private sub option1_click(index as integer) select case index 系统自动返回index值 case 0 text1.fontsize = 10 case 1 text1.fontsize = 14 case 2 text1.fontsize = 18 case 3 text1.fontsize = 24 case 4 text1.fontsize = 28 end select end sub

控件数组的应用：

习题：课后6-6

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-34.html