vb开发的软件(vb开发应用程序的一般步骤) 收藏 0

10年前自己开发的VB程序，满满的回忆

大学学的是网络技术（三流大专院校）就是学习怎么配置交换机路由器，做做网线，熔个光纤什么的。大学毕业后的方向应该是去网吧当网管吧！机缘巧合下，最后进入的电信的IDC机房管理服务器去了，和网吧差不多的工作。

因为工作的需要，就用大学学的VB（VisualBasic 6.0）编程语言，开发了一下自己工作中经常需要的工具，久而久之就积累好好多，今天翻出来看了看，好多工具竟然在WIN10系统下还能正常运行。

但大多数工具因为VB控件的问题，以及不兼容WIN10了。这几年习惯了C#,PHP等语言的语法，VB的以及忘记差不多了，现在如果再让自己用VB开发，估计以及没有当初那个能力了！

打开其中一个可以运行的，这是当时需要维护100多台服务器的时候写的，监控服务器状态（原来用的cacti-一款网络流量监测图形分析工具，天天给我误报）

斗波服务器监控

这个软件后来也发到了各大软件站供网友免费使用的，收录和下载都挺多的，其中有不少用户后来成了我的客户。所以很多人问我客户从哪来的，您看，这不就来了么。

软件被各平台收录了

VB其实是一门非常不错的编程入门语言（感觉易语言和VB挺像的），做做小程序效率也不差。只是因为时代的原因，已经被微软抛弃了吧（取而代之的是VB.NET）我也是后来接触了C#.NET后就彻底放弃了VB（VB6.0)从此也不再受VB的折磨了（例如VB的多线程？）如果你对编程有兴趣，也可以试着从VB入门，因为没有那么多的继承，多态什么的让你学，简单的拖拽就可以开发了，后面学习其他语言也能得心应手了吧！

有空把电脑里VB的源码全都打包发出来，不知道有没有人需要学习的（虽然写的很烂）

如何用VB.net做一个简单的小软件（第一步）

如何做个简单的小软件呢？如果要求不高，那winform绝对是必选项，那么废话不多少了，先用winform做个简单的登录界面，一步一步的开启做软件之路，冲鸭！冲鸭！

首先呢，在做登录界面之前，我们得有数据库是不是，用来保存我们的用户信息，老样子还是用Access作数据库吧，按照下图的样子做个用户信息表，里面初步要有用户ID、用户姓名、用户账号、用户密码，以后随着功能的添加还要设置账号类型、权限等内容，目前设置这些就够了。

好了，我们数据库里就有了第一位用户张哈哈的用户信息了。下面要开始表演了，啧啧！

打开vs2019 创建新项目，语言选择Visual Basic(就是vb.net),平台选择windows，选中windows 窗体应用（.NET Framework），如下图所示，点击下一步。

设置项目名称等内容就不说了，都是设置好后，就是下图这个样子。

然后这里就省略一些字了，经过调整大小，设置一些属性参数，把界面调整到下图的样子。

是不是有点像登录界面的样子了，winform是事件驱动的，登录界面里有两个按钮，在单击他们时就会产生点击事件，点击登录按钮就要跳转到主程序界面，点击取消按钮就要关闭登录界面，按照这个思路开始写代码。首先双击登录按钮，进入Button1_Click事件里。如图所示

按照思路开始编写程序，Button1_Click里面的代码就是这样的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sql As String

Dim conn As New OleDbConnection

Dim PassWord As String

Dim UserName As String

UserName = TextBox1.Text.Trim

PassWord = TextBox2.Text.Trim

If UserName = \”\” Or PassWord = \”\” Then

MessageBox.Show(\”账号或密码不能为空\”)

Return

End If

conn.ConnectionString = \”provider =microsoft.ace.oledb.12.0;data source=C:\\Users\\huanglong\\Desktop\\数据库.accdb\”

sql = String.Format(\”select 用户账号,用户密码 from 用户信息表 where 用户账号=\'{0}\’ and 用户密码=\'{1}\’\”, UserName, PassWord)

Dim adapter As New OleDbDataAdapter(sql, conn)

Dim dt As New DataSet

adapter.Fill(dt, \”用户信息表\”)

Dim datareader As DataTableReader

Try

datareader = dt.Tables(\”用户信息表\”).CreateDataReader

If datareader.Read Then

If datareader.HasRows Then

MessageBox.Show(\”登录成功\”)

End If

Else

MessageBox.Show(\”登录失败，请输入正确账号密码\”)

Return

End If

Catch ex As Exception

MessageBox.Show(\”出现异常\” & ex.Message)

End Try

Me.Hide()

End Sub

篇幅有限，代码就不详细讲了，大家应该能看懂，编译一下就是如下图这样

输入正确的数据库里的用户账号和密码，点击登录按钮就会弹出登录成功

输入错误的话会弹出登录失败界面

然后进入Button2_Click事件，就是取消按钮的点击事件，上面说了点击取消按钮整个登录界面将关闭，用Me.Close就行了，Me代表当前窗体，C#里用this这个关键词表示当前窗体。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.Close()

End Sub

这就是非常简单的登陆界面，可以在创建个窗体，当账号和密码输入正确时点击登录按钮后登录界面隐藏，界面跳转到新创建的窗体里。今天就不介绍了，下次才进一步介绍

下次见了[送心][送心][送心]

红极一时的VB，输给时代，新型开发工具，或成未来

如果说VB是非专业人员，改造自身行业的绝佳神器，不为过吧？

对于大多数编程语言来说，学习编程语言本身用处并不大，例如C++与Qt属于两个不同的世界，然而VB却是个例外。

软件开发史上，有个特殊时期——Basic时代，那时业余开发者比专业开发者多得多，Visual Basic（简称VB）作为当年主角，号称有300万开发者，全球第一的编程工具。

VB凭借拖拽式开发方式，所见即所得，简单操作却满足许多工作需求，成为风靡一时的桌面开发工具，科技馆灯控、设备管理总控、随机抽签程序等轻松搭建，你还记得用VB做过哪些实用工具吗？

微软凭借着windows系统优势，VB系列持续领先同行，一直力压Delphi等竞争对手。

时过境迁，如今VB早已跌落神坛，新生代程序员可能未曾听过VB，实在让人惋惜。

与其说VB被Java击败，倒不如说输给服务器网络时代，当时微软VB只占有少量低端服务器市场，Java横空出世后，不仅满足服务器市场的跨平台需求，还能在微软服务器运行，VB逐渐式微。

微软为了争夺服务器市场，推出VB.net以对抗Java，可惜VB.net略显粗糙与早期版本并不兼容，VB用户迅速流失，加上不少开发者认为C#显得高大上，VB.net显得业余、没面子，VB用户逐渐凋零。

Visual Basic由盛而衰，让笔者联想起，另一快速搭建技术-低/无代码开发，从备受冷落，到如今硕果累累。

2018年，Mendix低代码开发工具，被西门子以超7亿美元收购，自此围绕着“低/无代码开发”的争论，从未停止。

部分程序员认为“低/无代码开发”只是玩具，只能完成简单数据处理，无法进行业务数据流程化管理，只是UI设计器，更多是因为媒体炒作。

事实上，早在2000年，易语言出现，国内“低/无代码开发”领域便开始生根发芽，发展至今二十多年，相关技术已相当成熟，深入各行各业，以“eversheet”无代码开发工具，这匹黑马为例子。

通过eversheet，不用写一行代码，拖拉拽即可搭建出ERP、WMS、SRM等大型管理软件，对于进销存、工资管理、客户管理等轻量级管理软件，普通人不到2周即可搭建完成。

与Visual Basic同属快速搭建工具，然而国产eversheet工具，纯中文应用界面，或许更符合国人操作习惯。

无代码开发也并非玩具，eversheet内置批量导入、多人协同、工作流、条形码生成，还能对接钉钉、企业微信、金蝶等第三软件的数据，实现高效办公。

十年河东十年河西，莫欺少年穷。

无论是老牌编程语言Visual Basic，还是新型无代码开发工具eversheet，能降低大众开发门槛的，自然就是好工具，也会带来极其震撼的效果。

本文作者及来源:Renderbus瑞云渲染农场https://www.renderbus.com