还有人用Visual Basic开发程序吗大部分搞开发的还是对它有情怀

有没有人和我一样，当年自学 VB 的，当年怕爱不释手的折腾了半年时间，现在回想起来当时还是挺好学的。

vb全称是Visual Basic，是微软开发的一种通用的基于对象的程序设计语言，同时还是一种可视化的程序设计语言，是可用于微软自家产品开发的语言。

Visual 指的是开发图形用户界面 (GUI) 的方法，不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

Basic指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展 历史 上应用得最为广泛的语言。

Visual Basic 源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库。

能用VB做的事情有很多，基本上除了底层开发(系统软件)，VB都能做，而且在数据库应用方面VB也有他独到的一面；vb拥有强大的数据库功能，可以访问Access、FoxPro等多种数据库系统，而且还能够访问多种电子表格。

或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 ，程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB只能用于设计一些比较小的程序，目前有少部分人在用，学校很多，工作上也会用到，但是广泛程度当然没有JAVA和C#还有NET这些相比。

今天给大家分享下当年自学VB后就激动的上手开发一些小功能程序，以下分享的是界面，一起怀旧下：

这个是启动软件的界面，自己凭想象弄了一个变色的。

当年QQ农场还比较火热的，就学习开发了这个刷经验的。

当年去电玩室，玩老虎机，想着开发一个相似的程序。

当时也在学数据库，就写了一个查询、读取数据的。

这也是前台 *** 作，后台写入数据库的发货单程序 。

当年也经常配电脑，就写了这个[捂脸]

当时工作单位是餐饮，就开发了这个排对取号单和发票管理小程序。

这个是为点菜做了个商品检索。

后边数据库学了一段时间，就开发了这个小型工资管理系统。

这几个也是数据库（增、删、改、查）的。

发现当时很闲啊[捂脸]，做了个程序运行时间计时器和程序最小化到托盘打开调用窗体的小程序 。

学习调用API后，做了这个锁屏工具。

又做了个浏览器，后边这个是前台界面，查询员工的。

这是在另一家餐饮公司，学着开发的一些常用功能，这个主页界面。

今天突然从相册里翻到这些，都是满满的回忆，分享给和我一样，喜爱VB的人，谢谢大家！！！

For i = 1 To LST1ListCount

改为

For i = 0 To LST1ListCount - 1

另外，你在LST1中添加应该是标准的数值，如23、125、789等，如果是非数值就等于0了

public enum AncestorRepresentation {

/// 为所有 ancestor class 生成默认 mirror。

case Generated

/// 使用最近的 ancestor 的 customMirror() 实现来给它创建一个 mirror。

case Customized(() -> Mirror)

/// 禁用所有 ancestor class 的行为。Mirror 的 superclassMirror() 返回值为 nil。

case Suppressed

}

你只完成了界面，后面的价格没有单独列出。

假设当前选择项为 s (列表框的一行）

1、将每个菜进行编号，比如：01-水煮鱼，02-宫保鸡丁……用数组（比如arrPrice）保存价格，索引对应编号，获取价格用：

p = arrPrice(val(Mid(s,1,2)) '这里默认编号为2位数，即最多99种菜，可以扩充

计算所有选择的价格即可。

2、List 框有一个属性 ItemData(Index) 可以保存额外的数字（整数），如果用这个属性保存价格则可以不需要编号（也不需要数组），点菜时将该属性也复制过去，计算该属性的值即可。

list1AddItem "水煮鱼--------------------40元"

list1ItemData(0)=40

3、当然，也可以用现在的格式提取价格，这需要分析字符串，针对反转的字符串，最后个“-”和“元”之间的就是价格

s2 = StrReverse(s) '反转字符串，即“123”变成“321”

nPos = Instr(s2,"-")'查找第一个“-”，因为是反转的，所以在原先的字符串里就是最后一个“-”

if nPos> 0 then p = val(StrReverse(mid(s2,2,nPos-2)) '获取价格后再次反转并转化为数字

如果价格格式固定（比如固定2位数）则可以简化成一句：

p = mid(s,len(s)-2,2)

For kk = 1 To 5000

msgbox "菜名:" & chr(int(rnd32767+1)) & chr(int(rnd32767+1))

DoEvents

Next kk

以上就是关于还有人用Visual Basic开发程序吗大部分搞开发的还是对它有情怀全部的内容，包括:还有人用Visual Basic开发程序吗大部分搞开发的还是对它有情怀、VB问题纠结了。。。。。。。。救命呀————！@、vb编程问题 如图要设计一个点菜软件，想问最后结账时候怎么把所点中的菜如图2一样列出来（怎么算总价等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！