锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net对象的实例的简单介绍( 二 )

IT技术方法


Dim i As Integer
With cmbFonts
For i = 0 to Screen.Fonts.Count - 1
.AddItem Screen.Fonts(i).Text
End With
End Sub
Private Sub cmbFonts_Click()
rtfData.SelFontName = cmbFonts.Text
End Sub
重点 这些属性只影响选中的文本 ， 或者，如果没有选中文本，则影响当前光标位置之后键入的文本 。
格式化段落的缩进、悬挂式缩进和项目符号
RichTextBox 控件的另一个特性是它可以创建有缩进、悬挂式缩进和项目符号的段落 。这三种样式显示如下：
缩进和带项目符号的缩进 (rtf_3ind.bmp)
要使用 SelFontName、SelFontSize 和 SelFontColor 属性，最终用户必须选中一个或多个段落 。在这里，假设用户只选中了第二段，创建缩进和悬挂式缩进的代码如下所示：
'假设该控件的名称是“rtfData” 。
rtfData.SelIndent = .5
rtfdata.SelHangingIndent = 1.5
请注意用于设置 SelIndent、SelHangingIndent、BulletIndent 和其它属性的值，要依赖于 RichTextBox 控件的容器的 ScaleMode 属性 。例如 ， 如果 RichTextBox 控件的容器是 Form 对象，则将该 Form 对象的 ScaleMode 属性由 7（厘米）改为 1（缇）时，SelIndent 属性必须同时由 0.5（厘米）改为 283（缇） 。这是因为一厘米 = 567 缇 。
同时还要注意段落的 SelBullet 属性必须设置为 True ， 才能将该段设置为有项目符号的样式 。
用 SelChange 事件通知属性的变化
要通告用户选中的任何文本的当前属性，可以使用 SelChange 事件 。每当插入点改变 ， 或者选中内容被改变时，均会产生该事件 。下面的示例用 Toolbar 控件通告用户 SelBold 属性的变化 。
Private Sub rtfData_SelChange()
'重新设置 Toolbar 的 Button 对象的
' Value 属性 。该 Toolbar 控件的名称是
'“tlbRTF” 。
'SelBold 返回 0、-1 或 Null 。如果它为 Null
'则将其 Mi xedState 属性设置为 True 。
Select Case rtfData.SelBold
Case 0 '不是粗体 。
tlbRTF.Buttons("bold").Value = https://www.04ip.com/post/tbrUnpressed
Case -1 '粗体 。
tlbRTF.Buttons("bold").Value = https://www.04ip.com/post/tbrPressed
Case Else '混合状态 。
tlbRTF.Buttons("bold").Mi xedState = True
End Select
End Sub
用 SelPrint 方法打印 RichTextBox 的内容
要打印 RichTextBox 控件，可以使用 SelPrint 方法 。该方法需要一个参数，即用来打印 RichTextBox 控件内容的 Printer 对象的 hDC 属性 。如果用户选中了某些文本，则只打印选中的文本 。如果没有选中任何文本 ， 则打印该控件的所有内容 。
下面的代码，在用户单击 CommandButton 控件后 ， 用 CommonDialog 控件显示“打印机”对话框 。Flags 属性禁用了页码，并使用户能够在该对话框中选择多种选项：
Private Sub cmdPrint_Click()
'CommonDialog 控件的名称是“dlgPrint” 。
dlgPrint.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtfData.SelLength = 0 Then
dlgPrint.Flags = dlgPrint.Flags + cdlPDAllPages
Else
dlgPrint.Flags = dlgPrint.Flags + cdlPDSelection
End If
dlgPrint.ShowPrinter
rtfData.SelPrint dlgPrint.hDC
End Sub
详细信息 有关使用 CommonDialog 控件的详细说明，请参阅《Visual Basic程序员指南》中的“使用 CommonDialog 控件” 。
在控件中显示嵌入对象
在运行时，最终用户可拖动任何嵌入对象，并放入 RichTextBox 控件 。在控件中可以嵌入两种对象：以图标形式显示的对象，和以数据形式显示的对象 。下图显示了具有嵌入文件对象的 RichTextBox，作为第一种类型的示例 。
单击后，嵌入的对象就会象预料的那样，即启动与该文件相关联的应用程序 。当控件中的数据以 RTF 文件形式保存时（用 SaveFile 方法） ， 嵌入对象中的信息也将被保存 。

推荐阅读


上一篇：gis里开始编辑是灰色的，arcgis开始编辑为什么编辑不了

下一篇：轻量手机虚拟机推荐，好用的手机虚拟机