简单记事本

软件技术国家教学资源库建设项目软件开发素材之C源代码一、名称简单记事本二、创建或搜集相关信息搜集单位重庆电子工程职业学院搜集时间20120805来源互联网三、适用对象学生、教师、C及ASPNET项目开发人员、相关技术人员等。四、功能简介实现一个简单记事本。五、程序代码程序名称MAINFORMCSUSINGSYSTEMUSINGSYSTEMCOLLECTIONSGENERICUSINGSYSTEMCOMPONENTMODELUSINGSYSTEMDATAUSINGSYSTEMDRAWINGUSINGSYSTEMLINQUSINGSYSTEMTEXTUSINGSYSTEMWINDOWSFORMSUSINGSYSTEMIONAMESPACESIMPLENOTEPADPUBLICPARTIALCLASSMAINFORMFORMPUBLICMAINFORMINITIALIZECOMPONENTTHISTEXTCURRENTFILENAME“记事本“PRIVATEVOID退出TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFCHANGEFALSE/文件内容没有变化APPLICATIONEXITELSEIFCHECKSAVE/文件内容变化，先保存APPLICATIONEXITBOOLCHANGEFALSESTRINGCURRENT“无标题“/CURRENTDIRCURRENTFILENAMESTRINGCURRENTDIR“STRINGCURRENTFILENAME“无标题“PRIVATEBOOLCHECKSAVE/判断文件是否保存IFCURRENTDIR“SWITCHMESSAGEBOXSHOW“文件“CURRENT“的文字已经改变。NN想保存文件吗“,“记事本“,MESSAGEBOXBUTTONSYESNOCANCEL,MESSAGEBOXICONWARNINGCASEDIALOGRESULTYESSAVEFILERETURNTRUECASEDIALOGRESULTNORETURNTRUECASEDIALOGRESULTCANCELRETURNFALSEDEFAULTRETURNFALSEELSESWITCHMESSAGEBOXSHOW“文件“CURRENT“的文字已经改变。NN想保存文件吗“,“记事本“,MESSAGEBOXBUTTONSYESNOCANCEL,MESSAGEBOXICONWARNINGCASEDIALOGRESULTYESOTHERSAVEFILERETURNTRUECASEDIALOGRESULTNORETURNTRUECASEDIALOGRESULTCANCELRETURNFALSEDEFAULTRETURNFALSEPRIVATEVOIDOPENFILEIFOPENFILEDIALOG1SHOWDIALOGDIALOGRESULTOK/打开文件，并将文件内容添加到RICHTEXTBOX控件中RICHTEXTBOX1LOADFILEOPENFILEDIALOG1FILENAME,RICHTEXTBOXSTREAMTYPEPLAINTEXTCURRENTOPENFILEDIALOG1FILENAME/文件标识变量THISTEXTOPENFILEDIALOG1SAFEFILENAME“记事本“/窗体文本CURRENTFILENAMEOPENFILEDIALOG1SAFEFILENAME/对话框选定的文件和扩展名CURRENTDIRCURRENTSUBSTRING0,CURRENTLENGTHCURRENTFILENAMELENGTHCHANGEFALSE/是否修改的标识变量PRIVATEVOIDSAVEFILERICHTEXTBOX1SAVEFILECURRENT,RICHTEXTBOXSTREAMTYPEPLAINTEXTCHANGEFALSEPRIVATEVOIDOTHERSAVEFILEIFSAVEFILEDIALOG1SHOWDIALOGDIALOGRESULTOKRICHTEXTBOX1SAVEFILESAVEFILEDIALOG1FILENAME,RICHTEXTBOXSTREAMTYPEPLAINTEXTCHANGEFALSEPRIVATEVOID新建TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFCHANGEFALSE/标识变量RICHTEXTBOX1TEXT“THISTEXT“无标题记事本“CURRENT“无标题“CURRENTDIR“CURRENTFILENAME“无标题“CHANGEFALSEELSEIFCHECKSAVERICHTEXTBOX1TEXT“THISTEXT“无标题记事本“CURRENT“无标题“CHANGEFALSEPRIVATEVOIDRICHTEXTBOX1_TEXTCHANGEDOBJECTSENDER,EVENTARGSECHANGETRUE/标识变量PRIVATEVOID打开TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFCHANGEIFCHECKSAVEOPENFILEELSEOPENFILEPRIVATEVOID保存TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFCURRENTDIR“SAV