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

visible:设置命令按钮是否可见。 true:按钮可见，false:按钮不可见。

例子：显示系统日期与时间

窗体有一个标签和两个命令按钮“确定”和“取消”，单击 “确定”按钮或按回车键或按alt+o组合键，在标签中显示系统 日期及时间，单击“取消”按钮或按esc键或按alt+e组合键， 结束程序的运行。界面如下及属性设置：

在本例题中，同学们学会如何把按钮设置成缺省的活动按钮，和 取消按钮。如何设置按钮的访问键。如何使用键盘操作按钮。

代码实现： private sub cmdesc_click() end end sub private sub cmdok_click() label2.caption = now end sub

命令按钮的使用：

例子：显示系统日期和系统时间，窗体中有三个命令按钮“显示日期”、 “显示时间”、“退出”，单击“显示日期”按钮，在标签中显示系统 日期，单击“显示时间”按钮，在标签中显示系统时间，单击“退出”， 结束程序的运行。输出界面如下图：

代码实现：

private sub cmddate_click() label1.caption = date$ cmddate.enabled=false cmdtime.enabled=true end sub private sub cmdtime_click() label1.caption = time$ cmddate.enabled=true cmdtime.enabled=false end sub private sub cmdexit_click() end end sub 修改程序，实现功能：

标签中显示系统日期时，“显示日期” 按钮不可见，“显示时间”按钮可见， 标签中显示系统时间时，“显示时间” 按钮不可见，“显示日期”按钮可见。

命令按 钮的其它属性

style属性 设置命令按钮的外观. 0 普通外观 1 图片外观 picture属性：设置命令按钮上显示的图片。

6.2 复选框

作用：复选框具有两种状态 （1）选中：复选框中有“∨”标志。 （2）未选中：复选框中没有“∨”标志。 用户从两种方案中可以选择。 常用属性： name:设置名称 caption:设置复选框显示的文字标题。 alignment:设置复选框在文字标题的左侧或是右侧。 0 左 侧 1 右侧 value:设置复选框的状态。0 选中 1 未选中 2 不可用 style：设置外观属性。 0 普通外观 1 按钮外观 事件：click单击事件。

例6.3 用复选框来控制文字的字体、字型、

字号及颜色

(1)创建应用程序的用户界面和设置对象属性

多行文本框(带垂直滚动条)和四个复选框

(2)编写程序代码

功能要求：程序开始运行后，用户在文本框中输入一段文字 (如“复选框应用示例”)，然后按需要单击各复选框，则文字的 字体、字型、字号及颜色随之改变

代码实现：

private sub check1_click() if check1.value = 1 then 判复选框1是否选中 text1.fontname = "楷体_gb2312" else text1.fontname = "宋体" end if end sub private sub check2_click() if check2.value = 1 then 判复选框2是否选中 text1.fontitalic = -1 else text1.fontitalic = 0 end if end sub private sub check3_click() if check3.value = 1 then 判复选框3是否选中 text1.fontsize = 25 else text1.fontsize = 9 end if end sub

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