VB编写简单的记事本(模仿Windows)

来源:http://www.youlihuishou.com 作者:杏彩平台注册网址-操作系统 人气:146 发布时间:2020-01-06
摘要:新建功能: 用C#编写一个简单的记事本, using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Threading.Tasks;using S

新建功能:

用C#编写一个简单的记事本,

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;


namespace Notepad
{
    public partial class frmNotepad : Form
    {   
        //***********************************************************************
        /*布尔变量b用于判断文件是新建的还是从磁盘打开的 true 表示从磁盘打开,false表示文件是新建的,默认值为false*/
        bool b = false;
        /*布尔变量s用于判断文件是否被保存 true 表示已经被保存,false表示未被保存,默认值为true*/
        bool s = true;
        //***********************************************************************

        public frmNotepad()
        {
            InitializeComponent();
            richTextBox1.Text = "";
        }

        //************************************************************************* 
        // 多格式文本框的TextChanged事件代码  
        //************************************************************************* 
        private void richTextBox1_TextChanged(object sender, EventArgs e)
        {
            //文本框被修改后,设置s为false,表示文件未保存
            s = false;
        }


        //************************************************************************* 
        // 【文件】菜单各菜单项的单击代码  
        //************************************************************************* 
        //************************************************************************* 
        // 【新建】菜单代码  
        //*************************************************************************
        private void 新建NToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //判断当前文件是否是从磁盘打开,或者新建时文档不为空,并且文件未被保存
            if(b == true || richTextBox1.Text.Trim() != "")
            {
                //若文件未保存
                if(s == false)
                {
                    string result;
                    result = MessageBox.Show("文件尚未保存,是否保存?", "保存文件", MessageBoxButtons.YesNoCancel).ToString();
                    switch(result)
                    {
                        case"Yes":
                            //若文件是从磁盘打开的
                            if(b == true)
                            {
                                //按文件打开的路径保存文件
                                richTextBox1.SaveFile(sdlgNotepad.FileName);
                            }else if(sdlgNotepad.ShowDialog()==DialogResult.OK)
                            {
                                richTextBox1.SaveFile(sdlgNotepad.FileName);
                            }
                            s = true;
                            richTextBox1.Text = "";
                            break;
                        case"No":
                            b = false;
                            richTextBox1.Text = "";
                            break;
                    }
                }
            }
        }

        //************************************************************************* 
        // 【保存】菜单代码 
        //*************************************************************************
        private void 保存SToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //若文件从磁盘打开并且修改了其中内容
            if(b == true && richTextBox1.Modified == true)
            {
                richTextBox1.SaveFile(odlgNotepad.FileName);
                s = true;
            }
            else if(b == false && richTextBox1.Text.Trim() != "" &&sdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                //保存文件
                richTextBox1.SaveFile(sdlgNotepad.FileName);
                s = true;
                b = true;
                odlgNotepad.FileName = sdlgNotepad.FileName;
            }
        }

        //************************************************************************* 
        // 【打开】菜单代码  
        //************************************************************************* 
        private void 打开OToolStripMenuItem_Click(object sender, EventArgs e)
        {
             //判断当前文件是否是从磁盘打开,或者新建时文档不为空,并且文件未被保存
            try
            {
                if (b == true || richTextBox1.Text.Trim() != "")
                {
                    if (s == false)
                    {
                        string result;
                        result = MessageBox.Show("文件尚未保存,是否保存?", "保存文件", MessageBoxButtons.YesNoCancel).ToString();
                        switch (result)
                        {
                            case "Yes":
                                //若文件是从磁盘打开的
                                if (b == true)
                                {
                                    //按文件打开的路径保存文件
                                    richTextBox1.SaveFile(sdlgNotepad.FileName);
                                }
                                else if (sdlgNotepad.ShowDialog() == DialogResult.OK)
                                {
                                    richTextBox1.SaveFile(sdlgNotepad.FileName);
                                }
                                s = true;
                                richTextBox1.Text = "";
                                break;
                            case "No":
                                b = false;
                                richTextBox1.Text = "";
                                break;
                        }
                    }
                }
                odlgNotepad.RestoreDirectory = true;
                if ((odlgNotepad.ShowDialog() == DialogResult.OK) && odlgNotepad.FileName != "")
                {
                    //打开文件
                    richTextBox1.LoadFile(odlgNotepad.FileName);
                    b = true;
                }
                s = true;
            }
            catch(Exception ex)
            {

            }

        }

        //************************************************************************* 
        // 【另存为】菜单代码  
        //************************************************************************* 
        private void 另存为AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            if(sdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                richTextBox1.SaveFile(sdlgNotepad.FileName);
                s = true;
            }
        }

        //************************************************************************* 
        // 【退出】菜单代码  
        //*************************************************************************
        private void 退出XToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //结束程序运行
            Application.Exit();
        }

        //************************************************************************* 
        // 【编辑】菜单各菜单项的单击代码  
        //************************************************************************* 
        // 【撤销】菜单代码 
        private void 撤消UToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //撤销操作
            richTextBox1.Undo();
        }

        // 【复制】菜单代码
        private void 复制CToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //复制
            richTextBox1.Copy();
        }

        // 【剪切】菜单代码
        private void 剪切TToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //剪切
            richTextBox1.Cut();
        }

        // 【粘贴】菜单代码
        private void 粘贴PToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //粘贴
            richTextBox1.Paste();
        }

        // 【全选】菜单代码
        private void 全选AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //全选
            richTextBox1.SelectAll();
        }

        //************************************************************************* 
        // 【格式】菜单代码  
        //************************************************************************* 
        private void 工具TToolStripMenuItem_Click(object sender, EventArgs e)
        {

        }

        // 【自动换行】菜单代码
        private void 自定义CToolStripMenuItem_Click(object sender, EventArgs e)
        {
            if(自定义CToolStripMenuItem.Checked == false)
            {
                //选中自动换行
                自定义CToolStripMenuItem.Checked = true;
                //设置为自动换行
                richTextBox1.WordWrap = true;
            }
            else
            {
                //未选中自动换行
                自定义CToolStripMenuItem.Checked = false;
                //设置为不自动换行
                richTextBox1.WordWrap = false;
            }
        }

        // 【字体】菜单代码
        private void 选项OToolStripMenuItem_Click(object sender, EventArgs e)
        {
            fdlgNotepad.ShowColor = true;
            if(fdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                richTextBox1.SelectionColor = fdlgNotepad.Color;
                richTextBox1.SelectionFont = fdlgNotepad.Font;
            }
        }

        //************************************************************************* 
        // 【帮助】菜单代码  
        //*************************************************************************
        // 【关于】菜单代码
        private void 关于AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            MessageBox.Show("wky  编写", "关于"记事本"", MessageBoxButtons.OK);
        }

        //************************************************************************* 
        // 计时器控件的Tick事件代码  
        //*************************************************************************
        private void tmrNotepad_Tick(object sender, EventArgs e)
        {
            //获取系统当前时间,并显示在状态栏中
            tssLbl2.Text = System.DateTime.Now.ToString();
        }

        private void 粘贴PToolStripButton_Click(object sender, EventArgs e)
        {
            richTextBox1.Paste();
        }



    }
}

杏彩平台注册网址 1

 

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; usin...

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;


namespace Notepad
{
    public partial class frmNotepad : Form
    {   
        //***********************************************************************
        /*布尔变量b用于判断文件是新建的还是从磁盘打开的 true 表示从磁盘打开,false表示文件是新建的,默认值为false*/
        bool b = false;
        /*布尔变量s用于判断文件是否被保存 true 表示已经被保存,false表示未被保存,默认值为true*/
        bool s = true;
        //***********************************************************************

        public frmNotepad()
        {
            InitializeComponent();
            richTextBox1.Text = "";
        }

        //************************************************************************* 
        // 多格式文本框的TextChanged事件代码  
        //************************************************************************* 
        private void richTextBox1_TextChanged(object sender, EventArgs e)
        {
            //文本框被修改后,设置s为false,表示文件未保存
            s = false;
        }


        //************************************************************************* 
        // 【文件】菜单各菜单项的单击代码  
        //************************************************************************* 
        //************************************************************************* 
        // 【新建】菜单代码  
        //*************************************************************************
        private void 新建NToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //判断当前文件是否是从磁盘打开,或者新建时文档不为空,并且文件未被保存
            if(b == true || richTextBox1.Text.Trim() != "")
            {
                //若文件未保存
                if(s == false)
                {
                    string result;
                    result = MessageBox.Show("文件尚未保存,是否保存?", "保存文件", MessageBoxButtons.YesNoCancel).ToString();
                    switch(result)
                    {
                        case"Yes":
                            //若文件是从磁盘打开的
                            if(b == true)
                            {
                                //按文件打开的路径保存文件
                                richTextBox1.SaveFile(sdlgNotepad.FileName);
                            }else if(sdlgNotepad.ShowDialog()==DialogResult.OK)
                            {
                                richTextBox1.SaveFile(sdlgNotepad.FileName);
                            }
                            s = true;
                            richTextBox1.Text = "";
                            break;
                        case"No":
                            b = false;
                            richTextBox1.Text = "";
                            break;
                    }
                }
            }
        }

        //************************************************************************* 
        // 【保存】菜单代码 
        //*************************************************************************
        private void 保存SToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //若文件从磁盘打开并且修改了其中内容
            if(b == true && richTextBox1.Modified == true)
            {
                richTextBox1.SaveFile(odlgNotepad.FileName);
                s = true;
            }
            else if(b == false && richTextBox1.Text.Trim() != "" &&sdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                //保存文件
                richTextBox1.SaveFile(sdlgNotepad.FileName);
                s = true;
                b = true;
                odlgNotepad.FileName = sdlgNotepad.FileName;
            }
        }

        //************************************************************************* 
        // 【打开】菜单代码  
        //************************************************************************* 
        private void 打开OToolStripMenuItem_Click(object sender, EventArgs e)
        {
             //判断当前文件是否是从磁盘打开,或者新建时文档不为空,并且文件未被保存
            try
            {
                if (b == true || richTextBox1.Text.Trim() != "")
                {
                    if (s == false)
                    {
                        string result;
                        result = MessageBox.Show("文件尚未保存,是否保存?", "保存文件", MessageBoxButtons.YesNoCancel).ToString();
                        switch (result)
                        {
                            case "Yes":
                                //若文件是从磁盘打开的
                                if (b == true)
                                {
                                    //按文件打开的路径保存文件
                                    richTextBox1.SaveFile(sdlgNotepad.FileName);
                                }
                                else if (sdlgNotepad.ShowDialog() == DialogResult.OK)
                                {
                                    richTextBox1.SaveFile(sdlgNotepad.FileName);
                                }
                                s = true;
                                richTextBox1.Text = "";
                                break;
                            case "No":
                                b = false;
                                richTextBox1.Text = "";
                                break;
                        }
                    }
                }
                odlgNotepad.RestoreDirectory = true;
                if ((odlgNotepad.ShowDialog() == DialogResult.OK) && odlgNotepad.FileName != "")
                {
                    //打开文件
                    richTextBox1.LoadFile(odlgNotepad.FileName);
                    b = true;
                }
                s = true;
            }
            catch(Exception ex)
            {

            }

        }

        //************************************************************************* 
        // 【另存为】菜单代码  
        //************************************************************************* 
        private void 另存为AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            if(sdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                richTextBox1.SaveFile(sdlgNotepad.FileName);
                s = true;
            }
        }

        //************************************************************************* 
        // 【退出】菜单代码  
        //*************************************************************************
        private void 退出XToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //结束程序运行
            Application.Exit();
        }

        //************************************************************************* 
        // 【编辑】菜单各菜单项的单击代码  
        //************************************************************************* 
        // 【撤销】菜单代码 
        private void 撤消UToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //撤销操作
            richTextBox1.Undo();
        }

        // 【复制】菜单代码
        private void 复制CToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //复制
            richTextBox1.Copy();
        }

        // 【剪切】菜单代码
        private void 剪切TToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //剪切
            richTextBox1.Cut();
        }

        // 【粘贴】菜单代码
        private void 粘贴PToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //粘贴
            richTextBox1.Paste();
        }

        // 【全选】菜单代码
        private void 全选AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            //全选
            richTextBox1.SelectAll();
        }

        //************************************************************************* 
        // 【格式】菜单代码  
        //************************************************************************* 
        private void 工具TToolStripMenuItem_Click(object sender, EventArgs e)
        {

        }

        // 【自动换行】菜单代码
        private void 自定义CToolStripMenuItem_Click(object sender, EventArgs e)
        {
            if(自定义CToolStripMenuItem.Checked == false)
            {
                //选中自动换行
                自定义CToolStripMenuItem.Checked = true;
                //设置为自动换行
                richTextBox1.WordWrap = true;
            }
            else
            {
                //未选中自动换行
                自定义CToolStripMenuItem.Checked = false;
                //设置为不自动换行
                richTextBox1.WordWrap = false;
            }
        }

        // 【字体】菜单代码
        private void 选项OToolStripMenuItem_Click(object sender, EventArgs e)
        {
            fdlgNotepad.ShowColor = true;
            if(fdlgNotepad.ShowDialog() == DialogResult.OK)
            {
                richTextBox1.SelectionColor = fdlgNotepad.Color;
                richTextBox1.SelectionFont = fdlgNotepad.Font;
            }
        }

        //************************************************************************* 
        // 【帮助】菜单代码  
        //*************************************************************************
        // 【关于】菜单代码
        private void 关于AToolStripMenuItem_Click(object sender, EventArgs e)
        {
            MessageBox.Show("wky  编写", "关于"记事本"", MessageBoxButtons.OK);
        }

        //************************************************************************* 
        // 计时器控件的Tick事件代码  
        //*************************************************************************
        private void tmrNotepad_Tick(object sender, EventArgs e)
        {
            //获取系统当前时间,并显示在状态栏中
            tssLbl2.Text = System.DateTime.Now.ToString();
        }

        private void 粘贴PToolStripButton_Click(object sender, EventArgs e)
        {
            richTextBox1.Paste();
        }



    }
}

Private Sub xinjian_Click()

杏彩平台注册网址 2

Dim a As String

 

Dim b As Integer

a = "文件"

  • Caption + "的文字已经改变。"
  • Chr(13) + "想保存文件吗?"

If Text1.Text > "" Then b = MsgBox(a, vbApplicationModal + vbDefaultButton1 + vbYesNoCancel + vbExclamation, "记事本")

Select Case b

       Case 6

            CommonDialog1.CancelError = True

            On Error GoTo errhandler

            CommonDialog1.DialogTitle = "另存为"

            CommonDialog1.InitDir = "c:windows"

            CommonDialog1.FileName = "*.txt"

            CommonDialog1.Filter = "text files(*.txt)|*.txt"

            CommonDialog1.ShowSave

            Open CommonDialog1.FileName For Output As #1

            Print #1, Mid(Text1.Text, 1, Len(Text1.Text))

            Close #1

            Text1.Text = ""

errhandler:

             Exit Sub

           

        Case 7

            Text1.Text = ""

            Exit Sub

End Select

End Sub

 

另存为功能:

Private Sub lingcunwei_Click()

CommonDialog1.CancelError = True

On Error GoTo errhandler

CommonDialog1.DialogTitle = "另存为"

CommonDialog1.InitDir = "c:windows"

CommonDialog1.FileName = "*.txt"

CommonDialog1.Filter = "text files(*.txt)|*.txt"

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

     Print #1, Mid(Text1.Text, 1, Len(Text1.Text))

     Close #1

errhandler:

杏彩平台注册网址,  Exit Sub

End Sub

 

 

 

 

保存功能:

Private Sub baocun_Click()

CommonDialog1.CancelError = True

On Error GoTo errhandler

CommonDialog1.DialogTitle = "另存为"

CommonDialog1.InitDir = "c:windows"

 CommonDialog1.FileName = "*.txt"

  CommonDialog1.Filter = "text files(*.txt)|*.txt"

  CommonDialog1.ShowSave

    Open CommonDialog1.FileName For Output As #1

    Print #1, Mid(Text1.Text, 1, Len(Text1.Text))

     Close #1

errhandler:

  Exit Sub

End Sub

 

 

打开功能:

Private Sub dakai_Click()

CommonDialog1.CancelError = True

On Error GoTo errhandler

CommonDialog1.DialogTitle = "打开文本文件"

CommonDialog1.FileName = ""

CommonDialog1.InitDir = "c:windows"

CommonDialog1.Filter = "text files(*.text)|*.txt"

CommonDialog1.ShowOpen

If CommonDialog1.FileName > "" Then

Text1.Text = ""

Open CommonDialog1.FileName For Input As #1

Do While Not EOF(1)

   Line Input #1, s

   Text1.Text = Text1.Text + s + vbCrLf

Loop

Close #1

End If

errhandler:

  Exit Sub

End Sub

 

打印功能:

Private Sub dayin_Click()

CommonDialog1.CancelError = True

On Error GoTo errhandler

CommonDialog1.Flags = 256

CommonDialog1.ShowPrinter

For i = 1 To CommonDialog1.Copies

  Printer.Print Text1.Text

  Next i

errhandler:

   Exit Sub

End Sub

复制功能:

Private Sub fuzhi_Click()

Clipboard.Clear  'clipboard为剪切板

Clipboard.SetText Text1.SelText

End Sub

 

 

 

剪切功能:

Private Sub jianqie_Click()

Clipboard.Clear   'clipboard为剪切板

Clipboard.SetText Text1.SelText

Text1.Text = ""

End Sub

 

粘贴功能:

Private Sub niantie_Click()

Text1.SelText = Clipboard.GetText

End Sub

 

 

查找功能:

Private Sub chazhao_Click()

Dim pos As Integer

Dim t As String

t = InputBox$("请输入要查找的内容:", "查找")

Text1.SetFocus

pos = InStr(1, Text1.Text, t)

If pos > 0 Then

        Text1.SelStart = pos - 1

        Text1.SelLength = Len(t)

   Else

       MsgBox "没有找到您要查找的内容!", vbInformation, "记事本"

End If

End Sub

 

 

全选功能:

Private Sub quanxuan_Click()

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

 

 

删除功能:

Private Sub shanchu_Click()

Text1.SelText = ""

End Sub

 

时间/日期功能:

Private Sub shijian_Click()

a = Year(Date)

b = Month(Date)

c = Day(Date)

d = Hour(Time())

e = Minute(Time())

Text1.Text = Text1.Text + Str(a) + "-" + Str(b) + "-" + Str(c) + "   " + Str(d) + ":" + Str(e)

End Sub

 

Private Sub tuichu_Click()

End

End Sub


 

字体功能:

Private Sub ziti_Click()

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects

CommonDialog1.ShowFont

CommonDialog1.FontName = "宋体"

With Text1

.FontName = CommonDialog1.FontName

.FontSize = CommonDialog1.FontSize

.FontItalic = CommonDialog1.FontItalic

.FontStrikethru = CommonDialog1.FontStrikethru

.FontUnderline = CommonDialog1.FontUnderline

.ForeColor = CommonDialog1.Color

End With

End Sub

 

 

关于记事本功能:

Private Sub guanyujishiben_Click()

Form2.Show

End Sub

 

帮助主题功能:

Private Sub bangzhuzhuti_Click()

form3.Show

End Sub

 

 

界面如下: 

 

 

本文由杏彩彩票app发布于杏彩平台注册网址-操作系统,转载请注明出处:VB编写简单的记事本(模仿Windows)

关键词:

上一篇:【转】C++ map的基本操作和使用

下一篇:没有了

最火资讯