如何做可以选择文本文件的字幕效果还可以设置背景图片.docVIP

如何做可以选择文本文件的字幕效果还可以设置背景图片 使用 RichTextBox 控件 RichTextBox 控件可用于输入和编辑文本，它同时提供了比常规的 TextBox 控件更高级的格式特性。 RichTextBox 控件提供了一些属性，通过这些属性，可对该控件中任何部分的文本使用不同的格式。用这些属性，可以将文本变为粗体或斜体，改变文本的颜色，创建上标或下标。可以调整段落的左右缩进值，还可以使用悬挂式缩进。 用途 作为“无底”的文本框，可用于编写阅读特别大的文本文件的应用程序。 在任何应用程序中实现功能完备的文本编辑器。 特性 以 RTF 格式或 ASCII 文本格式打开或保存文件。可以使用该控件的方法（LoadFile 和 SaveFile），直接读写文件。也可以用该控件的属性，比如 SelRTF 和 TextRTF，联合 Visual Basic 的文件输入输出语句读写文件。 将 .rtf 文件的内容装入 RichTextBox 控件，只需将该文件（比如从 Windows 95 “资源管理器”中）的内容直接拖入该控件，或者将其它应用程序（比如 Microsoft Word）中使用文件的突出显示部分直接拖入该控件。 设置 FileName 属性，将 .rtf 或 .txt 文件的内容装入该控件。 用 SelPrint 方法打印 RichTextBox 控件中的全部或部分文本。 将 RichTextBox 控件绑定到 Data 控件，可以处理 Microsoft Access 数据库的 Memo 字段，或者其它数据库中大型的文本字段（比如 SQL 服务器中的 TEXT 数据类型）。 在运行时，用 OLEObject 集合的 Add 方法，将嵌入对象，比如位图、图标、应用程序图标，加到该控件中。在设计时或运行时，可以拖放任何嵌入对象到控件中，包括文档，比如 Microsoft Excel 的电子表格和 Microsoft Word 文档等。 在设计时设置滚动条 按照缺省规定，RichTextBox 没有滚动条。在运行时，如果在该控件中装入了较大的文件，最终用户就不能看到文件的全部内容了。为使用户能够方便地进行滚动，可将其 ScrollBars 属性设置为 1（水平的）、2（竖直的）或 3（两个都有）。这必须在设计时完成，因为 ScrollBars 属性在运行时是只读的。 用 LoadFile 和 SaveFile 方法打开和保存文件 用 LoadFile 和 SaveFile 方法可以方便地为 RichTextBox 控件打开或保存 RTF 文件。要打开文件，可用 CommonDialog 控件提供路径名，如下所示： Private Sub OpenFile() RichTextBox 控件的名称是“rtfData”。 CommonDialog 名为“dlgOpenFile”。 为文件名声明 String 变量。 显示 “打开文件”对话框， 并将变量设置为文件名。 Dim strOpen As String dlgOpenFile.ShowOpen strOpen = dlgOpenFile.FileName 用 LoadFile 方法打开该文件。 rtfData.LoadFile strOpen End Sub 用 SaveFile 方法，保存文件也同样简便： Private Sub SaveFile() Dim strNewFile As String dlgOpenFile.ShowSave strNewFile = dlgOpenFile.FileName rtfData.SaveFile strNewFile End Sub 注意 如果文件中包含了该控件不能支持的 RTF 编码，仅相关的文本在 RichTextBox 控件中将不会出现。 用 SelFontName、SelFontSize