• picture控件清空 > 实用扩展控件
  • 实用扩展控件

    免费下载 下载该文档 文档格式:PPT   更新时间:2004-09-03   下载次数:0   点击次数:3
    文档基本属性
    文档语言:
    文档格式:ppt
    文档作者:
    关键词:
    主题:
    备注:
    点击这里显示更多文档属性
    '下划线(布尔型)
    .SelUnderline = CommonDialog1.FontUnderline
    '删除线(布尔型)
    .SelStrikeThru = CommonDialog1.FontStrikethru
    .SelColor = CommonDialog1.Color '颜色(长整型)
    End With
    Quit:
    End Sub
    11.1.1 设置字体格式 (4)
    在上述代码中,首先利用通用对话框控件打开字体对话框,用户在对话框中设置格式并确认后,通过代码中的第二个With...End With语句块将RichTextBox控件中的选定文本格式设置为由字体对话框返回的各种格式.代码中RichTextBox控件的7个以"Sel"为前缀的属性(代表选定文本的各种格式)分别由字体对话框的对应属性赋值.代码中的注释说明了各属性的含义.程序运行效果如图11.1所示.
    11.1.1 设置字体格式 (5)
    图11.1 设置字体格式
    返回首页
    返回本节
    11.1.2 设置段落格式(1)
    1. 段落缩进
    RichTextBox控件的SelIndent,SelRightIndent和SelHangingIndent属性分别用于设置选定段落的左缩进,右缩进和悬挂缩进,均为整型数值.缩进量的单位与窗体的ScaleMode属性有关,默认单位为缇(1厘米=567缇).
    【例11.2】设置段落缩进.在例11.1中的窗体上增加一个按钮,Caption属性为"左缩进",在该按钮的单击事件过程中加入以下代码:
    11.1.2 设置段落格式(2)
    Dim sMargin As Single
    sMargin = Val(InputBox("输入缩进量(厘米):", _
    "左缩进"))
    RichTextBox1.SelIndent = sMargin * 567
    用同样的方法可设置右缩进和悬挂缩进.
    2. 段落对齐方式
    RichTextBox控件的SelAlignment属性用于设置选定段落的对齐方式.将该属性值设为常数rtfLeft或0为左对齐,rtfRight或1为右对齐,rtfCenter或2为居中.
    11.1.2 设置段落格式(3)
    3. 项目符号
    将RichTextBox控件的SelBullet属性设为True即可为选定段落添加项目符号,若同时设置BulletIndent属性,则可指定含有项目符号的段落的缩进量(默认单位为缇).
    提示:可将设置字体和段落格式的功能汇集在"格式"菜单中.
    段落格式设置效果如图11.2所示.
    返回首页
    返回本节
    11.1.3 使用剪贴板 (1)
    RichTextBox控件的SelRTF属性含有当前选定的RTF格式文本.利用SelRTF属性和剪贴板(Clipboad)对象可以实现多格式文本的剪切,复制和粘贴操作.
    1. 操作多格式文本
    剪贴板对象的SetText方法用于向剪贴板传送文本.以下代码可将多格式文本复制到剪贴板:
    Clipboard.Clear '清空剪贴板
    '向剪贴板传送RTF文本
    Clipboard.SetText RichTextBox1.SelRTF, _
    vbCFRTF

    上一页下一页

  • 下载地址 (推荐使用迅雷下载地址,速度快,支持断点续传)
  • 免费下载 PPT格式下载
  • 您可能感兴趣的
  • vb怎么清空picture  picture控件显示图片  vcpicture控件  vbpicture控件  mfc中的picture控件  vcpicture控件画图  picture控件  vcpicture控件坐标  mfcpicture控件使用