首页技术用vb做简单的软件,用vb做一个点名器

用vb做简单的软件,用vb做一个点名器

编程之家2026-06-101031次浏览

大家好,今天来为大家分享用vb做简单的软件的一些知识点,和用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

(注:各菜单项的快捷键请自行设置)

好了,其它的菜单项以后再根据需要添加。现在进入:

步骤三:编写代码。

'声明查找变量

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= CommonDialog1.FontName

End If

End Sub

至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感?

当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。

第二章美化程序界面

多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外,还给用户带来操作上的便利。现在我们就来做一做这两样东西。

一.工具栏

(一)制作工具栏

单击“工程”-“部件”,选中Microsoft Windows Common Control 6.0并确定。这时,我们要用到的控件就出现在左边的工具栏上了。

要做工具栏,首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入图片”就可以一次性装载图片了(如不满意,以后还可以添加)。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了:在插入图片时给每一张图片注明关键字,以便在引用图片时不至于混乱。如插入“新建”的图片,我们在“关键字”栏注明“New”。

图片有了,接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面,右键单击它,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置,主要如下两项:

1.“图像列表”:选择ImageList1

2.“样式”:根据喜爱选择1-trbStandard或者2-trbFlat

继续点击“属性页”的“按钮”选项,插入若干按钮。按钮有多种样式,请根据需要设置。这里请一定注意:每一个与用户操作有关的按钮都必须注明关键字、装载图片,如“新建”按钮,在“关键字”项注明“新建”,在“图像”项键入“New”(即ImageList1中的图片关键字),需要的话还可以在“工具提示文本”项填入适当的提示语。

(二)编写工具栏的按钮代码

工具栏按钮的代码编辑很简单,可以按照下面的格式去编写:

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next'出错处理

Select Case Button.Key'按关键字选择

Case"新建"

mnuNew_Click'等于菜单项“新建”被单击

Case"打开"'等于菜单项“打开”被单击

mnuOpen_Click

'......(继续编写其它按钮的代码)

End Select

End Sub

完成后试运行一下我们的程序,我们发现,有了工具栏之后,程序变得漂亮多了,只是有一个问题:打开一个较长的文档后,编辑框的下拉滚动条向上的箭头不见了。原因是:工具条占用一定的空间。解决方法:将“设置编辑框的位置和大小”中的RichTextBox1.Top= 20和 RichTextBox1.Height= Me.ScaleHeight- 40分别改为RichTextBox1.Top= 380,RichTextBox1.Height= Me.ScaleHeight- 400即可。

二.状态栏

(一)制作状态栏

状态栏的英文名字叫StatusBar,在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它,调出“属性页”对话框,单击“窗格”项,插入一些窗格,可以将各个窗格的“样式”设置为:

0-sbrText显示文本,需编写代码

1-sbrCaps显示大小写状态,无需编程

2-sbrNum显示NumLock键开关状态,无需编程

3-sbrIns显示Insert键状态,无需编程

4-sbrScr1

5-sbrTime显示时间,不编程时时间不会随系统时钟变化

6-sbrDate显示日期,无需编程

注意:加进状态栏后需将Form_Resze中的RichTextBox1.Height= Me.ScaleHeight- 400改为RichTextBox1.Height= Me.ScaleHeight- 600。

(二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子,读者可以认真揣摩,从而达到举一反三的效果。

例一:用户选取了“新建”后,让第一个窗格显示:“目前状态:正在打开文件《……》”。请将下面代码写进“打开”菜单里面:

StatusBar1.Panels(1).Text="目前状态:正在打开文件"&"《"&CommonDialog1.FileTitle&"》"

例二:让第三个窗格显示时间并让时间跟随系统时钟变化。

首先,给程序加一个Timer控件,将其Interval属性设为1000。然后:

在Form_Load过程加入:StatusBar1.Panels(1).Text= Time;然后给Timer控件编写代码:

Private Sub Timer1_Timer()

If StatusBar1.Panels(3).Text<> CStr(Time) Then

StatusBar1.Panels(3).Text= Time

End If

End Sub

例三:当编辑框的文本发生变化时让第一个窗格显示:“正在编辑文档:文件名”。

Private Sub RichTextBox1_Chang()

StatusBar1.Panels(1).Text="正在编辑文档:"& CommonDialog1.FileName

End Sub

辛苦了那么久,我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件,理论上它能打开和编辑任意大的文档,使用起来的确比Windows自带的记事本方便得多。当然,还有一些其它的功能需要添加和完善,这就靠你慢慢去完成了。

回答完毕!

VB编写软件的全过程

你的问题是在完成了VB应用程序的开发后,将该程序发布或安装于无VB运行环境的机器使用.它需使用VB自带的"Microsoft

Visual

Basic

6.0

中文版工具"中的"Package

&

Deployment

向导"进行VB应用程序打包和展开(安装).在打包过程中"Package

&

Deployment

向导"会搜索必要的VB运行库文件和ActiveX

控件OCX文件进入安装包.

打包和展开向导

打包和展开向导是一种工具,它能帮助您为

Visual

Basic

应用程序创建包装,并将它们安装到最终用户的机器上。您也可以使用打包和展开向导创建从属文件

(.dep)。

注意:在您运行该向导之前,必须有一个保存并编译了的工程。

打包和展开向导为发布您的应用程序提供了一些选项,包括创建:

标准包装,专为由

setup.exe

程序安装而设计。

Internet

包装,专为从

Web

站点下载而设计。

可以和部件一起分发的从属文件。

向导将您的应用程序部件包装为压缩

cabinet

(.cab)

文件。您可以创建单个或多个

.cab

文件以便复制到软盘上。另外,如果需要再次包装或部署相同的应用程序,可以当您在向导中工作时,将您的设置保存为脚本,以便重复使用。

您可以将打包和展开向导作为一个外接程序或独立应用程序启动。要将它作为外接程序启动,请使用“外接程序管理器...”对话框加载向导,然后单击“外接程序”菜单上的菜单项来运行它。要将它作为独立部件启动,请从“启动”菜单上的

Microsoft

Visual

Basic

6.0

组中单击打包和展开向导图标。

注意

打包和展开向导不是磁盘复制工具,如果要复制主分布盘,请使用磁盘复制程序。

选项

“激活工程”

显示当前工程的名称和路径名。只有在将向导作为外接程序运行时才可应用。

“选定工程”

显示选定工程的名称和路径名,同时列出以前的工程。可以输入工程的名称和路径名,或者从列表中选择一个工程。只有在将向导作为独立部件运行时才可应用。

“浏览...”

显示一个可以用来浏览工程的对话框。只有在将向导作为独立部件运行时才可以使用。

“打包”

包装工程的第一步。在包装完应用程序后,可以返回到主屏幕并部署您的包装。

“展开”

部署包装的第一步。如果有一个包装好的工程想要发布到软盘、网络或本地文件夹位置,或者是

Internet

上,则可以使用向导的这一部分。

“管理脚本”

显示“管理脚本”对话框,在这里可以重命名、复制或删除包装和部署脚本。

谁能教教我用vb做程序,我一点基础都没有

你既然喜欢编程,就应该认认真真的学习一门语言,学习微软的就先从VB开始,VB是比较好的入门语言,可视化的,比较简单,是非常好的入门语言。书籍最少应该准备两本,不可能一本书籍会包含VB的所有内容,在看书的时候,可以交叉的看,一本书籍中没有讲到的内容可以在另一本中看到,这样对学习是很有好处的,也能保证所学知识的完整性。学编程是一个很漫长的过程,不要着急,要理论与实践想结合,例程书籍也是很重要的,看源代码对学习也是很有帮助的,等你学完这门VB语言之后,学习别的语言是非常简单,可以尝试C语言,按照C——C++——VC的顺序学习,有助于知识的连贯性,我也希望你能学好的。

或者学习Delphi,入门较为简单类似于VB,但比VB强大,即可作为入门又能做强、做大

怎样学编程

1.明确学习目的

学习编程对大多数IT业人员来说都是非常有用的。学编程,做一名编程人员,从个人角度讲,可以解决在软件使用中所遇到的问题,改进现有软件,可以为自己找到一份理想的工作添加重要得砝码,有利于在求职道路上谋得一个好的职位;从国家的角度,可以为中国的软件产业做出应有的贡献,一名优秀的程序员永远是被争夺的对象。学习编程还能锻炼思维,使我们的逻辑思维更加严密;能够不断享受到创新的乐趣,将一直有机会走在高科技的前沿,因为程序设计本身是一种创造性的工作。知识经济时代给我们带来了无限的机会,要想真正掌握计算机技术,并在IT行业里干出一番事业来,有所作为,具有一定的编程能力是一个基本条件和要求。

2.打好基础

学编程要具备一定的基础,总结之有以下几方面:

(1)数学基础从计算机发展和应用的历史来看计算机的数学模型和体系结构等都是有数学家提出的,最早的计算机也是为数值计算而设计的。因此,要学好计算机就要有一定的数学基础,出学者有高中水平就差不多了。

(2)逻辑思维能力的培养学程序设计要有一定的逻辑思维能力,“逻思力”的培养要长时间的实践锻炼。要想成为一名优秀的程序员,最重要的是掌握编程思想。要做到这一点必须在反复的实践、观察、分析、比较、总结中逐渐地积累。因此在学习编程过程中,我们不必等到什么都完全明白了才去动手实践,只要明白了大概,就要敢于自己动手去体验。谁都有第一次。有些问题只有通过实践后才能明白,也只有实践才能把老师和书上的知识变成自己的,高手都是这样成材的。

(3)选择一种合适的入门语言面对各种各样的语言,应按什么样的顺序学呢?程序设计工具不外乎如下几类: 1)本地开发应用软件开发的工具有:Visual Basic、Delphi、VC++( C++ Builder)等;数据库开发工具有:Visual Foxpro、Oracle Developer、Power Builder等。 2)跨平台开发开发工具如 Java等。 3)网络开发对客户端开发工具如:Java Script等;对服务器开发工具如:PHP、ASP、JSP、ISAPI、NSAPI、CGI等。以上不同的环境下几种开发工具中 VB法简单并容易理解,界面设计是可设化的,易学、易用。选 VB作为入门的方向对出学者是较为适合的。

3.注意理解一些重要概念

一本程序设计的书看到的无非就是变量、函数、条件语句、循环语句等概念,但要真正能进行编程应用,需要深入理解这些概念,在理解的基础上应用,不要只简单地学习语法、结构,而要吃透针对这些语法、结构的应用例子,做到举一反三,触类旁通。

4.掌握编程思想

学习一门语言或开发工具,语法结构、功能调用是次要的,最主要是学习它的思想。例如学习 VC就要学习 Windows的内在机理、什么是线程......;学习 COM就要知道 VTALBE、类厂、接口、idl......,关键是学一种思想,有了思想,那么我们就可以触类旁通。

5.多实践、多交流

掌握编程思想必须在编程实际工作中去实践和体会。编程起步阶段要经常自己动手设计程序,具体设计时不要拘泥于固定的思维方式,遇到问题要多想几种解决的方案。这就要多交流,各人的思维方式不同、角度各异,各有高招,通过交流可不断吸收别人的长处,丰富编程实践,帮助自己提高水平。亲自动手进行程序设计是创造性思维应用的体现,也是培养逻辑思维的好方法。

6.养成良好的编程习惯

编程入门不难,但入门后不断学习是十分重要的,相对来说较为漫长。在此期间要注意养成一些良好的编程习惯。编程风格的好坏很大程度影响程序质量。良好的编程风格可以使程序结构清晰合理,且使程序代码便于维护。如代码的缩进编排、变量命令规则的一致性、代码的注释等。

7.上网学编程

在网上可以学到很多不同的编程思想、方法、经验和技巧,有大量的工具和作品及相关的辅导材料供下载。例如网站“编程课堂”()主要以 VB和 Delph;教学和交流为主,提供大量实用技巧;网站“现在时编程学园”()是专门介绍C、VC、VB、Delphi等的综合编程网站;网站“ VB编程乐园”()提供内容丰富而且实用的编程技术文章、精选控件、源代码下载、计算机考试、相关软件以及编程书籍推荐等等。

8.加强计算机理论知识的再学习

学编程是符合“理论→实践→再理论→再实践”的一个认识过程。一开始要具有一定的计算机理论基础知识,包括编程所需的数学基础知识,具备了入门的条件,就可以开始编程的实践,从实践中可以发现问题需要加强计算机理论知识的再学习。程序人人皆可编,但当你发现编到一定程度很难再提高的时候,就要回头来学习一些计算机科学和数学基础理论。学过之后,很多以前遇到的问题都会迎刃而解,使人有豁然开朗之感。因此在学习编程的过程中要不断地针对应用中的困惑和问题深入学习数据结构、算法、计算机原理、编译原理、操作系统原理、软件工程等计算机科学的理论基础和数理逻辑、代数系统、图论、离散数学等数学理论基础知识。这样经过不断的学习,再努力地实践,编程水平一定会不断提高到一个新高度。

另外,虚机团上产品团购,超级便宜

关于用vb做简单的软件和用vb做一个点名器的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。

ps官方正版下载(PS官方下载的网址是什么)c语言字符串分割strtok(c语言如何将字符串转为数字)