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

先看看界面：

　　

　　声明一个全局boolean变量，用来标记richtextbox中文本变化和保存情况　　

　　Dim bSave As Boolean

　　Private Sub rtbox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtbox.TextChanged　　

　　 '文本发生了改变，则将变量bSave置为False　　

　　 bSave = False　　

　　 End Sub

　　2)关于在ComboBox中加载用户系统上的字体列表的问题　　

　　加载用户系统上的字体到写字板ComboBox的字体栏上，为了实现他，也花费了少时间，最终在VS.NET自带的Help中找到了答案。　　

　　'下面这段代码是加载当地系统中所有字体到Combobox中　　

　　 Dim allfonts As FontFamily　　

　　 For Each allfonts In System.Drawing.FontFamily.Families　　

　　 comboxFont.Items.Add(allfonts.Name)　　

　　 Next

　　 　　3） 状态栏的隐藏　　

中国网管联盟bitsCN.com

　　就是在“查看”菜单中有个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）关于字体样式的问题　　

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

　　

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

中国网管联盟bitsCN.com

网管bitscn_com

网管网www_bitscn_com