我是一名爱好 VB的业余程序员,从今天开始跟大家一起分享关于vb的点点滴滴

我是一名VB爱好者，上学的时候学过VB基础，毕业后没有从事IT相关工作，但是VB一直没放下，偶尔编写个小程序自己用，很方便，很有成就感。

虽然这些年VB热度越来越低，但并不妨碍很多人对它的热爱，我尽量每天更新，从基础开始，结合实例，讲的尽量通俗易懂，如果有讲错的地方，请留言指正，谢谢啦~

vb并不落后

如果你不是专业程序员，不开发大型项目，VB一点都不落后，编写一些小程序来用非常简单高效，比如各种桌面小工具，数据统计，小型管理系统等等，或者你是办公人员，学会VB，vba用起来就很方便了。

相关下载

想要编写VB编写程序，首先得有VB代码编辑器（废话）,而完整企业版不但体积大，安装的时候各种问题，而且代码编辑器不支持鼠标滚轮，写代码的时候非常不便，这里提供一个精简版的，保留了大部分企业版的功能，而且贴心的增加了许多便捷功能，用起来非常方便。

下载地址：

http://51vb.ys168.com

开始的内容

基本上来的人都是有一定基础的，所以为了节省大家的时间，我就不从编辑器的界面开始了，拖放控件，变量，这些基本操作我相信大家都懂。我更多的会写一些实际应用中的小技巧。

例如下图：

如果按下交换按钮，让两个文本框的内容进行交换，很多人肯定想，这还不简单？瞬间就想好代码了：

Text1.Text = Text2.Text

Text2.Text = Text1.Text

那么这么做对吗？看下运行效果：

显然不对，两个文本框都是Text2？怎么回事？原来代码是逐句运行的，程序执行第一句代码：

Text1.text=Text2.text

这时候第一个文本框的内容已经是第二个文本框的内容了，现在文本框1内容是Text2,文本框2的内容是Text2,然后运行第二句:

Text2.text=Text1.text

因为文本框1现在是Text2，所以两个都是Text2，那么我想进行交换怎么办呢？

我给大家举个生活中的例子：

有两杯水，我想让这两个杯子里的水互换一下，A杯倒入B杯，然后B杯倒入A杯显然是不可能的，所以我们一般都会找来C杯，A倒入C，然后B倒入A，最后C倒入B，这样就完成了交换。

把这个思路带入到程序里，怎么找第三个杯子？是找一个文本框3吗？然后代码这样写：

Text3.Text = Text1.Text

Text1.Text = Text2.Text

Text2.Text = Text3.Text

没错，这样可以实现交换效果，但是窗体上多了一个文本框，不但用不到它，而且放在窗体上显得不伦不类。所以，我们用一个变量来代替文本框3，这里的文本框内容是字符串所以我们用定义类型为String(字符串型)：

Dim a As String

a = Text1.Text

Text1.Text = Text2.Text

Text2.Text = a

看下运行效果：

这下可以交换了，也许有人会问，这有什么用？确实有用，比如12306上，出发地和目的地的交换，就是这种情况：

一个人的能力是有限的，所以还请大家一起来完善，如果有好的例子请给我公众号发消息，如果有需要解决的问题也请给我发消息，如果我解决不了问题我查资料，然后把实例放在文章里，供大家参考，遇到这种问题少走弯路。