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

private sub mnuseting_click(index as integer) if index = 0 then commondialog1.flags = 259 commondialog1.showfont txtt1.fontname = commondialog1.fontname txtt1.fontsize = commondialog1.fontsize txtt2.fontname = commondialog1.fontname txtt2.fontsize = commondialog1.fontsize end if if index = 1 then commondialog1.showcolor txtt1.forecolor = commondialog1.color txtt2.forecolor = commondialog1.color end if end sub

菜单的控制

有效性控制

enabled:设置菜单项是否有效。 true 有效 false 无效 例：设置粘贴（mnueditpaste）菜单项有效 mnueditpaste.enabled=true

菜单项的复选标记

checked:设置菜单项是否带复选标记。 true 有复选标记 false 不带复选标记 例：设置清除（mnueditcls）带复选标记 mnueditcls.checked=true

增减菜单项

visible:设置菜单项是否可见。 true:可见 false 不可见 例：设置粘贴（mnueditpaste）菜单项不可见 mnueditpaste.visible=false

建立弹出式菜单

格式：[对象].popupmenu <菜单项名称> [flag],[x,[y]] x,y是弹出菜单的位置。如果省略，在单击的位置弹出菜 单。 flag=0 x的位置是左边界， flag=4 x的位置是中心位置， flag=8 x的位置是右边界

第十一章文件系统控件

11.1驱动器列表框

用来显示系统中的所有可用的驱动器名称。 常用属性 name:设置驱动器列表框对象的名称。初始名称：drive1,如修改名 称以drv开头。 drive:用来设置或返回当前驱动器的名称。在设计阶段不能使用这 个属性，必须在程序中赋值。 例：drive1.drive=‖c:‖ 设置c:为当前驱动器名称。 msgbox ―当前的驱动器是：” + drive1.drive 返回当前驱动器的 名称。 事件： change事件：当drive属性值发生改变时，触发change事件。

目录列表框

作用：用来显示当前磁盘驱动器的目录。 常用属性： name设置目录列表框对象的名称。初始名称：dir1 path:设置或返回当前的路径。 例：msgbox ―选中的目录是：” +dir1.path 返回当前的路径。 把驱动器列表框和目录列表框保持同步：即改变驱动器名称时，目 录列表框内容随之改变。 需要编写如下程序： private sub drive1_change() dir1.path=drive1.drive end sub 事件 change事件：当前驱动器的当前目录改变时，触发change事件

文件列表框

用来显示当前目录下的文件。 常用属性： name:设置文件列表框控件的名称：初值名称：file1 path:用来设置或返回当前路径。 filename:设置或返回文件名。 pattern:用来指定文件列表框中显示的文件类型。 例：file1.pattern=‖*.frm‖ 把驱动器列表框和目录列表框、文件列表框保持同步：即改变驱动 器名称时，目录列表框内的内容随之改变，文件列表框随之也 改变显示新目录下的文件内容。 private sub drive1_change() dir1.path=drive1.drive end sub private sub dir1_change() file1.path=dir1.path end sub

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