用VB编写的记事本源码教程

记事本一、打开visual studio 新建——项目——windows窗体应用程序命名：年终大作业；二、Form.cs中作如下操作：三、在工具箱中选择如下控件：menuStrip、contextMenustrip、colordialog、savefiledialog、folderbrowserdialog、fontdialog、openfiledialog、statustrip 、Folderbrowserdialog四、单击menuStrip并输入文件（&F），双击后输入新建（&N）并单击新建在属性中的shortkeys中选择Ctl+N；并在那么属性中改名为“新建”、后面类似；五、单击statustrip在其属性中的item属性中选择添加label4个；六、分别输入以下代码：using System;七、using System.Collections.Generic;八、using ponentModel;九、using System.Data;十、using System.Drawing;十一、using System.Linq;十二、using System.Text;十三、using System.Windows.Forms;十四、using System.IO;十五、十六、十七、namespace 年终大作业十八、{十九、public partial class Form1 : Form二十、{二十一、public Form1()二十二、{二十三、InitializeComponent();二十四、}二十五、二十六、private void 新建_Click(object sender, EventArgs e)二十七、{二十八、this.richTextBox1.Text="";二十九、}三十、三十一、private void 打开_Click(object sender, EventArgs e)三十二、{三十三、openFileDialog1.FileName = "";三十四、openFileDialog1.Filter = "RTF File(*.rtf)|*.RTF|TXT FILE(*.txt)|*.txt";三十五、openFileDialog1.ShowDialog();三十六、if (openFileDialog1.FileName != "")三十七、switch (openFileDialog1.FilterIndex)三十八、{三十九、case 1: //选择的是.rtf类型四十、richTextBox1.LoadFile(openFileDialog1.FileName,RichTextBoxStreamType.RichText);四十一、break;四十二、case 2: //选择的是.txt类型四十三、richTextBox1.LoadFile(openFileDialog1.FileName,RichTextBoxStreamType.PlainText);四十四、break;四十五、}四十六、}四十七、四十八、private void 保存_Click(object sender, EventArgs e)四十九、{五十、saveFileDialog1.Filter = "RTF File(*.rtf)|*.RTF|TXT FILE(*.txt)|*.txt";五十一、if (saveFileDialog1.ShowDialog() == DialogResult.OK) 五十二、switch (openFileDialog1.FilterIndex)五十三、{五十四、case 1: //选择的是.rtf类型五十五、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.RichText);五十六、break;五十七、case 2: //选择的是.txt类型五十八、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.PlainText);五十九、break;六十、}六十一、}六十二、六十三、private void 另存为_Click(object sender, EventArgs e)六十四、{六十五、saveFileDialog1.Filter = "RTF File(*.rtf)|*.RTF|TXT FILE(*.txt)|*.txt";六十六、if (saveFileDialog1.ShowDialog() == DialogResult.OK) 六十七、switch (openFileDialog1.FilterIndex)六十八、{六十九、case 1: //选择的是.rtf类型七十、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.RichText);七十一、break;七十二、case 2: //选择的是.txt类型七十三、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.PlainText);七十四、break;七十五、}七十六、}七十七、七十八、private void 退出_Click(object sender, EventArgs e)七十九、{八十、// 退出时应提示用户是否保存当前文本文件八十一、DialogResult result = MessageBox.Show("是否将更改保存？", "Mickey温馨提示", MessageBoxButtons.YesNoCancel,rmation);八十二、if (result == DialogResult.Yes)八十三、{八十四、saveFileDialog1.Filter = "RTF File(*.rtf)|*.RTF|TXT FILE(*.txt)|*.txt";八十五、if (saveFileDialog1.ShowDialog() == DialogResult.OK)八十六、switch (openFileDialog1.FilterIndex) 八十七、{八十八、case 1: //选择的是.rtf类型八十九、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.RichText);九十、break;九十一、case 2: //选择的是.txt类型九十二、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.PlainText);九十三、break;九十四、}九十五、Application.Exit();九十六、this.Close();九十七、}九十八、else if (result == DialogResult.No)九十九、{百、Application.Exit();百一、}百二、}百三、百四、private void 撤销_Click(object sender, EventArgs e) 百五、{百六、richTextBox1.Undo();百七、}百八、百九、private void 剪切_Click(object sender, EventArgs e)百十、{百十一、richTextBox1.Cut();百十二、}百十三、百十四、private void 复制_Click(object sender, EventArgs e)百十五、{百十六、richTextBox1.Copy();百十七、}百十八、百十九、private void 粘贴_Click(object sender, EventArgs e)百二十、{百二十一、richTextBox1.Paste();百二十二、}百二十三、百二十四、private void 删除_Click(object sender, EventArgs e)百二十五、{百二十六、richTextBox1.Clear();百二十七、}百二十八、百二十九、private void 全选_Click(object sender, EventArgs e)百三十、{百三十一、richTextBox1.SelectAll();百三十二、}百三十三、百三十四、private void 时间日期_Click(object sender, EventArgs e) 百三十五、{百三十六、richTextBox1.SelectedText =System.DateTime.Now.ToLocalTime().ToString();百三十七、}百三十八、百三十九、private void 自动换行_Click(object sender, EventArgs e) 百四十、{百四十一、if (richTextBox1.WordWrap == true)百四十二、{百四十三、自动换行.Checked = true;百四十四、richTextBox1.WordWrap = false;百四十五、百四十六、}百四十七、else百四十八、{百四十九、自动换行.Checked = false;百五十、richTextBox1.WordWrap = true;百五十一、}百五十二、}百五十三、百五十四、private void 背景颜色_Click(object sender, EventArgs e) 百五十五、{百五十六、colorDialog1.ShowDialog();百五十七、richTextBox1.BackColor = colorDialog1.Color;百五十八、}百五十九、百六十、private void 状态栏_Click(object sender, EventArgs e) 百六十一、{百六十二、if (statusStrip1.Visible == true)百六十三、{百六十四、状态栏.Checked = false;百六十五、statusStrip1.Visible = false;百六十六、}百六十七、else百六十八、{百六十九、状态栏.Checked = true;百七十、statusStrip1.Visible = true;百七十一、}百七十二、}百七十三、百七十四、private void 右撤销_Click(object sender, EventArgs e) 百七十五、{百七十六、richTextBox1.Undo();百七十七、}百七十八、百七十九、private void 右剪切_Click(object sender, EventArgs e)百八十、{百八十一、richTextBox1.Cut();百八十二、}百八十三、百八十四、private void 右复制_Click(object sender, EventArgs e)百八十五、{百八十六、richTextBox1.Copy();百八十七、}百八十八、百八十九、private void 右粘贴_Click(object sender, EventArgs e)百九十、{百九十一、richTextBox1.Paste();百九十二、}百九十三、百九十四、private void 右删除_Click(object sender, EventArgs e)百九十五、{百九十六、richTextBox1.Clear();百九十七、}百九十八、百九十九、private void 右全选_Click(object sender, EventArgs e)二百、{二百一、richTextBox1.SelectAll();二百二、}二百三、二百四、private void 字体颜色_Click_1(object sender, EventArgse)二百五、{二百六、fontDialog1.AllowVectorFonts = true;//设置用户可以选择矢量字体二百七、fontDialog1.AllowVerticalFonts = true;//设置字体对话框既显示水平字体，也显示垂直字体二百八、fontDialog1.FixedPitchOnly = false;//设置用户可以选择不固定间距的字体二百九、fontDialog1.MaxSize = 72;//设置可选择的最大字二百十、fontDialog1.MinSize = 5;//设置可选择的最小字二百十一、if (fontDialog1.ShowDialog() == DialogResult.OK)//判断是否选择了字体二百十二、{二百十三、if (richTextBox1.SelectedText == "")//判断是否选择了文本二百十四、richTextBox1.SelectAll();//全选文本二百十五、richTextBox1.SelectionFont = fontDialog1.Font;//设置选中的文本字体二百十六、}二百十七、colorDialog1.AllowFullOpen = true;//设置允许用户自定义颜色二百十八、colorDialog1.AnyColor = true;//设置颜色对话框中显示所有颜色二百十九、colorDialog1.SolidColorOnly = false;//设置用户可以在颜色对话框中选择复杂颜色二百二十、if (colorDialog1.ShowDialog() == DialogResult.OK)//判断是否选择了颜色二百二十一、{二百二十二、if (richTextBox1.SelectedText == "")//判断是否选择了文本二百二十三、richTextBox1.SelectAll();//全选文本二百二十四、richTextBox1.SelectionColor = colorDialog1.Color;//将选定的文本颜色设置为颜色对话框中选择的颜色二百二十五、}二百二十六、二百二十七、}二百二十八、二百二十九、private void Form1_FormClosed(object sender, FormClosedEventArgs e)二百三十、{二百三十一、// 退出时应提示用户是否保存当前文本文件二百三十二、DialogResult result = MessageBox.Show("是否将更改保存？", "Mickey温馨提示", MessageBoxButtons.YesNoCancel,rmation);二百三十三、if (result == DialogResult.Yes)二百三十四、{二百三十五、saveFileDialog1.Filter = "RTFFile(*.rtf)|*.RTF|TXT FILE(*.txt)|*.txt";二百三十六、if (saveFileDialog1.ShowDialog() == DialogResult.OK)二百三十七、switch (openFileDialog1.FilterIndex)二百三十八、{二百三十九、case 1: //选择的是.rtf类型二百四十、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.RichText);二百四十一、break;二百四十二、case 2: //选择的是.txt类型二百四十三、richTextBox1.SaveFile(saveFileDialog1.FileName,RichTextBoxStreamType.PlainText);二百四十四、break;二百四十五、}二百四十六、Application.Exit();二百四十七、}二百四十八、MessageBox.Show("谢谢使用！"+DateTime.Now );二百四十九、}二百五十、二百五十一、private void 关于主题_Click(object sender, EventArgse)二百五十二、{二百五十三、主题();二百五十四、}二百五十五、private void 主题()二百五十六、{二百五十七、string str = "本程序由本人初次制作，内容可能还有些许漏洞，如果在您使用过程中发现问题，敬请联系本人。

vb记事本编程源程序Option ExplicitDim filename As StringDim FileType As StringDim FiType As StringDim sFind As StringDim result As StringDim bWrap As BooleanDim ask As BooleanDim msgtext As StringDim Flag As StringPrivate Sub Form_Load()ask = FalseRichText.Text = ""filename = "无标题-记事本"Form1.Caption = "无标题-记事本" RichText.Height = Form1.ScaleHeight RichText.Width = Form1.ScaleWidth StatusBar1.Visible = False StatusBar1.Panels(1).Text = Time mnucopy.Enabled = False mnucut.Enabled = False mnufound.Enabled = False mnufoundnext.Enabled = False mnudel.Enabled = False mnucancel.Enabled = False mnuwordwrap.Checked = Truemnugoto.Enabled = FalseIf Clipboard.GetText <> "" Thenmnuplaster.Enabled = TrueElsemnuplaster.Enabled = FalseEnd IfApp.HelpFile = App.Path & "\notepad.chm"End SubPrivate Sub Form_Resize()RichText.Height = Form1.ScaleHeightRichText.Width = Form1.ScaleWidthEnd SubPrivate Sub Form_Unload(Cancel As Integer)msgtext = "文件" & filename & "的文字已经改变。

用VB写记事本的程序文件编码（GHTU-U GB KT-POIU-WUUI-8968)1、 新建工程启动VB 程序后，建立一个新的工程。

出现“窗体设计器”。

2、 创建记事本的菜单栏打开工具选项条单击菜单编辑器也工曜 1 ・ Mfcrosoft Viwal 8atc :(1)在标题栏里面分别添加“文件(&F) ” “编辑(&E) ” “格式 (&A) …帮助(&H) ”并分别设置名称和快捷键。

可视化 程序课 程 记事本程序实验报告抄・0・13 QX 殓P 啊!► II ■㉛囱电过砂I 性(A)・“6015x64950无标童-记事本交性(E) »»E)曙式g) |r«tiX文故B SWKE) 18® W»(Q)运行⑻ WiSJUJ) BMW) TM(D 外樓够＜A) SQMDC3 IS1 ・ Form] (Form)BAL F13 SWMWtHK 理)…Ctrl+E3®(O)..(2)分别在“文件”“编辑”“格式” “帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。

Textl.Tixt =Forml. Capti on ="无标题-记事本" End Sub注解： 二〃无标题-记事本〃把新建记事本的名字定义为“无标题-记事本” ②打开open|open|ClickPrivate Sub open_Click 0 Oit Error GoTo aC omiTioiLDi alogl. ShowOpen '分离路径和鬟件名 Dim index As Integerindex = InStrRev CCornmonDi alogl. FileName ? s£ile = Right (CommonDi^logl. Filellaine^ Len(CorrimonDi alog ：l. FileNani^) - index) sdir = Left (CommonDialogl. Fileliajrie. index - 1) '打开文件Open CommonDi alogl. FileName For Input As #1 Textl.Text 二"Do ffhile Not EOF(1) Line Input 轧 ssTextl.Text = T^xtl.Text &. ss & vbCrLE Loop Close #1Forml.Caption. = sfile 十"-记事本" a ： Exit Sub End Sub［文件(F)| 錚ft(臼 «Kt(O)砲N) JW ))_另荐为(A)・・・打印(叽iSS(X)SWWT)CtrltX«w(a3UCMhUDd CtrUFCtrl^N WHR)CUltH±S(A)0无目2・；文件(F)・»(E)［榕式(0)、年KH 用 丽B2»fT (W) 孚依⑹ASM -,，1=B5C(O)芜于记环(A)・・T( H )3、代码的编写 (1)文件 file①新建newnewPr ivaie Su.b new Cli ck 0sfile =CMQ 无彌•记事本注解：“On Error GoTo a " a在代码倒数第二行有定义，如果在打开的过程中出现错误就到"a”退出程序；Dim index As Integer定义变③保存savePrivate Sub sa.ve_Click0If sfil^ = g TheaCall as.ClickElseOpen sdir & & sfile For Output As #1Print #1, Textl.TextClose #1End IfEnd Sub④另存为as亍 | |di clcPrivate Sub as__Cli ck 0Dim ss As StringCommordDialogl. CaneelError = TrueCommonDialogl. Flags = cdlOFWFileHustEx i st Or cdlOFNOverwri t ePromptOn Err^r GoTo aCommorJDi&logl. ShowSave'分离路径和文件名Dim index As Integerindex = InStrRev(ComrriOTLDi alogl. Filellanisfile = Right (CommonDi alogl. FilQHam©, LenCConmonDi alogl. FileName) - index) sdir = Le£t(CofnmoiLDialogi. FilelTairie, iitdex ~ 1)'打开文件・Open CcmmonDi alogl. FileName For Output As #1Frint #1, Textl. TextClose #1Forml.Caption = sfile + " - 记事本"a.：Exit SubEnd Sub注解：定义一个变量ss作为字符串如果正确执行操作错误就执行a退出⑤打印print⑥退出exit(2)编辑editing①剪切cut|cut ▼ |②Pri vate Sub cut —Click 0 Clipboard. SetText CTextl.SelText) TeKtl. SelText = ““ End. Sub）复制copy | copy▼Private Sub copy^Click()Clipboard. SetText (Textl. SelText) End Sub③粘贴pastPrivate Sub pasckQI Textl. SelText = Clipboard. GfitText End. Sub④删除deleteEnd Sut.⑤查找findI findjrJ |Cli ckPrivate Sub find_Click 0kfind = InputB 输入要査拚词；"，“查钱內容-沁皿)’查找输入框 BichTextBoxl.find sfind'查技‘If RichTextBoxl.SelText <> sfind ThenrkgBz "携不到所要查询的内咨，“查询无果根告… End If End Siib注释：sFind 二InputBox 查找输入框MsgBox 〃找不到所要查询的内容S , 〃查询无果报告〃⑥查找下一个 findnextPrivate Sub findnext_Click0jRichTex tBoxl. SelStart = BichTextBoxl. SelStar t + BichTextBoxl. SelLength + 1 RichTextBosd ・ £ird. sFind^ , Len(RichTextB1) End. Sub⑦全选seleall| findnextPrivate Sub delete Click0 Textl.SeLText ="“Private Sub seieall_Cli ck()Textl.SeLStart 二0Textl. SeLLength = LenCTextl. Text)End Sub（3）格式①自动换行autonewline▼ | |Clic：|aut onewlineFri vate Sub autoMwl ine^Click 0If an t on e wl i ne. C he eke d Then auton«wline. CLeeked =False Textl.ScrollBars = 3Elseautonewline. Checked 二True Textl.ScrollBars = 1End I£End Sub②字体fondI font ■Private Sub font_Click0CommonlliQlogl. Fontffame 二Forml. FontMCommonDialogi. FoxitBold = Ferrol. FoxitBDim a As CommonDialogl. Show Font 'a = Commonllialogl. ShovFrinter End Su*b(4)帮助help关于about。

vb记事本个人用vb做了一个山寨记事本,分享一下：所用控件比较少，主要是用的commondialog控件一．功能文件打开，文件保存，复制，粘贴，剪贴，删除，字体各项设置，帮助菜单二．程序Private Sub a_Click() '复制Clipboard.SetText Text1.SelTextEnd SubPrivate Sub b_Click() '剪贴Clipboard.SetText Text1.SelTextText1.SelText = ""End SubPrivate Sub c_Click() '粘贴Text1.SelText = Clipboard.GetTextEnd SubPrivate Sub f_Click() '删除Text1.SelText = ""End SubPrivate Sub d_Click() '字体CommonDialog1.Flags = cdlCFEffects + cdlCFBothCommonDialog1.ShowFontWith CommonDialog1On Error GoTo AText1.FontName = .FontNameText1.FontBold = .FontBoldText1.FontItalic = .FontItalicText1.FontSize = .FontSizeText1.FontStrikethru = .FontStrikethruText1.FontUnderline = .FontUnderlineText1.ForeColor = .ColorA: Text1.FontName = "宋体"Text1.FontBold = .FontBoldText1.FontItalic = .FontItalicText1.FontSize = .FontSizeText1.FontStrikethru = .FontStrikethruText1.FontUnderline = .FontUnderlineText1.ForeColor = .ColorEnd WithEnd SubPrivate Sub e_Click() '打开Dim temp As StringDim all As StringCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Do While Not EOF(1)Input #1, tempall = all & temp & Chr(13) & Chr(10)LoopClose #1Text1.Text = allEnd SubPrivate Sub q_Click() '保存CommonDialog1.FileName = ""CommonDialog1.Filter = "数据文件(*.dat)"CommonDialog1.DialogTitle = "保存文件"CommonDialog1.InitDir = App.Path & "\"CommonDialog1.ShowSaveCommonDialog1.Flags = cdlOFNOverwritePrompt If CommonDialog1.FileName <> "" Thenfliename = CommonDialog1.FileNamestrText = Text1.TextOpen fliename For Output As #2Print #2, strTextClose #2End IfEnd SubPrivate Sub y_Click()’帮助对话框Form2.ShowEnd Sub三．界面1．主界面2.字体设置3文件保存4.文件打开5.帮助对话框。