VB记事本源代码

《VB记事本源代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、这是窗口一（主窗体）的代码：OptionExplicitDimsaveNotAsBooleanDimallTextAsStringPrivateSubAbout_Click()MsgBox"记事本Ver1.0版权所有(C)魏文彬",vbOKOnly,"关于"EndSub'全选功能代码PrivateSubAllselect_Click()RichtextBox1.SelStart=0RichtextBox1.SelLength=Len(RichtextBox1.Text)EndSub'背景颜色代码PrivateSubBgColor_

2、Click()CommonDialog1.ShowColorRichtextBox1.BackColor=CommonDialog1.ColorEndSub'撤销代码PrivateSubCancel_Click()SendMessageLongRichtextBox1.hwnd,EM_UNDO,0,0EndSubPrivateSubCopy_Click()Clipboard.SetTextRichtextBox1.SelTextRichtextBox1.SetFocusEndSub'剪切功能代码PrivateSubCut_Clic

3、k()Clipboard.SetTextRichtextBox1.SelTextRichtextBox1.SelText=""RichtextBox1.SetFocusEndSub'时间日期代码PrivateSubdate_Click()RichtextBox1.SelText=DateTime.NowEndSub'删除功能代码PrivateSubDelect_Click()RichtextBox1.SelText=""'删除选中的文字EndSub'退出功能代码PrivateSubExit_Click()DimxAsInteger

4、IfsaveNotThenx=MsgBox("文件已更改是否保存更改",vbYesNoCancel+vbExclamation,"我的记事本")Ifx=6ThenSave_ClickElseIfx=7ThenEndElseRichtextBox1.SetFocusEndIfElseEndEndIfEndSub'查找功能代码PrivateSubFind_Click()Form2.Label2.Visible=FalseForm2.Text2.Visible=FalseForm2.Command4.Visible=FalseForm2

5、.Caption="查找"Form2.ShowEndSub'设置选中文字的字体PrivateSubFont_Click()CommonDialog1.ShowFontRichtextBox1.SelFontName=CommonDialog1.FontNameRichtextBox1.SelFontSize=CommonDialog1.FontSizeRichtextBox1.SelBold=CommonDialog1.FontBoldRichtextBox1.SelStrikeThru=CommonDialog1.FontStr

6、ikethruRichtextBox1.SelItalic=CommonDialog1.FontItalicRichtextBox1.SelUnderline=CommonDialog1.FontUnderlineEndSub'设置选中文字的颜色PrivateSubFontColor_Click()CommonDialog1.ShowColorRichtextBox1.SelColor=CommonDialog1.ColorEndSub'新建功能代码PrivateSubNew_Click()DimxAsIntegerIfsaveN

7、otThenx=MsgBox("文件已更改，是否保存更改",vbYesNoCancel+vbExclamation,"我的记事本")Ifx=6ThenSave_ClickElseIfx=7ThenRichtextBox1.Text=""ElseRichtextBox1.SetFocusEndIfElseRichtextBox1.Text=""EndIfEndSub'打开功能代码PrivateSubOpen_Click()Close#1CommonDialog1.Filter="文本文件(*.TXT)

8、*.txt"CommonDia

9、log1.ShowOpenIfCommonDialog1.FileName<>""ThenRichtextBox1.Text=""OpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)Input