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

置空值 表项个数

private sub cmdadd_click() ‖添加” flag=0 if len(combo1.text) > 0 then for i=0 to combo1.listcount-1 if combo1.text=combo1.list(i) then flag=1 end if next i if flag=0 then combo1.additem combo1.text text1.text = combo1.listcount end if else msgbox ―请输入课程名称” end if

end sub

private sub cmddel_click() ―删除” if combo1.listindex <> -1 then -1表示无表项 combo1.removeitem combo1.listindex 删除已选定的表项 text1.text = combo1.listcount else msgbox ―请选择要删除的课程” end if end sub private sub cmdclear_click() ―全清” combo1.clear text1.text = combo1.listcount end sub private sub cmdexit_click() end end sub

7.3滚动条

1.滚动条的用途

为不能自动支持滚动的应用程序和控件提供滚动功能，也可作为数据 输入的工具。 水平滚动条(hscrollbar)和垂直滚动条(vscrollbar) 最小值(min)，最大值(max) ；移动滚动块时，代表的值随之改变

2. 常用属性

(1)min、max属性： min属性的默认值为0，max属性的默认值为 32767。 (2)value属性：设置滚动块在滚动条中的位置值 (3)smallchange:单击滚动条两端的箭头，滚动条值的变化量。 (4)largechange：单击箭头和滚动块之间的空白区域，滚动条值的变 化量。

3. 事件

滚动条控件可以识别10个事件，其中最常用的是scroll和 change事件 (1)scroll事件：当用鼠标拖动滚动块时，即触发 scroll事件 (2)change事件：当改变value属性值时，即触发 change事件

当释放滚动块、单击滚动条内空白处或滚动箭头时， change事件就会发生。

例7.4 设计一个调色板应用程序

建立三个水平滚动条作为红、绿、蓝三种基本颜色的输入工具，合成的 颜色显示在右边的标签中(图10.17)，用其背景颜色属性backcolor值的改 变实现合成颜色的调色

说明：根据调色原理，基本颜色有红、绿、蓝三种，选 择这三种颜色的不同比例，可以合成所需要的任意颜 色

(1)创建应用程序的用户界面和设置对象属性 三个水平滚动条名称从上至下分别为hscroll1、 hscroll2、hscroll3 其max属性均设置为255，min属性均设置为0， smallchange属性设置为1，largechange属性设置 为10，value设置为0。 显示合成颜色的标签名为label1

(2)编写程序代码

功能要求：通过操作(单击或拖动)滚动条，直接修改rgb设置，从而得到标 签背景所需的颜色 private sub hscroll1_change() label1.backcolor = rgb(hscroll1.value, _ hscroll2.value, hscroll3.value) end sub private sub hscroll2_change() label1.backcolor = rgb(hscroll1.value, _ hscroll2.value, hscroll3.value) end sub金金金金 private sub hscroll3_change() label1.backcolor = rgb(hscroll1.value, _ hscroll2.value, hscroll3.value) end sub

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