用VB写记事本的程序
vb记事本编程源程序
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 & "的文字已经改变。
最强导读vb6.0记事本程序(1)
Select Case Right(fileTitle, 3) Case "rtf" RichTextBox1.saveFile fileName
Case "txt"
新建文件
Me.Caption = " 无标题 - 记事本 "
= " Me.RichTextBox1.Font.Size = 12 Me.RichTextBox1.Text = "" noteText = "" fileName = "" fileTitle = "" preText = "" preTextTemp = "" End Sub
saveTo = False Else RichTextBox1.saveFile fileName
noteText = RichTextBox1.Text End If
End Sub
Private Function isIgnore() As Boolean '' Dim msgAs String
preText = preTextTemp
preTextTemp = RichTextBox1.Text
End Sub '' 文件菜单
' 新建文本文件 ' 打开文本文件 ' 保存文本文件
newFile_Click() openFile_Click() saveFile_Click()
' 另存文件 saveTo() '-
VB2020编写的简易记事本
Public Class实训1Private fileName As String‘声明一个模块级变量，用于保存当前正在编辑的文件名Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadShowStatus()End SubPrivate Sub mnu格式_自动换行_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu格式_自动换行.ClickIf mnu格式_自动换行.Checked = False Thenmnu格式_自动换行.Checked = TrueTextBox1.WordWrap = TrueElsemnu格式_自动换行.Checked = FalseTextBox1.WordWrap = FalseEnd IfEnd SubPrivate Sub mnu文件_退出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu文件_退出.ClickMe.Close()End SubPrivate Sub mnu帮助_关于_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles帮助_关于_ClickMessageBox.Show("有待完善的简易记事本，版本1.0“，”关于记事本") End SubPrivate Sub mnu文件_新建_Click（ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu文件_新建_ClickSaveFileDialog1.Title = "新建文件"'更改对话框的默认标题SaveFileDialog1.InitialDirectory = "C:\"SaveFileDialog1.Filter = "txt files (*.txt)|*.txt*"If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then'将对话框中的文件名称赋给变量，用户选择“保存”时仍采用该名称fileName = SaveFileDialog1.FileName'使窗体标题栏显示出当前编辑的文件名Me.Text = "简易记事本-" & fileName'清空文本框中的所有内容TextBox1.Clear()'新建一个空内容文件puter.FileSystem.WriteAllText(fileName, "", True)End IfEnd SubPrivate Sub文件_打开_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles文件_打开_ClickOpenFileDialog1.InitialDirectory = "C:\"OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK ThenfileName = OpenFileDialog1.FileNameMe.Text = "简易记事本-" & fileNameTextBox1.Text = fileName '文件名保存到模块级变量中'将文件内容读入并输出到TextBox1文本框中TextBox1.Text = puter.FileSystem.ReadAllText(fileName)End IfEnd SubPrivate Sub mnu文件_保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu文件_保存_ClickSaveFileDialog1.Title = "保存文件"'更改对话框的默认标题'设置初始路径为当前文件所在的路径SaveFileDialog1.InitialDirectory = System.IO.Path.GetDirectoryName(fileName)SaveFileDialog1.Filter = "Txt 文件|*.txt"'使对话框中自动出现当前文件的文件名SaveFileDialog1.FileName = System.IO.Path.GetFileName(fileName)If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK ThenfileName = SaveFileDialog1.FileName'文本内容保存到文件puter.FileSystem.WriteAllText(fileName, TextBox1.Text, True)Me.Text = "简易记事本-" & fileNameEnd IfEnd SubPrivate Sub mnu格式_字体_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu格式_字体_ClickFontDialog1.ShowColor = True'显示字体颜色选择列表框（默认为不显示）If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK ThenTextBox1.Font = FontDialog1.FontTextBox1.ForeColor = FontDialog1.ColorEnd IfEnd SubPrivate Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.ClickMe.mnu文件_新建_Click(sender, e)End SubPrivate Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.ClickMe.mnu文件_打开_Click(sender, e)End SubPrivate Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.ClickMe.mnu文件_保存_Click(sender, e)End SubPrivate Sub ShowStatus()'统计字符个数，显示在状态栏标签1中Me.ToolStripStatusLabel1.Text = "字符总数："& Me.TextBox1.Text.Length & Space(4)'统计行数，显示在状态栏标签2中Me.ToolStripStatusLabel2.Text = "段落总数："& Me.TextBox1.Lines.Length & Space(6)'当前日期显示在状态栏标签3中Me.ToolStripStatusLabel3.Text = "今天是：" & Today()End SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedShowStatus()End SubPrivate Sub剪切ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles剪切ToolStripMenuItem1.ClickTextBox1.Cut()End SubPrivate Sub复制ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles复制ToolStripMenuItem1.ClickTextBox1.Copy()End SubPrivate Sub粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles粘贴ToolStripMenuItem.ClickTextBox1.Paste()End SubPrivate Sub粘贴ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles粘贴ToolStripMenuItem1.ClickTextBox1.Paste()End SubPrivate Sub剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles剪切ToolStripMenuItem.ClickTextBox1.Cut()End SubPrivate Sub复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles复制ToolStripMenuItem.ClickTextBox1.Copy()End SubEnd Class。
VB开发记事本的功能(文本文档 (
VB开发记事本的功能（文本文档 (.txt) ）功能：VB开发记事本的功能（文本文档 (.txt) ），使其具有记事本的各块功能VB界面如下：图二1.电脑上必须要先Microsoft Visual Studio(也就是VB软件)2.用VB软件设置窗口如上（图二）3.各个Command对应的VB代码如下：' 初始化Private Sub Form_Load()' 设置当前路径ChDir App.PathChDrive App.Path' 设置文本框的位置txtEdit.Move 0, 0' 初始Filename变量FileName = "Untitled"FileType = 1' 设置窗体位置Top = Screen.Height / 2 - Height / 2 Left = Screen.Width / 2 - Width / 2 End Sub' 改变窗口大小Private Sub Form_Resize()' 窗体大小改变时，相应的改变文本框大小 txtEdit.Width = ScaleWidthtxtEdit.Height = ScaleHeightEnd Sub' “文件”菜单Private Sub mnuFileItem_Click(Index As Integer)On Error GoTo errhandler' 设置过滤器CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|RTF Files (*.rtf)|*.rtf"' 设置缺省过滤器CMDialog1.FilterIndex = 2Select Case Index' 根据菜单的索引选择相应的操作Case 0' 如果index = 0, 新建文本文件txtEdit.Text = "" '清空文本框内容FileName = "Untitled"frmEditor.Caption = "记事本: " & FileName '设置记事本标题为 "记事本: Untitled"Case 1' 如果index = 1, 打开文本文件' 显示"打开"对话框CMDialog1.ShowOpenFileName = CMDialog1.FileNameOpenFile (FileName)Case 2' 如果index = 2, 保存文件If FileName = "Untitled" Then'如果文件尚未命名，则显示保存对话框 CMDialog1.ShowSaveFileName = CMDialog1.FileNameWriteFile (FileName)Else'否则直接保存SaveFile (FileName)End IfCase 3' 如果index = 3,另存文件' 显示另存对话框CMDialog1.ShowSaveFileName = CMDialog1.FileNameWriteFile (FileName)Case 4' 无操作，分隔Case 5EndEnd Selecterrhandler:' 错误处理Exit SubEnd Sub' “文件”菜单中的历史文件列表菜单Private Sub mnuFileArray_Click(Index As Integer)' 打开选择的文件If Index >= 0 ThenOpenFile (mnuFileArray(Index).Caption) End IfEnd Sub' 设置“编辑”菜单中子菜单的状态Private Sub mnuEdit_Click()' 如果没有选中文本则使剪切和复制不可用mnuEditItem(0).Enabled = (txtEdit.SelLength > 0) mnuEditItem(1).Enabled = (txtEdit.SelLength > 0)End Sub' “编辑”菜单Private Sub mnuEditItem_Click(Index As Integer)Select Case IndexCase 0' 如果 Index = 0, 剪切选中文本Clipboard.ClearIf FileType = 0 Then ' 剪切选择的文本到Clipboard中.Clipboard.SetText txtEdit.SelRTFtxtEdit.SelRTF = "" ' 清除选中的文本ElseClipboard.SetText txtEdit.SelTexttxtEdit.SelText = "" ' 清除选中的文本End IfCase 1' 如果 Index = 1, 复制选中文本Clipboard.ClearIf FileType = 0 Then ' 复制选择的文本到Clipboard中Clipboard.SetText txtEdit.SelRTFElseClipboard.SetText txtEdit.SelTextEnd IfCase 2' 如果 Index = 2, 粘贴文本txtEdit.SelText = Clipboard.GetText() ' 粘贴文本Case 3' 菜单分隔符Case 4, 5' 如果 Index = 4 5, 查找替换frmFind.Show 0, frmEditorCase 6' 菜单分隔符Case 7' 如果 Index = 4, 全选txtEdit.SelStart = 0txtEdit.SelLength = Len(txtEdit.Text) End SelectEnd Sub' “设置”菜单Private Sub mnuSettingsItem_Click(Index As Integer) On Error GoTo errhandlerSelect Case IndexCase 0' 设置字体CMDialog1.Flags = cdlCFBothCMDialog1.ShowFont '显示“字体”对话框With txtEdit.SelFontName = CMDialog1.FontName.SelBold = CMDialog1.FontBold.SelItalic = CMDialog1.FontItalic.SelFontSize = CMDialog1.FontSize.SelUnderline = CMDialog1.FontUnderline.SelStrikeThru = CMDialog1.FontStrikethruEnd WithCase 1' 设置字体颜色CMDialog1.ShowColor '显示“颜色”对话框txtEdit.SelColor = CMDialog1.ColorEnd Selecterrhandler:' 错误处理Exit SubEnd Sub运行VB时，需要先打开SolidWorks一个新零件窗口，然后运行VB,点击界面按钮即可运行结果：完美实现对应功能。
VB向记事本中写入和获取记事本中内容的程序
'向记事本中写入和获取记事本中内容的程序:Visual Basic codePrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As L ong, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 A s Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongPrivate Const WM_GETTEXT = &HDPrivate Const WM_SETTEXT = &HCPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Function Getsum() As LongDim tempstr As String, strlong As Long, rtn As LongDim winHwnd As LongDim winHwnd1 As LongDim s As StringDim RetVal As LongwinHwnd = FindWindow(vbNullString, "无标题 - 记事本")If winHwnd <> 0 ThenwinHwnd1 = FindWindowEx(winHwnd, 0&, "Edit", vbNullString)s = Space(25700)strlong = Len(s) + 1rtn = SendMessage(winHwnd1, WM_GETTEXT, strlong, s)MsgBox Trim(s)ElseMsgBox "记事本程序没有运行?"End IfEnd FunctionPrivate Function setsum() As LongDim Phwnd As LongDim ChildHwnd As LongPhwnd = FindWindow(vbNullString, "无标题 - 记事本")If Phwnd <> 0 ThenChildHwnd = FindWindowEx(Phwnd, 0, "Edit", vbNullString)If ChildHwnd <> 0 ThenSendMessage ChildHwnd, WM_SETTEXT, 0, ByVal Text1.TextElseMsgBox "找不到相关控件"End IfElseMsgBox "计算器程序没有运行"End IfEnd FunctionPrivate Sub Command1_Click()setsumEnd SubPrivate Sub Command2_Click()GetsumEnd SubPrivate Sub Form_Load()Command1.Caption = "向记事本写入文本"Command2.Caption = "获取记事本中的文本"Dim ReturnValue, IReturnValue = Shell("notepad.exe", 1) ' 运行记事AppActivate ReturnValue ' 激活记事Me.AutoRedraw = TrueEnd Sub针对某些无边框窗口或许可以用GetForegroundWindow来获取它的Visual Basic codePrivate Declare Function GetForegroundWindow Lib "user32" () As Long Private Sub Command1_Click()'测试本窗口hwndText2 = Me.hWnd'测试某个活动窗口hwndMe.HideText1 = GetForegroundWindowMe.ShowEnd SubEnd Sub。
vb课程设计--记事本程序的编写
1 选题的背景与意义1.1 记事本创建的背景通过一学期的vb课程学习，理解并掌握了许多相关知识，知道了面向对象程序设计的基本概念和可视化程序设计的基本方法。
为了更好地掌握与运用vb 中最常用的有关窗体和各种控件的运用、菜单、工具栏、对话框、状态栏、的设计以及文件操作等技术，因此在在学完该课程之后，设计了一个能够编辑编辑文本文档、RichText 文档，其文字处理能力类似于Word的简易记事本。
1.2 记事本创建的意义该记事本具有操作简单，易懂灵活，一目了然的特点，同时由于运用了RichText控件，因此能够打开和编辑任意大的文档，运用起来比windows自带的记事本方便的多。
从而为那些计算机技术应用并不熟练但需要使用计算机快速编辑和修改文档的用户提供了便利。
同时该程序的编写也使得自己的知识掌握的更见牢固。
2 系统详细设计2.1 主要功能能够编辑文本文档，其文字处理功能类似于Word。
具有打开、保存、新建和退出文件功能。
具有剪切、复制、粘贴、设置文字的字体以及大小、颜色、对齐等文字编功能。
以及字符串的查找功能。
打印功能。
2.2 要点的实现既使用技术首先，在创建程序是应先设置窗体大小和编辑框的大小。
'窗体的加载事件Private Sub Form_Load()Form1.Top = 0Form1.Left = 0Me.Height = Screen.Height - 4000Me.Width = Screen.Width - 5000CommonDialog1.FontName = "宋体" '程序运行时字体是宋体End Sub'设置编辑框的大小和位置Private Sub Form_Resize()RichTextBox1.Top = 60RichTextBox1.Left = 20RichTextBox1.Height = Me.Height - 100RichTextBox1.Width = Me.Width - 100End Sub第二，程序设计过程中必须先在窗体中添加CommonDialog和RichText控件。
VB模仿记事本程序
VB课程设计报告课程设计题目:小小记事本程序学生姓名：专业：班级：指导教师：2011年5月29日第一章系统分析 (2)第二章系统实现...........................第10 页第三章使用说明 (11)总结： (12)（一）实验题目：小小记事本（二）实验时间：2011年5月24日-20115月28日（三）地点：软件楼318（四）课程设计要求：仿照windows记事本应用程序，要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能系统分析（以下为窗体、代码和流程图）窗体：注释：该窗体为Form1注释：该窗体为Form2代码如下：Private Sub Form_Resize()txtNotepad.Width = Form1.WidthtxtNotepad.Height = Form1.HeightEnd SubPrivate Sub mnuFind_Click()Form2.ShowEnd SubPrivate Sub mnuChange_Click()Form2.ShowEnd Sub ' 打开菜单项的单击事件过程Private Sub mnuOpen_Click()' 激活对话框前初始化设置相关属性，激活对话框后将无法在代码中设置其属性CommonDialog1.FileName = "*.txt" ' 初始化文件名CommonDialog1.InitDir = "C:\" ' 初始化路径CommonDialog1.Filter = "Word文档|*.doc|文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex = 2 设置默认文件类型CommonDialog1.Action = 1 激活"打开"对话框txtNotepad.Text = "" 清除文本框中原有内容If CommonDialog1.FileTitle <> "" Then ' 选定文件后执行下列操作Dim InputData As String' 保存文件中每行内容Open CommonDialog1.FileName For Input As #1 ' 打开文件，准备读文件Do While Not EOF(1)Line Input #1, InputData ' 每次读一行' 将读出内容连接在文本框已有文本之后并回车换行txtNotepad.Text = txtNotepad.Text + InputData + vbCrLfLoopClose #1End IfEnd Sub' "另存为"菜单项的单击事件过程Private Sub mnuSaveAs_Click()CommonDialog1.FileName = "文本1.t' 设置缺省文件名CommonDialog1.DefaultExt = "txt" ' 设置缺省扩展名CommonDialog1.InitDir = "C:\"CommonDialog1.Filter = "Word文档|*.doc|文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex = 2CommonDialog1.CancelError =' 选取"取消"按钮时出错On Error GoTo errCance '出错跳转至行标签errCancel CommonDialog1.ShowSave ' 激活"另存为"对话框Open CommonDialog1.FileName F打开文件，准备写入Print #1, txtNotepad.TextClose #1errCancel: ' 行标签End SubPrivate Sub mnuExit_Click()EndEnd Sub' 以下过程用于判断是否已经选中文本Private Sub txtNotepad_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 And txtNotepad.Sel' 松开左键并选中文本mnuCopy.Enabled =True ' 使"复制"菜单项有效mnuCut.Enabled =True ‘使"剪切"菜单项有效Else ‘未选中文本mnuCopy.Enabled = FalsemnuCut.Enabled = FalseEnd IfEnd SubPrivate Sub mnuCopy_Click()' "复制"菜单项的单击事件过程Clipboard.Clear ' 清除剪贴板中的内容Clipboard.SetText txtNotepad.SelText ' 将选中的文本放到剪贴板中mnuCopy.Enabled = FalsemnuCut.Enabled = FalsemnuPaste.Enabled = TrueEnd SubPrivate Sub mnuCut_Click() ' "剪切"菜单项的单击事件过程Clipboard.ClearClipboard.SetText txtNotepad.SelTexttxtNotepad.SelText = "" ' 删除选中的文本mnuCopy.Enabled = FalsemnuCut.Enabled = FalsemnuPaste.Enabled = TrueEnd SubPrivate Sub mnuPaste_Click() ' 将剪贴板中的文本插入到文本框焦点处，txtNotepad.SelText = Clipboard.GetTextEnd SubPrivate Sub Alm_Click(Index As Integer)txtNotepad.Alignment = IndexEnd SubPrivate Sub font_Click()CommonDialog1.FontName = "宋体"'Flags为256+1，使用屏幕字体；出现颜色、效果等选项CommonDialog1.Flags = 257CommonDialog1.ShowFont '打开"字体"对话框txtNotepad.FontName = CommonDialog1.FontNametxtNotepad.FontSize = CommonDialog1.FontSizetxtNotepad.FontBold = CommonDialog1.FontBoldtxtNotepad.FontItalic = CommonDialog1.FontItalictxtNotepad.FontUnderline = CommonDialog1.FontUnderlinetxtNotepad.FontStrikethru = CommonDialog1.FontStrikethrutxtNotepad.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Exxxt_Click()EndEnd Sub流程图：使用说明：打开记事本界面，点击“文件”，再点击“打开”来查找计算机中所包含的文档选择所需的文档将其打开，即可实现打开功能；同样的，点击“另存为”，选择记事本中文档所要存放的位置，即可实现保存功能；点击“编辑”，打开文件内容，拖动鼠标，选取所要复制、黏贴或剪切的内容，单击鼠标右键，点选所要进行的操作后，将光标定在相应位置，选择所需的操作即可。
vba创建、读写记事本txt文件代码示例
vba创建、读写记事本txt文件代码示例通过Excel操作记事本，极其方便，可以很方便的为我们提取部分数据。
本文，与您分享通过VBA，如何创建、将数据写入记事本TXT文件。
代码如下：Dim fs, f, a, s, iSet fs = CreateObject("Scripting.FileSystemObject")Set f = fs.OpenTextFile("c:\123.txt", 8, True)f.writeline Target.Row'f.write Target.Rowf.Close代码解释：f.writeline 代表写入数据的时候换行写入；f.write 代表写入数据的时候不换行，都在同一行接着写入。
Set f = fs.OpenT extFile("c:\123.txt", 8, True)，含意是：打开c:\123.txt文件；8代表从文件的末尾开始接着写入数据；True代表，如果c:\123.txt文件不存在，则创建此文件；fs.OpenTextFile()包含四个参数，即fs.OpenTextFile(参数1，参数2，参数3，参数4)，下面，分别针对此四个参数做介绍。
①参数1指明要打开文件的字符串表达式，也就是要打开的记事本文件的路径。
②参数21代表以只读方式打开文件。
不能写这个文件。
2以写方式打开文件8 打开文件并从文件末尾开始写。
③参数3指明当指定的 filename 不存在时是否创建新文件。
如果创建新文件则值为 True ，如果不创建则为 False 。
如果忽略，则不创建新文件。
④参数4TristateTrue 以 Unicode 格式打开文件。
TristateFalse 以 ASCII 格式打开文件。
TristateUseDefault 使用系统默认值打开文件。
一般情况下，不用填写这个参数。
用VB写记事本的程序
用V B写记事本的程序文件编码（GHTU-UITID-GGBKT-POIU-WUUI-8968）可视化程序课程—记事本程序实验报告1、新建工程启动VB程序后，建立一个新的工程。
出现“窗体设计器”。
2、创建记事本的菜单栏打开工具选项条单击菜单编辑器（1）在标题栏里面分别添加“文件（&F）”“编辑（&E）”“格式（&A）”“帮助（&H）”并分别设置名称和快捷键。
（2）分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。
3、代码的编写（1）文件 file①新建 new注解： = "无标题-记事本" 把新建记事本的名字定义为“无标题-记事本”②打开 open注解：“On Error GoTo a ” a在代码倒数第二行有定义，如果在打开的过程中出现错误就到“a”退出程序；Dim index As Integer定义变量③保存 save④另存为 as注解：定义一个变量ss作为字符串如果正确执行操作错误就执行a退出⑤打印 print⑥退出 exit（2）编辑 editing①剪切 cut②复制 copy③粘贴 past④删除 delete⑤查找 find注释：sFind = InputBox 查找输入框MsgBox "找不到所要查询的内容", , "查询无果报告"⑥查找下一个 findnext⑦全选 seleall（3）格式①自动换行 autonewline②字体 fond（4）帮助 help关于 about。
VB.NETVB2010自己动手做记事本源码
VB2010自己动手做记事本源码Imports System.IOPublic Class Form1Dim TempPath As StringPrivate Sub打开OToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles打开OToolStripMenuItem.ClickTryOpenFileDialog1.FileName = ""OpenFileDialog1.Filter = "文本文档|*.txt"OpenFileDialog1.InitialDirectory = "C:\"OpenFileDialog1.ShowDialog()TextBox1.Text = File.ReadAllText(OpenFileDialog1.FileName, System.Text.Encoding.Default)TempPath = OpenFileDialog1.FileNameCatch ex As ExceptionMsgBox(ex.Message)End TryEnd SubPrivate Sub保存SToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles保存SToolStripMenuItem.ClickTryFile.WriteAllText(TempPath, TextBox1.Text, System.Text.Encoding.Default) Catch ex As Exception MsgBox(ex.Message)End TryEnd SubPrivate Sub另存为AToolStripMenuItem_Click(ByVal senderAToolStripMenuItem.ClickTrySaveFileDialog1.ShowDialog()Catch ex As ExceptionMsgBox(ex.Message)End TryEnd SubPrivate Sub新建NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles新建NToolStripMenuItem.Click'TextBox1.Text = ""TextBox1.Clear()End SubPrivate Sub撤消UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles撤消UToolStripMenuItem.ClickTextBox1.Undo()End SubPrivate Sub重复RToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles重复RToolStripMenuItem.ClickTextBox1.Undo()End SubPrivate Sub剪切TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles剪切TToolStripMenuItem.ClickTextBox1.Cut()End SubPrivate Sub复制CToolStripMenuItem_Click(ByVal sender AsCToolStripMenuItem.ClickTextBox1.Copy()End SubPrivate Sub粘贴PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles粘贴PToolStripMenuItem.ClickTextBox1.Paste()End SubPrivate Sub全选AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles全选AToolStripMenuItem.ClickTextBox1.SelectAll()End SubPrivate Sub自动换行CT oolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles自定义CToolStripMenuItem.ClickIf TextBox1.WordWrap = True ThenTextBox1.WordWrap = FalseElseTextBox1.WordWrap = TrueEnd IfEnd SubPrivate Sub退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles退出XToolStripMenuItem.ClickMe.Close()End SubPrivate Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End SubEnd Class。
使用VB制作记事本程序
记事本界面如下图所示。
记事本主窗体frmNotepad实现代码如下：Public s$, flag As BooleanDim st As StringDim Char As Byte, PaFi1$, PaFi2$ '窗体的"通用"声明段中定义变量Private Sub Form_Load()Text1 = "关键字首字母自动转换成大写，其余字母转换成小写。
用户自定义的变量、过程名，以第一次定义的为准，以后输入的自动向首次定义的形式转换。
"s = Text1Timer1.Enabled = FalseEnd SubPrivate Sub Text1_Change() '文本框内容发生变化就可以实现再次的查找flag = Trues = Text1.TextEnd Sub'主窗体右侧对字体、字型及大小的设置Private Sub Option1_Click()Text1.FontName = "黑体" '设置Text1的字体为黑体End SubPrivate Sub Option2_Click()Text1.FontName = "楷体_GB2312" '设置Text1的字体为楷体End SubPrivate Sub Option3_Click()Text1.FontSize = 8 '设置Text1的字体大小为8磅End SubPrivate Sub Option4_Click()Text1.FontSize = 20 '设置Text1的字体大小为20磅End SubPrivate Sub Check1_Click()Text1.FontBold = Not Text1.FontBold '设置Text1的字型是否为粗体End SubPrivate Sub Check2_Click()Text1.FontItalic = Not Text1.FontItalic '设置Text1的字型是否为斜体End SubPrivate Sub Check3_Click()Text1.FontStrikethru = Not Text1.FontStrikethru '设置Text1是否加删除线End SubPrivate Sub Check4_Click()Text1.FontUnderline = Not Text1.FontUnderline '设置Text1是否为加下划线End SubPrivate Sub New_Click() '新建文件On Error Resume NextIf Text1 <> "" Theni = MsgBox("文件无标题的文字已经改变。
最强原创vb6.0记事本程序
最强原创vb6.0记事本程序史上最强vb记事本程序V1.1版添加部件：RichTextBox:RichT extBox1 CommonDialog:CommonDialog1 控件属性：窗体：from1''单窗体记事本''v1.1版''作者：王睿''2012-02-01Option ExplicitDim strFind As String ''查找变量Dim fileTitle As String ''当前文本文件名Dim fileName As String ''当前文本文件路径Dim noteText As String ''保存前文本原始数据Dim preText As String ''记录上一步文本内容Dim preTextTemp As String ''缓存记录内容Dim saveTo As Boolean ''是否调用"另存为过程"''系统过程、函数'新建文件 sub init()'保存文件 sub save()'判断是否保存 function isIgnore()Private Sub init() ''新建文件Me.Caption = "无标题 - 记事本" = "宋体"Me.RichTextBox1.Font.Size = 12Me.RichTextBox1.T ext = ""noteT ext = ""fileName = ""fileTitle = ""preText = ""preTextTemp = ""End SubPrivate Sub save() ''保存文件If fileName = "" Or saveTo Then ''判断是否为新建文件或是否为被修改文件CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSavefileTitle = CommonDialog1.fileTitlefileName = CommonDialog1.fileNameSelect Case Right(fileTitle, 3)Case "rtf"RichTextBox1.saveFile fileNameCase "txt"RichTextBox1.saveFile fileName, rtfTextCase "*.*"RichTextBox1.saveFile fileNameEnd SelectIf fileTitle<> "" Then Me.Caption = Left(fileTitle, Len(fileTitle) - 4) & " - 记事本"saveTo = FalseElseRichTextBox1.saveFile fileNamenoteT ext = RichT extBox1.T extEnd IfEnd SubPrivate Function isIgnore() As Boolean ''判断是否保存Dim msgAs String''判断文件是否被修改' "是" call init' "否" MsgBox()If noteText = RichT extBox1.Text ThenCall initElseIf fileTitle = "" Then msg = "无标题" Else msg = fileNameSelect Case MsgBox("是否将更改保存到 " &msg, 3, "记事本") Case 2 ''取消isIgnore = TrueCase 6 ''是Call saveisIgnore = FalseCase 7 ''否isIgnore = FalseEnd SelectEnd IfEnd Function''窗体事件'窗体初始化 Form_Load()'退出系统 Form_Unload()'设置文本框相对窗体位置和大小 Form_Resize()Private Sub Form_Load() ''窗体初始化Me.Height = 6000Me.Width = 9000Me.RichTextBox1.T op = -20Me.RichTextBox1.Left = -20Call initEnd SubPrivate Sub Form_Unload(Cancel As Integer) ''退出系统If isIgnore() Then Cancel = 1End SubPrivate Sub Form_Resize() ''设置文本框相对窗体位置和大小On Error Resume Next ''屏蔽文本框缩放高度异常Me.RichTextBox1.Width = ScaleWidth + 35Me.RichTextBox1.Height = ScaleHeight + 35End Sub''记录当前和上一步文本状态'preText 上一步文本状态'preTextTemp 当前文本状态Private Sub RichTextBox1_Change()preText = preTextTemppreTextTemp = RichTextBox1.TextEnd Sub''文件菜单' 新建文本文件 newFile_Click()' 打开文本文件 openFile_Click()' 保存文本文件 saveFile_Click()' 另存文件saveTo()' -' 退出系统 exit_Click()Private Sub newFile_Click() '新建文本文件If Not (isIgnore()) Then Call initEnd SubPrivate Sub openFile_Click() ''打开文本文件If Not (isIgnore()) ThenCommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = "" '清空文本框fileName = CommonDialog1.fileName ''获取文件路径fileTitle = CommonDialog1.fileTitle ''获取文件名RichTextBox1.LoadFile fileNamenoteT ext = RichT extBox1.T extIf fileTitle<> "" Then Me.Caption = Left(fileTitle, Len(fileTitle) - 4) & " - 记事本"End IfEnd SubPrivate Sub saveFile_Click() ''保存文本文件Call saveEnd SubPrivate Sub saveFileTo_Click() ''另存文件saveTo = TrueCall saveEnd SubPrivate Sub exit_Click() ''退出系统If Not (isIgnore()) Then EndEnd Sub''编辑菜单'撤销 back_Click()' -'剪切 cut_Click()'复制 copy_Click()'粘贴 paste_Click()'删除 delete_Click()' -'查找 search_Click()'查找下一个 searchNext()' -'全选selectAll_Click()'插入日期 dateNow_Click()Private Sub back_Click() ''撤销RichTextBox1.Text = preTextEnd SubPrivate Sub cut_Click() ''剪切Clipboard.ClearClipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = ""End SubPrivate Sub copy_Click() ''复制Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub paste_Click() ''粘贴RichTextBox1.SelText = Clipboard.GetTextEnd SubPrivate Sub delete_Click() ''删除RichTextBox1.SelText = ""End SubPrivate Sub search_Click() ''查找strFind = InputBox("请输入要查找的字、词：", "查找内容", strFind) RichTextBox1.Find strFindEnd SubPrivate Sub searchNext_Click() ''查找下一个If strFind<> "" ThenRichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength RichTextBox1.Find strFind, , Len(RichT extBox1)End IfEnd SubPrivate Sub selectAll_Click() ''全选RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.T ext)End SubPrivate Sub dateNow_Click() ''插入日期RichTextBox1.SelText = Hour(Now) & ":" & Minute(Now) & " " & DateEnd Sub''格式菜单'字体 textFont_Click()'颜色 textColor_Click()Private Sub textFont_Click() ''字体CommonDialog1.ShowFont = CommonDialog1.FontNameRichTextBox1.Font.Size = CommonDialog1.FontSizeRichTextBox1.Font.Bold = CommonDialog1.FontBoldRichTextBox1.Font.Italic = CommonDialog1.FontItalicRichTextBox1.Font.Underline = CommonDialog1.FontUnderlineEnd SubPrivate Sub textColor_Click() ''颜色CommonDialog1.ShowColorRichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.T ext)RichTextBox1.SelColor = CommonDialog1.ColorRichTextBox1.SelLength = 0End Sub''关于记事本Private Sub aboutMe_Click()MsgBox "记事本 Ver1.0 版权所有(C) 2012 ", vbOKOnly, "关于"End Sub''设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）Private Sub RichT extBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)If Button = 2 ThenPopupMenu editEnd IfEnd Sub。
VB记事本代码
《跟我学做记事本》我想有了这个示例VB的世界才够精彩：用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。
但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText 控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
第一章让我们的记事本马上运行急于求成是初学者共有的心愿。
那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。
新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。
单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。
这时左边的工具栏上出现了我们刚才新添的两个控件了。
在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。
步骤二：编辑菜单。
按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层）mnuFile新建（第二层）mnuNew打开（第二层）mnuOpen保存（第二层）mnuSave- （第二层）mnuFileSep (分隔线）退出（第二层）mnuExit二.编辑菜单：编辑（第一层）mnuEdit复制（第二层）mnuCopy剪切（第二层）mnuCut粘贴（第二层）mnuPaste- （第二层）mnuEditSep （分隔线）全选（第二层）mnuSelecAll三.搜索菜单：搜索（第一层）mnuSearch查找（第二层）mnuFind查找下一个（第二层）mnuFindOn四.帮助菜单：帮助（第一层）mnuHelp使用说明（第二层）mnuUsage关于（第二层）mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。
用VB实现象Windows记事本的一些功能
内容：讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、确认文件是否需要保存等功能。
Windows自带的记事本即Notepad有一些功能还是颇具吸引力的，比如自动在特定的文档尾部加入计算机时钟的时间和日期，截取已经打开或者保存了的纯文档名[见记事本的标题栏]以及搜索等，给用户带来许多方便。
本文就TextBox控件讨论如何实现这些功能。
一、将日志添加到文档在Windows中，如果文档的第一行最左边有".LOG"字样，那么每次用记事本打开此文时，记事本会自动在文档尾部加入时间日期。
".LOG"共占四个字节，又置于文档第一行顶格处，因此可以用VB的Left函数来读取这个字符串，如有，则用CStr函数来自动添加时间和日期。
我们可以在打开文件的程序加入以下代码：DimaAsStringa=Left(Text1.Text,4)'取得头4个字节Ifa=".LOG"Then'若有则：Text1.SelStart=Len(Text1.Text)'光标移到文件尾Text1.SelText=vbCrLf&CStr(Now)'加入换行和时间Else'若无，退出过程ExitSubEndIf这样，我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了。
二、截取FileName中的纯文档名如若我们用Notepad打开文件D:\VBFILE\NEW\Textbox控件用法举例.txt，Notepad的标题栏的Caption变为：TextBox控件用法举例-记事本。
这个，我们用VB来完成还是比较容易的。
为了方便在程序的各处使用，我们不妨编写一个截取字符串的函数：'截取纯文栏名函数FunctionGetFileTitle(OldStrAsString)AsStringOnErrorResumeNextDimnAsInteger,mAsInteger'声明字符串变量DimiAsString,rAsStringDimpAsIntegeri="\"'要查找的指定字符Forn=1ToLen(OldStr)'用Len函数计算已知字符串的字节数m=InStrRev(OldStr,i,-1)'"\"所在的位置(其中的-1是默认的)Nextn'找下去！'截取最后一个"\"后面的字符串r=Right(OldStr,Len(OldStr)-m)'获取Titlep=InStrRev(r,".",-1)'"."所在位置GetFileTitle=Left(r,p-1)'去掉后缀EndFunction现在我们来调用这个函数以获取纯文档名:DimMyStrAsString,ResultAsStringMyStr="d:\games\6do\oldtucom\heart\Story001.TXT"Result=GetFileTitle(MyStr)Me.Caption=Result&"-记事本"执行之，则窗体的标题变为：Story001-记事本，与NotePad的效果无异！三、判断保存还是另存为通常，我们通过使用CommonDialog控件来保存文件，不过，VB的公共对话框提供的ShowSave其实只是SaveAs，如不作处理则在运行程序中每次保存文件都会跳出另存为对话框，为避免这种不便，我们可以声明一个窗体级或模块级的文件名变量[类型：String]，并在每一次相关操作中给此变量赋值且保存于内存之中，然后在保存文件时给予识别，如变量不为空则直接保存文件，否则调出另存为对话框，让用户输入文件名。
VB 多窗口编辑记事本程序的设计与实现.
VB 多窗口编辑记事本程序的设计与实现1.3功能详细介绍文件菜单：进行文件的新建、打开、保存、另存为、页面设置、打印，退出则关闭整个记事本。
编辑菜单：对文本内容的编辑工作，基本与Windows记事本的编辑功能一样。
日期/时间是在文本中插入目前的日期和时间。
格式菜单：字体和字体颜色功能是改变字体和其颜色的。
自动换行可以在一行文字编辑满时不需要按回车就能切换到下一行。
高级菜单：自动存盘功能能够在设置规定的时间上对文本进行自动保存，背景设置功能实现了背景颜色的改变。
帮助菜单：帮助主题介绍记事本的使用方法，关于记事本介绍该记事本的作者等信息。
状态栏：该功能与上面几个功能不一样，它不是一个按钮可以点击来实现某一具体功能，它只是一个状态，显示目前的日期和时间。
2.2控件和组件介绍 VB6.0强大的控件组给我的毕业设计带来了很大的帮助，以下几个是主要控件和组件的介绍。
2.2.1 RichTextBox控件在具体使用VB6.0设计多窗口记事本时，应用了RichTextBox控件的大量方法和事件。
现对RichTextBox控件做个介绍。
RichTextBox控件允许用户输入和编辑文本的同时提供了比普通的TextBox控件更高级的格式特征。
RichTextBox控件提供了数个有用的特征，你可以在控件中安排文本的格式。
要改变文本的格式，必须先选中该文本。
只有选中的文本才可以编排字符和段落的格式。
有了这些属性，就可以设置文本使用粗体，改变字体的颜色，创建超底稿和子底稿。
也可以设置左右缩排或不缩排，从而调整段落的格式。
RichTextBox控件可以打开和保存RTF文件或普通的ASCII文本文件。
你可以使用控件的方法（LoadFile和SaveFile）直接读和写文件，或者在Visual Basic的文件输入/输出语句中使用控件的属性如SelRTF和TextRTF等。
RichTextBox控件使用OLEObjects集合支持嵌入的对象。
vb编写的记事本程序vs05
End If
bSave = True
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
OpenFileDialog1.Title = "打开" '对打开文件对话框初始化
End Sub
Private Sub 新建_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建.Click
If SaveFileDialog1.ShowDialog() Then
rtContent.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
'如果文本内容改变或者没有保存，则弹出消息框询问用户是否保存
Select Case flag
Case 6 '如果选择保存，执行保存的操作
If SaveFileDialog1.FileName = "" Then
Case 7 '选择了不保存，则直接执行打开文件
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
rtContent.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If '如果没有选择要保存的文件名，则弹出对话框，用户选择文件名后保存文本
Else
VB程序说明书----记事本
目录1.作业简介： ......................................................................... - 2 -2.设计将要达到的目标： ..................................................... - 2 -3. 总体设计结构与功能 ....................................................... - 3 -3.1结构流程图 ................................. 错误！未定义书签。
3.2各功能模块运行界面及运行展示错误！未定义书签。
4.程序代码............................................................................ - 13 -5. 作业设计体会 ...................................... 错误！未定义书签。
VB大作业程序说明书1.作业简介：Windows记事本是功能强大，运用方便，体积小巧，启动快，占用内存小的应用软件。
除此之外，windows记事本还有一个强大的功能，就是保存无格式文件。
在这学期通过学习Visual Basic对制作记事本产生兴趣，便模仿windows 记事本通过VB软件来编写一个记事本程序。
此次作业主要是锻炼我们的VB设计能力和思维考虑能力，是我们的VB学习真正的用到实处，这对我们将来的学习和工作有着重要作用。
2.设计将要达到的目标：记事本主要是对文字进行编辑处理的软件。
能进行新建、打开、保存等功能；并且能运用剪贴、复制、粘贴、清除功能，对文字更方便的录入。
另外还可以根据用户的需要查找相应的文字，实现编辑功能。
新建：新建立一个记事本文档。
保存：重命名一个名字，保存文档。
打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。
VB调用大漠插件操作记事本实例
D:\A.TXT 睁大眼睛看了哦！" Delay 3000 '以上代码实现了 向记事本中输入文本的功能 dm.SetWindowState myhwnd, 0 '关闭记事本 Do While 1 < 2 Delay 1000 mhwnd = dm.FindWindow("#32770", "记事本") '去找关闭
hwnd1 = dm.GetForegroundFocus() '获得顶层具有输入焦点
的窗口句柄 也就是 记事本的 Edit 类的句柄
dm.SendString hwnd1, "我是来测试的"
Delay 1000
dm.SendString hwnd1, vbCrLf + "这样我们就简单的实现了
向记事本输入文本的操作！" Delay 1000 dm.SendString hwnd1, vbCrLf + "怎么样？是不是很简单呢？
文件
Delay 2000
End '延时两秒后程序自动结束
End Sub 要求 大漠插件和你编辑的工程在同一个目录 否则 会 导致注册失败，也可以将代码粘贴完后 直接生成工程 然后把 DM.DLL 和你生成的工程放在同一个目录下就 OK 了
运行程序后 会自动执行一系列 记事本操作。有兴趣者可以自己试 验研究。
时弹出的对话框 让你选择是否保存 If mhwnd > 0 Then dm.KeyPress 13 '找到后按下 回车 按键 Exit Do End If Loop
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
可视化程序课程—记事本程序实验报告
1、新建工程
启动VB程序后,建立一个新的工程。
出现“窗体设计器”。
2、创建记事本的菜单栏
打开工具选项条单击菜单编辑器
(1)在标题栏里面分别添加“文件(&F)”“编辑(&E)”“格式(&A)”“帮助(&H)”并分别设置名称与快捷键。
(2)分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所示的的子菜单,设置标题,名称,快捷键。
3、代码的编写
(1)文件file
①新建new
注解: Form1、Caption = "无标题-记事本" 把新建记事本的名字定义为“无标题-记事本”
②打开open
注解:“On Error GoTo a ”a在代码倒数第二行有定义,如果在打开的过程中出现错误就到“a”退出程序;Dim index As Integer定义变量③保存save
④另存为as
注解:定义一个变量ss作为字符串如果正确执行操作错误就执行a 退出
⑤打印print
⑥退出exit
(2)编辑editing
①剪切cut
②复制copy
③粘贴past
④删除delete
⑤查找find
注释:sFind = InputBox 查找输入框
MsgBox "找不到所要查询的内容", , "查询无果报告"
⑥查找下一个findnext
⑦全选seleall
(3)格式
①自动换行autonewline
②字体 fond
(4)帮助 help 关于 about。