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

程序运行后，单击“打开”按钮即弹出如图所示的对话框 从控件的filename属性中获取选定的路径及文件名

例8.4设计一个“打开”对话框，并将选中 文件的文件名及内容显示在窗体上的相应 控件中。窗体外观如下图所示：

private sub cmdopen_click() commondialog1.action = 1 lblfile.caption = commondialog1.filename filestr = "" open commondialog1.filename for input as #1 do while not eof(1) line input #1, filestr1 filestr = filestr + filestr1 + chr(13) + chr(10) loop txtfile.text = filestr close #1 end sub

private sub cmdexit_click() end end sub

8.4.2‖保存”对话框

建立一个“保存”对话框和建立“打开”对话框的过程相似，即可以在设 计阶段通过属性页进行设置，也可以在程序运行时设置各属性值。 例8.5在窗体上添加一个通用对话框和一个命令按钮，当程序运行时，单击 命令按钮，打开一个“保存”对话框。

private sub cmdsave_click()

commondialog1.dialogtitle = "保存文件" commondialog1.filter = "所有文件|*.*|文本文件|*.txt" commondialog1.filterindex = 2 commondialog1.flags = 6 commondialog1.action = 2 open commondialog1.filename for output as #1 print #1,txtfile.text close #1

end sub

8.4.3”颜色”对话框

许多windows应用程序都有“颜色”对话框，使用户能够自已选 择所需的颜色。当通用对话框控件的action属性的值为3时，打开 颜色对话框。 例子 单击下图“设置颜色”按钮，打开“颜色”对话框，利用“颜 色”对话框将文本框中的文字改变颜色。

代码实现

private sub cmdcolor_click()

commondialog1.color=rgb(255,0,0) commondialog1.action = 3 txtfile.forecolor = commondialog1.color

end sub 有关的属性： color属性:设置或返回选择的颜色。 flags（标志）属性：用来定义对话框的格式。 1 使color属性定义的颜色在首次显 示对话框时显示出来。 2 打开的对话框，包括“自定义颜色” 窗口。 4 不能使用“规定自定义颜色”按钮。 8 显示一个帮助按钮。

flags的值为2时，“颜色”对话框的外观

8.4.4‖字体”对话框

在前面几章的例题中设置属性时，已用过属性窗口中的font属性来产生 一个“字体”对话框，并从中选择字体的大小，为了方便windows应用 程序的设计，vb 也允许用户根据需要设计“字体”对话框。当 action=4时，定义并打开一个“字体”对话框。 例子：将上例中添加“设置字体”的功能，单击“设置字体”按钮。打 开“字体”对话框，可改变文本框中的字体。

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