众文网1.题目一 一个简单记事本软件的设计与实现 一个简单记事本软件的设计
方法一：commondialog控件一个-------comopen richtextbox一个，作为文本框 两个菜单： 文件，下有新建，打开，保存，字体，退出，打印. 编辑，下有查找，查找下一个 Option Explicit Public sFind As String Private Sub Form_Resize（) '如果窗体不处于最小化RichTextBox1状态，改变RichTextBox1大小以适应窗体大小变化 If Form1.WindowState <> 1 Then RichTextBox1.Width = Form1.Width - 135 If Form1.Height < 1200 Then Form1.Height = 1200 End If RichTextBox1.Height = Form1.Height - 675 End If End Sub '当“退出”菜单项被点击时 Private Sub mnuExit_Click() Unload Me End Sub '当“查找”菜单项被点击时 Private Sub mnuFind_Click() sFind = InputBox("Find what?", , sFind) RichTextBox1.Find sFind End Sub '当“字体”菜单项被点击时 Private Sub mnuFont_Click() CmdOpen.Flags = cdlCFBoth + cdlCFEffects CmdOpen.ShowFont '将RichTextBox1的属性根据“字体”对话框的变化作相应设置 '---------------------------------------- '要改变 RichTextBox 控件中的字体特性，可以使用 'SelFontName、SelFontSize 和 SelFontColor 属性。
'---------------------------------------- With RichTextBox1 .SelFontName = CmdOpen.FontName .SelFontSize = CmdOpen.FontSize .SelBold = CmdOpen.FontBold .SelItalic = CmdOpen.FontItalic .SelStrikeThru = CmdOpen.FontStrikethru .SelUnderline = CmdOpen.FontUnderline End With End Sub '当“新建”菜单项被点击时，设置为空 Private Sub mnuNew_Click() RichTextBox1.Text = "" End Sub '当“查找下一个”菜单项被点击时 Private Sub mnuNext_Click() ' SelStart属性-返回或设置所选择的文本的起始点； ' 如果没有文本被选中，则指出插入点的位置。 RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub '当“打开”菜单项被点击时 Private Sub mnuOpen_Click() CmdOpen.ShowOpen RichTextBox1.LoadFile (CmdOpen.FileName) End Sub '当“打印”菜单项被点击时 Private Sub mnuPrint_Click() CmdOpen.Flags = cdlPDReturnDC + cdlPDNoPageNums If RichTextBox1.SelLength = 0 Then CmdOpen.Flags = CmdOpen.Flags + cdlPDAllPages Else CmdOpen.Flags = CmdOpen.Flags + cdlPDSelection End If CmdOpen.ShowPrinter '将 RichTextBox 控件中格式化文本发送给设备进行打印。
RichTextBox1.SelPrint CmdOpen.hDC End Sub '当“保存”菜单项被点击时 Private Sub mnuSave_Click() CmdOpen.ShowSave 'RichTextBox的SaveFile方法，保存文本 RichTextBox1.SaveFile (CmdOpen.FileName) End Sub方法二： VB6.0中，新建文件的时候选择"VB应用程序向导"可以建立一个文本处理的程序.包括了记事本的所有功能.里面的代码和技巧还是值得一学.祝愿你学有所成.。
2.女友最近送我了一个记事本,说,这个记事本是我的恋爱毕业论文,
我写过这个东西，只不过我是女生。
我来教你，要写正本岂不是累死了？你就把你们初次见面写下来，有见面地方的照片么，去拍下来，嗯，喜欢她的理由，两个人在一起的时间，她做过的让你最感动的事情，你做过的让她感动的事情，两个人一起过的纪念日，照片很重要哦，你就把相关的照片也贴出来，图文并茂更生动，把她喜欢吃的东西，想去的地方，喜欢的歌也写下来，还是一个原则，配照片哦，写多少真的不重要，重要的是要写到她心里去，多放点合照呀，很甜蜜温馨的说。这个事情吧，很需要耐心，但做的过程，你会发现，你只会想做的更好。
祝你们幸福哦~。
3.怎样写关于办公软件应用的毕业论文
论文篇幅为1.5万字左右，一般不少于25页。
主要内容及编排顺序如下：
1）摘要；
2）目录；
3）前言或绪论 包括研究课题的目的意义、国内外发展概况、前人工作、课题研究内容等；（篇幅占论文全部的20%左右）
4）技术概述 课题研究中涉及的软硬件关键技术；（篇幅占论文全部的20%左右）
5）论文主体 按研究的内在逻辑关系给出理论分析、软硬件设计方案、实验方法等步骤、数据、结果等的描述分析；现场调试应用情况等 （篇幅占论文全部的50%以上）
6）结论与展望 给出课题研究结论、调试结果、继续研究的方向等
7）参考文献 参考文献不少于15篇，其中英文不少于3篇，需要在正文部分引用出处
4.求用VB做多文档记事本软件代码设计一个多文档记事本软件,设计一
步骤一：绘制界面。
新建一个标准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 （注：各菜单项的快捷键请自行设置） 好了，其它的菜单项以后再根据需要添加。
现在进入： 步骤三：编写代码。 '声明查找变量 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load（) '设置程序启动时的大小 Me。
Height = 6000 Me。Width = 9000 End Sub '设置编辑框的位置和大小 Private Sub Form_Resize() On Error Resume Next '出错处理 RichTextBox1。
Top=20 RichTextBox1。Left=20 RichTextBox1。
Height = ScaleHeight-40 RichTextBox1。Width = ScaleWidth-40 End Sub '新建文件 Private Sub mnuNew_Click() RichTextBox1。
Text = "" '清空文本框 FileName = "未命名" Me。Caption = FileName End Sub '打开文件 Private Sub mnuOpen_Click() CommonDialog1。
Filter = "文本文档（*。txt）|*。
txt|RTF文档（*。rtf）|*。
rtf|所有文件（*。*）|*。
*" CommonDialog1。ShowOpen RichTextBox1。
Text = "" '清空文本框 FileName = CommonDialog1。 FileName RichTextBox1。
LoadFile FileName Me。Caption = "超级记事本：" & FileName End Sub '保存文件 Private Sub mnuSave_Click() CommonDialog1。
Filter = "文本文档（*。txt）|*。
txt|RTF文档（*。rtf）|*。
rtf|所有文件（*。*）|*。
*" CommonDialog1。ShowSave FileType = CommonDialog1。
FileTitle FiType = LCase(Right(FileType, 3)) FileName = CommonDialog1。 FileName Select Case FiType Case "txt" RichTextBox1。
SaveFile FileName, rtfText Case "rtf" RichTextBox1。SaveFile FileName, rtfRTF Case "*。
*" RichTextBox1。SaveFile FileName End Select Me。
Caption = "超级记事本：" & FileName End Sub '退出 Private Sub mnuExit_Click() End End Sub '复制 Private Sub mnuCopy_Click() Clipboard。 Clear Clipboard。
SetText RichTextBox1。SelText End Sub '剪切 Private Sub mnuCut_Click() Clipboard。
Clear Clipboard。 SetText RichTextBox1。
SelText RichTextBox1。SelText = "" End Sub '全选 Private Sub mnuSelectAll_Click() RichTextBox1。
SelStart = 0 RichTextBox1。SelLength = Len(RichTextBox1。
Text) End Sub '粘贴 Private Sub mnuPaste_Click() RichTextBox1。 SelText = Clipboard。
GetText End Sub '查找 Private Sub mnuFind_Click() sFind = InputBox（"请输入要查找的字、词："， "查找内容"， sFind） RichTextBox1。 Find sFind End Sub '继续查找 Private Sub mnuFindOn_Click() RichTextBox1。
SelStart = RichTextBox1。SelStart + RichTextBox1。
SelLength + 1 RichTextBox1。Find sFind, , Len(RichTextBox1) End Sub '使用说明 Private Sub mnuReadme_Click() On Error GoTo handler RichTextBox1。
LoadFile "Readme。txt", rtfText '请写好Readme。
txt文件并存入程序所在文件夹中 Me。Caption = "超级记事本：" & "使用说明" Exit Sub handler: MsgBox "使用说明文档可能已经被移除，请与作者联系。
"， vbOKOnly， " 错误信息" End Sub '关于 Private Sub mnuAbout_Click() MsgBox "超级记事本 Ver1。0 版权所有（C） 2001 土人"，vbOKOnly，"关于" End Sub '设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单） Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit, vbPopupMenuLeftAlign Else Exit Sub End If End Sub '防止在切换输入法时字体自变（感谢王必成先生提供此方案） Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then RichTextBox1。
SelFontName 。