程序的readme怎么写

1.怎么编写菜单式程序

用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 (注:各菜单项的快捷键请自行设置) 好了,其它的菜单项以后再根据需要添加。现在进入: 步骤三:编写代码。

'声明查找变量 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 '设置弹出式菜单(即在编辑框中单击鼠标。

2.VB程序实验怎么写

这是我写的代码,相信对你有用 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。

程序的readme怎么写

转载请注明出处育才学习网 » 程序的readme怎么写

知识

我是粽子怎么写

阅读(160)

本文主要为您介绍我是粽子怎么写,内容包括写粽子的作文怎么写,描写粽子作文,端午节粽子作文怎么写。又逢端午节,家家户户都包粽子吃。我家也不例外。端午节的前一天,爷爷奶奶就包好了粽子,那一个个粽子可谓大小不一,形状各异:三角体,长方体。

知识

侠盗飞车的英文怎么写

阅读(274)

本文主要为您介绍侠盗飞车的英文怎么写,内容包括请问《侠盗猎车手》的英文是怎么写各个是什么意思,侠盗飞车英文名字,求大神帮我全部翻译,谢谢,侠盗猎车手秘籍。侠盗猎车手秘籍翻译成中文是什么: all right weapons轻武器。all medium weapo

知识

依字的小篆怎么写

阅读(188)

本文主要为您介绍依字的小篆怎么写,内容包括依字用小篆怎么写,“依”字的篆写怎么写,依字的甲骨文怎样写。甲骨文因镌刻于龟甲与兽骨上而得名 商代已有精良笔墨,书体因经契刻,风格瘦劲锋利,具有刀锋的趣味。受到文风盛衰之影响,其大至可分为五

知识

春字用毛笔怎么写

阅读(174)

本文主要为您介绍春字用毛笔怎么写,内容包括春字毛笔写法米字格,春字繁体毛笔怎样写春毛笔行楷体书写,请问谁知道“春”字的各种书法体怎么写。如图 几种隶书写法图片较大 点击图片查看原图<a href="http://pic.wenwen.soso.com/pqpic/wenw

知识

个人试用期报告怎么写

阅读(196)

本文主要为您介绍个人试用期报告怎么写,内容包括试用期转正报告怎么写最好``,试用期转正报告怎么写,新员工试用期每月工作总结怎么写。最低0.27元开通文库会员,查看完整内容> 原发布者:时列会下 试用期转正述职报告 篇一:试用期转正述职报告

知识

包含的拼音怎么写的

阅读(175)

本文主要为您介绍包含的拼音怎么写的,内容包括写一写的拼音,所谓的拼音怎么写的,拼音怎么读怎么写拼知道。先记熟汉语拼音声母和韵母的读音,然后再将字母组合起来拼读,要注意标声调。练熟基本上就 行了。下面是本人平时整理出来并标注了读音,

知识

蒙语回家怎么写

阅读(284)

本文主要为您介绍蒙语回家怎么写,内容包括回家了外蒙语怎么写,回家蒙语怎么说,回家用蒙语怎么说。歌曲:回家歌手:白音那木拉歌曲语言:蒙语发行时间:2008年歌词(汉语拼音音注)delehi qimosen notegan dulad

知识

恍的拼音怎么写的

阅读(221)

本文主要为您介绍恍的拼音怎么写的,内容包括恍的拼音是什么,恍的拼音,恍用拼音怎么拼。拼音:huǎng,具体解释如下:部首:忄笔画:9五行:火五笔:NIQN释义 恍然:~悟。2、仿佛(与“如、若”等连用):~如梦境。~如隔

知识

教案的预知经验怎么写

阅读(172)

本文主要为您介绍教案的预知经验怎么写,内容包括幼儿园教案中经验的准备怎么写,写教案知识经验准备是什么意思,预知经验是什么意思。你要将你所要讲的内容明确,教案不就是要将一节课所要讲的内容以及一节课的设计思路记录在案吗,你可以以一节

知识

十月一日拼音怎么写

阅读(177)

本文主要为您介绍十月一日拼音怎么写,内容包括十月一日的拼音,十月一日的拼音,十月一日的拼音。晚上,和姐姐一个功的商量怎样渡过这个假期。笑声边绵不断从小屋飞上无垠的天空。这个晚上我很晚才睡却睡得很香醇。假期的第一天,很早我和姐姐就

知识

我和语文300字作文怎么写

阅读(196)

本文主要为您介绍我和语文300字作文怎么写,内容包括我与语文的作文300字咋写啊,我看语文这篇作文不少于300字怎么写,《我和我的语文,》作文,,300字。唉,小屁孩,是在赶暑假作业么?哈哈,哥哥我现在大学,很闲着呢,所以帮你写一下吧。说起语文,真可以

知识

吸取的拼音怎么写的

阅读(173)

本文主要为您介绍吸取的拼音怎么写的,内容包括汲取那个怎么写,吸的笔画顺序怎么写的,以史为鉴的拼音怎么写。水彩笔的拼音:shuǐ cǎi bǐ水shuǐ,声母是sh,韵母是uǐ,声调是三声。彩cǎi,声母是c,韵母是ǎi,声调是三声。笔bǐ,

知识

余字拼音怎么写的

阅读(185)

本文主要为您介绍余字拼音怎么写的,内容包括余字拼音怎么打,余字怎么读,余的两个写的读音是怎么读的和。余字读yú中文名:余拼音:yú繁体字:馀(简体“余”的部分意思)同义字:馀(简体“余”的部分意思)汉字首尾分解:人木汉字部件分解:人木部

知识

有无的无怎么写

阅读(184)

本文主要为您介绍有无的无怎么写,内容包括“无”字有几种写法,无在田字格怎么写,第二个字带无的所有词语。无在田字格的写法是:

知识

记事本怎么写程序

阅读(375)

本文主要为您介绍记事本怎么写程序,内容包括如何用记事本写程序,用记事本怎样写程序啊给我几个例子讲解详细点哦,怎样用“记事本”来写程序。其实所谓的程序只是根据每种语法规则写出的特定的语句。。 编程最重要的不是工具,而是你对这种语

知识

写程序的英语怎么说

阅读(219)

本文主要为您介绍写程序的英语怎么说,内容包括程序用英语怎么说,程序英语怎么说,编程序的英语翻译编程序用英语怎么说。你好!编程序programming 英[ˈprəʊgræmɪŋ] 美[ˈproʊgræmɪŋ] n. 编程; 规划,设计; v. 训练(

知识

流水灯plc程序怎么写

阅读(220)

本文主要为您介绍流水灯plc程序怎么写,内容包括PLC流水灯怎么编程,请问流水灯怎么编写梯形图,跪求高手编写PLC流水灯实验程序。x0为启动按钮,x1为停止按钮。y0~y7为8盏灯。程序在按下启动按钮后,灯1先亮,1秒(T0延时)后灭,1秒后(T1延时)灯2亮,依次

知识

matlab写程序怎么换行

阅读(830)

本文主要为您介绍matlab写程序怎么换行,内容包括matlab中怎么换行啊,matlab输入时怎么换行而不使程序运行,matlab中如何换行。对于matlab,想要实现程序换行的方式有如下者几种情况。

知识

程序清单怎么写

阅读(164)

本文主要为您介绍程序清单怎么写,内容包括什么是程序清单,什么是程序清单,java程序模块清单如何写。包含指定该程序集的版本要求和安全标识所需的所有元数据,以及定义该程序集的范围和解析对资源和类的引用所需的全部元数据。每一程序集,无论

知识

论文程序调试怎么写

阅读(176)

本文主要为您介绍论文程序调试怎么写,内容包括毕业论文里调试运行和结果怎么写,计算机论文中的程序调试运行怎么写,哪位大侠帮帮我一下啊毕业论文有一项是软件调试,这部分该怎么写。毕业设计(论文)成绩评定书,各院系要慎重选题,除非题目确实有

知识

安装程序英文怎么写

阅读(250)

本文主要为您介绍安装程序英文怎么写,内容包括安装程序英文怎么写,"安装程序"用英语怎么说,安装程序翻译成英文是什么。安装包英语:installation package读法:英 [ˌɪnstəˈleɪʃn ˈpækɪdʒ] 美 [ˌɪnstəˈleʃə

知识

程序设计论文怎么写

阅读(209)

本文主要为您介绍程序设计论文怎么写,内容包括程序设计的论文怎么写,程序设计类毕业设计论文一般要写哪些方面,本人急需C语言程序设计论文一篇。目 录 摘 要 1 Abstract 2 前 言 3 第一章 绪 论 4 1.1 引言 4 1.2 电子商务网站 4 1.3 电子

[/e:loop]