vb程序设计-文本编辑器

技术参数、设计要求等）
本系统由两个菜单组成、本次课程设计任务的主要内容和要求（包括原始数据、本次课程设计应达到的目的
1. 通过该题目的设计，使学生掌握软件开发过程的问题分析、退出。
（2）编辑菜单包括：复制：文件、编辑、系统设计、程序编码、打开、保存一、课程设计题目
文本编辑器
二、字体设置。
要求. 掌握RichTextBox控件的使用方法
三；
3、剪贴、粘贴，界面如图：

（1）文件菜单包括：新建、测试等基本方法和技能；
2. 掌握菜单的使用方法

什么叫C语言 请问一下 有那些语言 请告诉我好吗 ?我急着要看 需要的话传的我的QQ空间里面 我的QQ是59578578
谢谢 你

Private Sub Form_Load() '设置程序大小 Form1.Height = 7700 Form1.Width = 11000 End Sub Private Sub Form_Resize() '设置richtextbox属性 On Error Resume Next '如果出现错误，忽略错误，继续执行 RichTextBox1.Top = 900 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40 End Sub Private Sub MenuNew_Click() '新建 RichTextBox1.Text = "" '清空文本框 FileName = "未命名" '通过对话框获取的文件名为未命名 Form1.Caption = FileName End Sub Private Sub MenuOpen_Click() '打开 CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" '文件格式 CommonDialog1.ShowOpen '显示打开文件对话框 RichTextBox1.Text = "" '清空文本框 FileName = CommonDialog1.FileName '定义文件名 RichTextBox1.LoadFile FileName Form1.Caption = "记事本：" & FileName End Sub Private Sub MenuSave_Click() '保存 With CommonDialog1 '设置保存对话框 .DefaultExt = "txt" '设置保存文件的默认扩展名 .InitDir = "d:\" '设置初始目录 .FileName = "记事本.txt" '设置保存的默认文件名 .Filter = "文本文件|*.txt|all files(*.*)|*.*" '过滤文件类型 .FilterIndex = 1 '设置文件类型列表框默认为文本文件 .Action = 2 '设置通用对话框为另存为对话框 End With Open CommonDialog1.FileName For Output As #1 '打开指定的文件写入数据 Print #1, RichTextBox1.Text '将整个文本框的内容一次性的写入文件 Close #1 '关闭#1号文件 End Sub Private Sub MenuExit_Click() '退出 Dim result As Integer '定义整型 If Me.Caption = "新文件" And RichTextBox1.Text = "" Then '判断用户是否修改了文件 Unload Me Else '若用户修改了文件，则弹出消息框询问用户是否要保存文件 result = MsgBox("您已经对文件作了修改，要保存吗？", vbYesNoCancel, "提示") Select Case result '选择选定 Case 6 '单击了Yes按钮，是 MenuSave_Click Case 2 '单击了Cancel按钮，取消 Exit Sub Case 7 '单击了No按钮，否 Unload Me End Select End If End Sub Private Sub Form_Unload(Cancel As Integer) '退出 Dim result As Integer If Me.Caption = "新文件" And RichTextBox1.Text = "" Then '判断用户是否修改了文件 Unload Me Else '若用户修改了文件，则弹出消息框询问用户是否要保存文件 result = MsgBox("您已经对文件作了修改，要保存吗？", vbYesNoCancel, "提示") Select Case result Case 6 '单击了Yes按钮 MenuSave_Click Case 2 '单击了Cancel按钮 Exit Sub Case 7 '单击了No按钮 Unload Me End Select End If End Sub Private Sub MenuSelectAll_Click() '全选 RichTextBox1.SelStart = 0 '选取文本的起始位置 RichTextBox1.SelLength = Len(RichTextBox1.Text) '选取文本的字符个数 RichTextBox1.SetFocus '把光标移到指定的文本框中 End Sub Private Sub MenuCut_Click() '剪切 Clipboard.Clear '清空剪贴板内容 Clipboard.SetText RichTextBox1.SelText '设置剪贴板内容为选定文本 RichTextBox1.SelText = "" '删除文本框中选定内容 End Sub Private Sub MenuCopy_Click() '复制 Clipboard.Clear '清空剪贴板内容 Clipboard.SetText RichTextBox1.SelText '将选定文本复制到剪贴板 End Sub Private Sub MenuPaste_Click() '粘贴 RichTextBox1.SelText = Clipboard.GetText '将剪贴板上的内容复制到文本框中 End Sub Private Sub MenuFont_Click() '设置字体 CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 'cdlCFBoth 对话框列出可用的打印机和屏幕字体. cdlCFEffects 对话框允许删除线，下划线，以及颜色效果。 CommonDialog1.ShowFont '显示“字体”对话框 RichTextBox1.SelFontName = CommonDialog1.FontName '设置字体 RichTextBox1.SelFontSize = CommonDialog1.FontSize '设置字号 RichTextBox1.SelBold = CommonDialog1.FontBold '设置是否以粗体显示 RichTextBox1.SelItalic = CommonDialog1.FontItalic '设置是否以斜体显示 RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru '设置是否显示删除线 RichTextBox1.SelUnderline = CommonDialog1.FontUnderline '设置是否显示下划线 RichTextBox1.SelColor = CommonDialog1.Color '设置字的颜色 End Sub Private Sub MenuColor_Click() '背景颜色 CommonDialog1.Flags = 2 '打开完整的对话框 CommonDialog1.ShowColor '显示“颜色”对话框 RichTextBox1.BackColor = CommonDialog1.Color '背景颜色为通用对话框选定的颜色 End Sub Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '弹出式菜单 PopupMenu MenuEdit, vbPopupMenuLeftAlign '弹出式菜单显示编辑下拉菜单，鼠标在弹出式菜单左上角 Else Exit Sub End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) '工具条 On Error Resume Next '如果出现错误，忽略错误，继续执行 Select Case Button.Key '按关键字选择 Case "新建" MenuNew_Click Case "打开" MenuOpen_Click Case "保存" MenuSave_Click Case "剪切" MenuCut_Click Case "复制" MenuCopy_Click Case "粘贴" MenuPaste_Click Case "粗体" RichTextBox1.SelBold = Not RichTextBox1.SelBold Case "斜体" RichTextBox1.SelItalic = Not RichTextBox1.SelItalic Case "下划线" RichTextBox1.SelUnderline = Not RichTextBox1.SelUnderline Case "左对齐" RichTextBox1.SelAlignment = 0 Case "居中" RichTextBox1.SelAlignment = 2 Case "右对齐" RichTextBox1.SelAlignment = 1 Case "字体设置" MenuFont_Click Case "背景颜色" MenuColor_Click End Select End Sub Private Sub MenuUsage_Click() 'ActiveX 公用帮助 With CommonDialog1 .HelpFile = "c:\windows\help\vbcmn96.hlp" .HelpCommand = &HB Or cdlHelpSetContents .ShowHelp End With End Sub Private Sub MenuAbout_Click() '关于 MsgBox "记事本 土木分院 土0801-5 刁云峰 制作", vbOKOnly, "关于" 'vbOKOnly 只显示 OK 按钮 End Sub

添加commondialogue和imagelist控件，以下是代码 Private Sub form_load() Me.Height = 6000 Me.Width = 9000 End Sub Private Sub Form_Resize() On Error Resume Next '出错处理 RichTextBox1.Top = 400 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 mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub Private Sub mnufont_Click() CommonDialog1.Flags = cdlCFBoth '显示设置字体对话框 CommonDialog1.ShowFont '将选中部分文字的字体设为选择的字体 RichTextBox1.SelFontName = CommonDialog1.FontName RichTextBox1.SelFontSize = CommonDialog1.FontSize RichTextBox1.SelBold = CommonDialog1.FontBold RichTextBox1.SelItalic = CommonDialog1.FontItalic End Sub Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error Resume Next Select Case Button.Key Case "新建" mnuNew_Click Case "打开" mnuOpen_Click Case "保存" mnuSave_Click Case "复制" mnuCopy_Click

什么意思啊？？是文本控件？？

vb6.0企业版有现成的

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！