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

图标的类型及对应的值：

默认按钮 及对应的值

符号常量 vbdefaultbutton1 vbdefaultbutton2 vbdefaultbutton1 符号常量 vbok vbcancel vbabort vbretry vbignore vbyes vbno 值 0 256 512 值 1 2 3 4 5 6 7 默认的活动按钮 第1个按钮是默认的活动按钮 第2个按钮是默认的活动按钮 第3个按钮是默认的活动按钮 所对应的按钮 ―确定”按钮 ―取消”按钮 ―终止”按钮 ―重试”按钮 ―忽略”按钮 ―是”按钮 ―否”按钮

msgbox函数返回的值

msgbox的两种格式

1. 返回一个值。从返回值中可以知道用户按下的是哪个 按钮（表3.5）。例如

y = msgbox(“输入文件名是否正确”,52,”请确认”) 若y为1，表示用户按下的是“确定”按钮，依此类推。 程序通过判断y值(如采用条件语句if-then)，再根据用户按 下的是什么按钮，再做不同的处理。

2. 不返回值。例如

msgbox “输入文件名是否正确”,52,”请确认” msgbox “输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么按钮。这种格式 可以使用在不需要知道用户按钮情况的场合。

例题：8.1

设计一个程序，在窗体上放置一个标签、一个文本框和三个命令按钮，如 下图：

程序运行后，用户在文本框中输入一个密码，用这个密码与程序中事先给 出的密码进行比较，如果两个密码不相同，系统就会显示一个消息框， 提示用户输入的不正确；如果两个密码相同，也显示一个消息框，告诉 用户输入的密码正确，如果用户选择了消息框上的“取消”按钮，则结 束程序运行。单击“结束”按钮，结束程序的运行。

8.2 输入对话框

用于产生一个能接收用户输入的对话框 格式： 变量=inputbox(提示[,标题][,缺省值][,xpos][,ypos])

举例 filename$=inputbox(―请输入文件名(不超过8个字符)‖，”文件 名”，”vbfile‖) 将产生一个如下对话框

filename$=inputbox("请输入文件名" + chr(13) + "(不超过8个字符)", "文件名", "vbfile")

例8.2

从输入框中输入圆的半径，计算圆的周 长和面积

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

private sub command1_click() dim r as single, k as single, s as single r = val(inputbox("请输入圆的半径", "计算圆的周长和面积")) k = 2 * 3.14159 * r s = 3.14159 * r * r text1.text = k text2.text = s msgbox ―计算已完成”,64 , ―例8.2" end sub private sub command2_click() end end sub

8.3自定义对话框

创建自定义对话框就是建立一个窗体，在窗体上根据需要放置控件， 通过设置控件属性值来定义窗体的外观 因为对话框没有控制菜单框(标题栏左侧)和最大化、最小化 按钮，不能改变其大小，所以应设置以下对话框的属性。 borderstyle 属性值设置成3，设置窗体的边框样式是双线边框，大 小固定。 用窗体自定义对话框，一般步骤： (1)向工程添加窗体 (2)在窗体上创建其他控件对象，定义对话框的外观 (3)设置窗体和控体对象的属性 (4)在代码窗口中创建事件过程

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