用vb.net实现写字板程序报告(二)

类别:.NET开发 点击:0 评论:0 推荐:

所有源代码均在这里下载:

http://www.up2e.com/resource.php

 

用vb.net实现写字板程序报告(二) --by zigz(LuHai)
[email protected]

 

3)            状态栏的隐藏

就是在“查看”菜单中有个check按钮,当checked=true时点击它状态栏就隐藏,反之就取消隐藏。

Private Sub mStatusbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mStatusbar.Click

        If mStatusbar.Checked = True Then

            StatusBar1.Visible = False

            mStatusbar.Checked = False

        Else

            StatusBar1.Visible = True

            mStatusbar.Checked = True

        End If

End Sub

 

4关于字体样式的问题

我觉得这是这个程序中最艰难的一部分,为了实现这个功能,查阅了不少资料,最终得以实现不用字体对话框设置,只用工具栏上按钮设置就能实现几个字体样式并用的功能。

3字体样式并用

上图中的“样”字就是既加粗又斜体又下划线,不要以为这个功能实现很简单,因为最初我发现如果一个字是加粗的,当我给他选择斜体按钮时,发现她原来的粗体样式消失了,变成只有斜体样式了,也就是说字体的样式不能并用,后来终于发现解决的方法。

其中的一个“or”确实十分关键,其了决定性作用。关键还是对VB的语法不太熟悉,如果是C++语言就好了。下面看看代码

'下面这个函数是用来增加字体的样式,比如加粗,下划线等等

    Public Sub AddFontStyle(ByVal rtb As RichTextBox, _

    ByVal style As System.Drawing.FontStyle)

        ' 如果选择的文本长度大于0,将一个一个字符地增加样式。

        '这是十分必要的!因为被选择的字符可能同时含有多种样式,

        ' 而我们的原意只是保持所有原来的样式,同时增加上指定的样式

        If rtb.SelectionLength > 0 Then

            Dim selStart As Integer = rtb.SelectionStart

            Dim selLength As Integer = rtb.SelectionLength

            Dim currFont As System.Drawing.Font

            Dim currStyle As System.Drawing.FontStyle

            Dim i As Integer

            For i = 0 To selLength - 1

                ' 选择的字符

                rtb.Select(selStart + i, 1)

                ' 得到被选择字符的字体

                currFont = rtb.SelectionFont

                ' 得到现在的样式,同时增加指定的样式

                currStyle = currFont.Style

                currStyle = currStyle Or style

                ' 然后使字符拥有新的字体和新的样式,有可能出现异常,

                '因为不是所有字体都支持所有的样式,所以这里捕捉异常

                Try

                    rtb.SelectionFont = New Font(currFont.FontFamily, currFont.Size, _

                        currStyle)

Catch ex As Exception

                End Try

            Next

            rtb.Select(selStart, selLength)

        Else

            rtb.SelectionFont = New Font(rtb.SelectionFont, _

                rtb.SelectionFont.Style Or style)

        End If

    End Sub

同样,取消样式也有同样的问题,当然也有同样的解决方法

'下面这个函数是用来去除用户指定的字体样式,如加粗,下划线等等

    Public Sub RemoveFontStyle(ByVal rtb As RichTextBox, _

    ByVal style As System.Drawing.FontStyle)

        ' 如果选择文本的长度大于0,将一个一个去除样式。

        ' 这是十分必要的!因为选择的文本中可能有许多不同的样式,而我们的原意是

        ' 保持所有原来的样式,除了那个要被去除的样式

        If rtb.SelectionLength > 0 Then

            Dim selStart As Integer = rtb.SelectionStart

            Dim selLength As Integer = rtb.SelectionLength

            Dim currFont As System.Drawing.Font

            Dim currStyle As System.Drawing.FontStyle

            Dim i As Integer

            For i = 0 To selLength - 1

                ' 选择一个字符

                rtb.Select(selStart + i, 1)

                ' 得到被选择字符的字体

                currFont = rtb.SelectionFont

                ' 得到被选择字符的样式,同时去除要被除去的那个样式

                currStyle = currFont.Style

                currStyle = currStyle And Not style

                ' 然后赋予这些字符新的字体和样式

                rtb.SelectionFont = New Font(currFont.FontFamily, currFont.Size, _

    currStyle)

            Next

            ' 保持原有的选择

            rtb.Select(selStart, selLength)

        Else

            rtb.SelectionFont = New Font(rtb.SelectionFont, _

                rtb.SelectionFont.Style And Not style)

        End If

    End Sub

 

还有几个关于设置字体大小,字体的字体等等就不细说了,如您需要,我可提供所有源代码文件。欢迎与我联系。

[email protected]

 

未完待续......

 

本文地址:http://com.8s8s.com/it/it45491.htm