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

用vb.net实现写字板程序报告(二)所有源代码均在这里下载:http://www.up2e.com/resource.php 用vb.net实现写字板程序报告(二)–byzigz(LuHai)luluhai@eastday.com 3)           状态栏的隐藏就是在“查看”菜单中有个check按钮,当checked=true时点击它状态栏就隐藏,反之就取消隐藏。PrivateSubmSt

大家好,又见面了,我是你们的朋友全栈君。

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

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

 

用vb.net实现写字板程序报告(二) –by zigz(LuHai)
luluhai@eastday.com

 

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关于字体样式的问题

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

用vb.net实现写字板程序报告(二)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

 

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

luluhai@eastday.com

 

未完待续……

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/160354.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)
blank

相关推荐

  • 【分享】GEARS of DRAGOON 1+2【日文硬盘版】[带全CG存档&攻略+SSG改动+打开存档补丁]…

    【分享】GEARS of DRAGOON 1+2【日文硬盘版】[带全CG存档&攻略+SSG改动+打开存档补丁]…冒险者们哟。寻找龙秘玉吧——!ninetail的最新作,是使用丰富多彩的技能·道具探索迷宫的3D迷宫RPG!存在着骑士和神官的架空世界常见的职业为首的13种职业。超过数百种的道具的登场!和伙伴一起探索迷宫,强化入手的装备。以及打败新的强敌,以得到稀有道具为目标!同一时候。本作的故事依据与哪一个组织接触而分为“Low线”与“Chaos线”两种类。Low线为王道的冒…

  • python random.randint函数用法(random.randint()是什么意思)

    numpy.random.randint(low,high=None,size=None,dtype=’l’)函数的作用是,返回一个随机整型数,范围从低(包括)到高(不包括),即[low,high)。如果没有写参数high的值,则返回[0,low)的值。参数如下:low:int生成的数值最低要大于等于low。(hign=None时,生成的数值要在[0,low)区间内)high:i…

  • JPA 逻辑删除

    JPA 逻辑删除为了避免每次在查询的时候加上是否删除字段,做了一下封装。@NoRepositoryBean@RepositoryRestResource(exported=false)publicinterfaceBaseRepository<TextendsBaseEntity,IdTextendsLong>extendsJpaRepository<T…

  • Oracle11g安装教程

    Oracle11g安装教程在oracle11g的几个版本中,企业版安装的选项比较全面,所以我们选择企业版安装一、官方的下载地址:https://www.oracle.com/technetwork/database/enterprise-edition/downloads/index.html勾选AcceptLicenseAgreement选择适合自己电脑版本的oracle安装包,然后下载。二、具体…

  • 做了三年Java,java注释的三种形式

    做了三年Java,java注释的三种形式前言很多同学想进大厂,特别是刚毕业的,以及工作年限短的,不要有任何侥幸心理,踏踏实实的把基础弄扎实了,这是你通往高薪之路的唯一正确姿势。首先从面试题做起~好了,不多说了,直接上正菜。拼多多一面首先自我介绍参加过哪些项目并发编程三要素?实现可见性的方法有哪些?多线程的价值?创建线程的三种方式的对比?画出线程的状态流转图常用的并发工具类有哪些?CyclicBarrier和CountDownLatch的区别CAS的问题:1、CAS容易造成ABA问题2、不能保证代码块的原子

  • django示例_介绍信模板

    django示例_介绍信模板前言目前市面上有非常多的模板系统,其中最知名最好用的就是DTL和Jinja2。DTL是DjangoTemplateLanguage三个单词的缩写,也就是Django自带的模板语言。当然也可以配置

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号