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

例：制作一个电子表

在窗体上添加计时器控件，interval的属性值为1000，

程 序 启 动 时 ， 计 时 器 处 于 工 作 状 态 （ enabled 的 值 为 true），用标签控件制作电子表，单击“暂停”按钮， 电子表暂停工作，单击“开始”按钮，电子表继续工作。

代码实现：

private sub command1_click() if command1.caption = "暂停" then timer1.enabled = false command1.caption = "开始" else timer1.enabled = true command1.caption = "暂停" end if end sub private sub command2_click() end end sub private sub timer1_timer() label1.caption = time$ end sub

使用图像框和计时器控件制作

第10章 菜单设计

应用程序通过菜单为用户提供一组命令 菜单一般分为两种：即下拉式菜单和弹出式菜单 10.5.1 下拉式菜单 1.下拉式菜单的结构 下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单

访问键 快捷键 子菜单提示符

顶层菜单 菜单项

子菜单项

复选标记

分隔线

建立菜单的步骤：

―标题”(caption)输入框 供输入标题，也会同时显示在菜单显示区。菜单项 的访问键，用“(&字符)‖格式 “名称”(name)输入框 “索引”(index)输入框 “快捷键”列表框 “帮助上下文id‖输入框 “协调位置”列表框 “复选”框 “有效”框 “可见”框

10.3 菜单的click事件 除分隔线以外的所有菜单元素都能识别click事件。

建立菜单：

1.建立主菜单 2.建立子菜单 3.设置快捷键 4.设置访问键（符号“&‖的作用，访问键的使用）。 5.添加分隔线（符号“-‖的作用）

clipboard(剪贴板)的使用

把文本数据送往剪贴板： clipboard.settext 数据 例：把在文本框（text1）中选中的文本送往剪贴板。 clipboard.settext text1.seltext 把图片数据送往剪贴板 clicpboard.setdata 数据 返回剪贴板的文本数据 目标位置=clipboard.gettext 例：返回剪贴板的数据到文本框（text2）的当前光标位置 text2.seltext=clipboard.gettext 返回剪贴板的图片数据 目标位置=clipboard.getdata

编写代码：

private sub mnueditcopy_click() if txtt1.sellength > 0 then clipboard.settext txtt1.seltext end if end sub private sub mnueditcut_click() if txtt1.sellength > 0 then clipboard.settext txtt1.seltext txtt1.seltext = "" end if end sub private sub mnueditpaste_click() if len(clipboard.gettext) > 0 then txtt2.seltext = clipboard.gettext end if end sub

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