C#程序写字板

1、.（注：那个常用工具栏里的字体、字号、字符集不能用）主窗体里全部代码：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using System.IO;using System.Web;namespace NOTEBOOKpublicpartialclassForm1 :FormFind find

2、 =new Find ();replacereplace =new replace ();publicForm1()InitializeComponent();find.Owner =this ;replace.Owner =this ;for( inti = 0; i <= System.Drawing.FontFamily .Families.Length - 1; i+)this .toolStripComboBox1.Items.Add(System.Drawing.FontFamily .Familiesi.Name);.privatevoid Form1_Load( obje

3、ctsender,EventArgs e)/ 窗体加载timer1.Enabled =true ;DateTime now =DateTime .Now;time.Text = now.ToLongDateString() + now.ToLongTimeString();privatevoid timer1_Tick(objectsender,EventArgs e)/ 控制时间timer1.Enabled =true ;DateTime now =DateTime .Now;time.Text = now.ToLongDateString() + now.ToLongTimeString(

4、);/ <summary>/ 新建菜单/ </summary>/ <param name="sender"></param>/ <param name="e"></param>privatevoid新建 NToolStripMenuItem_Click(objectsender,EventArgs e)if(richTextBox1.Modified =true ) / 判断当前文本是否处于编辑状态DialogResultr;r =MessageBox.Show( " 您是

5、否将更改保存到文档 吗？ " ," 写字板 " ,MessageBoxButtons .YesNoCancel,MessageBoxIcon.None);if(r =DialogResult.Yes)保存 SToolStripMenuItem_Click(sender, e);richTextBox1.Clear();this .Text =" 新建 - 写字板 " ; / 标题名称elseif(r =DialogResult.No)richTextBox1.Clear();this .Text =" 新建 - 写字板 "

6、;elserichTextBox1.Clear();this .Text =" 新建 - 写字板 " ;richTextBox1.Modified =false ;.privatevoid打开 OToolStripMenuItem_Click(objectsender,EventArgs e)Open 打开 =new Open();打开 .Filter =" 文本文件 (*.txt)|*.txt|RTF文档 |*.rtf|所有文件 |*.*"if( 打开 .ShowDialog() =DialogResult.OK)stringfn =打开 .;stri

7、ngext =Path .GetExtension(fn);/ 对应命名空间this .Text =Path .Get(fn) +"- 记事本 " ;if(ext.ToLower() =".txt")richTextBox1.Load,RichTextBoxStreamType .PlainText);elseif(ext.ToLower() =".rtf")richTextBox1.Load,RichTextBoxStreamType .RichText);elseMessageBox.Show( " 系统不支持该类型文件

8、!" ," 写字板 " );privatevoid保存 SToolStripMenuItem_Click(objectsender,EventArgs e)Save save =new Save();if(richTextBox1.Modified =true )save =" 保存 " ;save ="*.txt" / 默认文件名save =" 文本文档 |*.txt|所有文档 |*.*"if(save() =DialogResult.OK)stringfn = save.;richTextBox1.S

9、ave,RichTextBoxStreamType .RichText);richTextBox1.Modified =false ;this .Text =Path .Get(save) +"- 写字板 " ;elserichTextBox1.Save,RichTextBoxStreamType .PlainText);richTextBox1.Modified =false ;.privatevoid另存为 ToolStripMenuItem_Click(objectsender,EventArgs e)Save save =new Save();save ="

10、; 另存为 " ;save ="*.txt"save =" 文本文档 (*.txt)|*.txt|所有文档 |*.*"if(save() =DialogResult.OK)StreamWritersw =new StreamWriter(save);sw.Write(richTextBox1);richTextBox1.Modified =false ;stringfn = save;sw.Close();this .Text =Path .Get(save) +"- 写字板 " ;privatevoid打印 PToolSt

11、ripMenuItem_Click(objectsender,EventArgs e)if(richTextBox1.Text.Length < 1)MessageBox.Show( " 请确保要查找的文件的内容不为空！ " , " 提示 " ); return ;elsePrintDialogprint =new PrintDialog();DialogResultresult = print.ShowDialog();privatevoid退出 XToolStripMenuItem_Click(objectsender,EventArgs e)

12、if(richTextBox1.Text !="" )保存 SToolStripMenuItem_Click(sender, e);elsethis .Close();/ <summary>/ 编辑菜单./ </summary>/ <param name="sender"></param>/ <param name="e"></param>privatevoid编辑 EToolStripMenuItem_Click(objectsender,EventArgs e

13、)/ 如果剪切板内容不为空，则粘贴项不可用，否则不可用stringselectedInfo ="" ;if( Clipboard .GetDataObject().GetDataPresent(DataFormats .Text)this . 粘贴 PToolStripMenuItem.Enabled =true ;elsethis . 粘贴 PToolStripMenuItem.Enabled =false ;/ 根据选择区域不为空，则复制、剪切、删除可用，否则不可用if(richTextBox1.SelectedText.Equals("" ) &a

14、mp;& (selectedInfo.Equals("" )剪切 TToolStripMenuItem.Enabled =false;复制 CToolStripMenuItem.Enabled =false;删除 DToolStripMenuItem.Enabled =false;else剪切 TToolStripMenuItem.Enabled =true ;复制 CToolStripMenuItem.Enabled =true;删除 DToolStripMenuItem.Enabled =true;/ 如果写字板内容不为空，则全选可用，否则不可用if(richT

15、extBox1.TextLength > 0)全选 AToolStripMenuItem1.Enabled =true ;else全选 AToolStripMenuItem1.Enabled =false ;privatevoid撤消 UToolStripMenuItem_Click(objectsender,EventArgs e)richTextBox1.Undo();重做 toolStripButton16.Enabled =true ;privatevoid剪切 TToolStripMenuItem_Click(objectsender,EventArgs e).if(richT

16、extBox1.SelectionLength > 0)剪切 TToolStripMenuItem.Enabled =true ;richTextBox1.Cut();privatevoid复制 CToolStripMenuItem_Click(objectsender,EventArgs e)richTextBox1.Copy();privatevoid粘贴 PToolStripMenuItem_Click(objectsender,EventArgs e)richTextBox1.Paste();privatevoid删除 DToolStripMenuItem1_Click(obje

17、ctsender,EventArgs e)if(richTextBox1.SelectedText !="" )intstart = richTextBox1.SelectionStart;intlen = richTextBox1.SelectionLength;richTextBox1.Text = richTextBox1.Text.Remove(start, len);richTextBox1.SelectionStart = start;privatevoid查找 ToolStripMenuItem_Click(objectsender,EventArgs e)f

18、ind.Show();privatevoid替换 HToolStripMenuItem_Click(objectsender,EventArgs e)replace.Show();privatevoid全选 AToolStripMenuItem1_Click(objectsender,EventArgs e)richTextBox1.SelectAll();privatevoid时间 ToolStripMenuItem_Click(objectsender,EventArgs e)/ 把时间、日期加到文本最后richTextBox1.AppendText(DateTime .Now.ToStr

19、ing();/ <summary>/ 查看菜单./ </summary>/ <param name="sender"></param>/ <param name="e"></param>privatevoid工具栏 TToolStripMenuItem_Click(objectsender,EventArgs e)if( 工具栏 TToolStripMenuItem.Checked)工具栏 TToolStripMenuItem.Checked =false ;工具栏 .Visible

20、 =false ;else工具栏 TToolStripMenuItem.Checked =true ;工具栏 .Visible =true ;privatevoid格式栏 FToolStripMenuItem_Click(objectsender,EventArgs e)if( 格式栏 FToolStripMenuItem.Checked)格式栏 FToolStripMenuItem.Checked =false ;格式栏 .Visible =false ;else格式栏 FToolStripMenuItem.Checked =true ;格式栏 .Visible =true ;private

21、void状态栏 SToolStripMenuItem_Click(objectsender,EventArgs e)if( 状态栏 SToolStripMenuItem.Checked)状态栏 SToolStripMenuItem.Checked =false ;状态栏 .Visible =false ;else状态栏 SToolStripMenuItem.Checked =true ;状态栏 .Visible =true ;/ <summary>/ 格式菜单./ </summary>/ <param name="sender"><

22、/param>/ <param name="e"></param>privatevoid自动换行 ToolStripMenuItem_Click(objectsender,EventArgs e)if( 自动换行 ToolStripMenuItem.Checked)自动换行 ToolStripMenuItem.Checked =false ;richTextBox1.WordWrap =false ;else自动换行 ToolStripMenuItem.Checked =true ;richTextBox1.WordWrap =true ;pr

23、ivatevoid字体 ToolStripMenuItem_Click(objectsender,EventArgs e)字体 .Font = richTextBox1.Font;字体 .Color = richTextBox1.ForeColor;if( 字体 .ShowDialog() =DialogResult.OK)if(richTextBox1.SelectionLength > 0)richTextBox1.SelectionFont =字体 .Font;richTextBox1.SelectionColor =字体 .Color;elserichTextBox1.Font

24、=字体 .Font;richTextBox1.ForeColor =字体 .Color;privatevoid颜色 CToolStripMenuItem_Click(objectsender,EventArgs e)颜色 .Color = richTextBox1.ForeColor;if( 颜色 .ShowDialog() =DialogResult.OK)if(richTextBox1.SelectionLength > 0)richTextBox1.SelectionColor =颜色 .Color;else.richTextBox1.ForeColor =颜色 .Color;/

25、<summary>/ 帮助菜单/ </summary>/ <param name="sender"></param>/ <param name="e"></param>privatevoid关于写字板 ToolStripMenuItem_Click(objectsender,EventArgs e)Help h =new Help ();h.ShowDialog();/ <summary>/ 工具栏按钮/ </summary>/ <param name=

26、"sender"></param>/ <param name="e"></param>privatevoid重做 toolStripButton16_Click(objectsender,EventArgs e)/ 重新应用上次撤消的操作richTextBox1.Redo();/ <summary>/ 格式栏按钮/ </summary>/ <param name="sender"></param>/ <param name="e&

27、quot;></param>privatevoid toolStripComboBox1_Click(objectsender,EventArgs e)/ 字体（未完成）privatevoid toolStripComboBox2_Click(objectsender,EventArgs e)/ 字号（未完成）privatevoid toolStripComboBox3_Click(objectsender,EventArgs e)/ 字体脚本（未完成）.privatevoid toolStripButton9_Click(objectsender,EventArgs e)/

28、 加粗Font oldfont = richTextBox1.SelectionFont;Font newfont;if(oldfont.Bold)newfont =new Font (oldfont, oldfont.Style & FontStyle.Bold);elsenewfont =new Font (oldfont, oldfont.Style |FontStyle.Bold);privatevoid toolStripButton10_Click(objectsender,EventArgs e)/ 倾斜Font oldfont = richTextBox1.Select

29、ionFont;Font newfont;if(oldfont.Italic)newfont =new Font (oldfont, oldfont.Style & FontStyle.Italic);elsenewfont =new Font (oldfont, oldfont.Style |FontStyle.Italic);privatevoid toolStripButton11_Click(objectsender,EventArgs e)/ 下划线Font oldfont = richTextBox1.SelectionFont;Font newfont;if(oldfon

30、t.Underline)newfont =new Font (oldfont, oldfont.Style & FontStyle.Underline);elsenewfont =new Font (oldfont, oldfont.Style |FontStyle.Underline);privatevoid toolStripButton12_Click(objectsender,EventArgs e)./ 左对齐richTextBox1.SelectionAlignment =HorizontalAlignment.Left;privatevoid toolStripButto

31、n13_Click(objectsender,EventArgs e)/ 居中richTextBox1.SelectionAlignment =HorizontalAlignment.Center;privatevoid toolStripButton14_Click(objectsender,EventArgs e)/ 右对齐richTextBox1.SelectionAlignment =HorizontalAlignment.Right;/ <summary>/ 快捷菜单/ </summary>/ <param name="sender"

32、></param>/ <param name="e"></param>privatevoid快捷菜单 _Opening( objectsender,CancelEventArgse)/ 如果剪切板内容不为空，则粘贴项可用，否则不可用if( Clipboard .GetDataObject().GetDataPresent(DataFormats .Text)this . 剪切 TToolStripMenuItem1.Enabled =true ;elsethis . 剪切 TToolStripMenuItem1.Enabled =f

33、alse ;/ 根据选择区域不为空，则复制、剪切、删除可用，否则不可用if(richTextBox1.SelectedText.Length > 0)复制 CToolStripMenuItem1.Enabled =true;剪切 TToolStripMenuItem1.Enabled =true;删除 DToolStripMenuItem.Enabled =true ;else复制 CToolStripMenuItem1.Enabled =false ;剪切 TToolStripMenuItem1.Enabled =false ;删除 DToolStripMenuItem.Enabled

34、 =false ;/ 如果写字板内容不为空，则全选可用，否则不可用if(richTextBox1.Text.Length > 0).全选 AToolStripMenuItem1.Enabled =true ;else全选 AToolStripMenuItem1.Enabled =false ;/ <summary>/ 窗体关闭按钮/ </summary>/ <param name="sender"></param>/ <param name="e"></param>privat

35、evoid Form1_FormClosing(objectsender,FormClosingEventArgse)if(richTextBox1.Modified =true )DialogResultr;r =MessageBox.Show( " 您是不要将更改保存到文档吗？ " ," 写字板 " ,MessageBoxButtons .YesNoCancel,MessageBoxIcon.None);if(r =DialogResult.Yes)保存 SToolStripMenuItem_Click(sender, e);if(richTextB

36、ox1.Modified =true )e.Cancel =true ;elsee.Cancel =false ;elseif(r =DialogResult.Cancel)e.Cancel =true ;elseif(r =DialogResult.No)e.Cancel =false ;elsee.Cancel =false ;./ <summary>/ 在状态栏显示鼠标位置/ </summary>/ <param name="sender"></param>/ <param name="e"&g

37、t;</param>privatevoid richTextBox1_MouseMove(objectsender,MouseEventArgs e)mouse.Text =" 所在位置： " + e.X +","+ e.Y;（注：区分大小写、方向用不了）查找窗体代码：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using Sy

38、stem.Text;using System.Windows.Forms;namespace NOTEBOOKpublicpartialclassFind :Formintp=0;publicFind().InitializeComponent();privatevoid textBox1_TextChanged(objectsender,EventArgs e)if(textBox1.Text ="" )button1.Enabled =false ;elsebutton1.Enabled =true ;privatevoid button1_Click(objectse

39、nder,EventArgs e)Form1 fmain=(Form1) this .Owner;p = fmain.richTextBox1.Text.IndexOf(textBox1.Text,p);if(p != -1)fmain.richTextBox1.Select(p, textBox1.Text.Length);fmain.richTextBox1.Focus();p+;elseMessageBox.Show( " 已查找到文档尾！" , " 写字板" , MessageBoxButtons .OK, MessageBoxIcon .Inf

40、ormation); p = 0;privatevoid Find_FormClosing(objectsender,FormClosingEventArgse)e.Cancel =true ;this .Hide();privatevoid button2_Click(objectsender,EventArgs e)this .Hide();.（注：那个区分大小写用不了）查找窗体代码：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System

41、.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace NOTEBOOKpublicpartialclassreplace:Formintp = 0;bool thflag =false ;publicreplace()InitializeComponent();privatevoid textBox1_TextChanged(objectsender,EventArgs e)Form1 fmain = (Form1) this .Owner;fmain.richTextBox1.SelectionStart = 0;fmain.richTextBox1.SelectionLength = 0;.privatevoid button1