如何用vb制作“简单”的表白软件

首先你的电脑得装了VB6.0这个软件，如果没有，请访问这篇文章进行下载安装：点我查看文章

 

步骤开始：

1:打开vb6.0，创建新的exe工程

 

2:在软件界面内创建command模块及text模块并删除text模块中的文字

 

3:点击command模块后在右侧属性工具栏中将caption中的command1名称改为“点我输入文字”

 

4:此时左边的command模块的名称也变成了“点我输入名字”

 

5:双击“点我输入名字”的command模块进入代码编辑，输入以下代码

x = InputBox("请输入你的名字，我告诉你我想对你说的话", "名字输入框")            注本行代码意思：inputbox为输入函数，里面的文字也可以更改成自己想要的内容
If x = "麻木" Then                      注本行代码意思：If函数逻辑代码：如果输入的是麻木那么麻木两个字就被赋值给x
Text1.Text = "我喜欢你"                   注本行代码意思：TEXT模块则显示"我喜欢你"
Else                                注本行代码意思：否则
Text1.Text = "你不是她，我不说话"                   注本行代码意思：text模块则显示"你不是她，我不说话"
End If                    注本行代码意思：IF逻辑函数的结尾，必须写，不然整段代码不能运行！

 

 

6:运行代码查看是否可以正常使用，可以看到text模块按代码设计那样显示了文字

 

7:不过发现一个问题：文字过长的话不能显示完整

 

8:没关系，那就拉宽拉长喽

 

9:重新运行发现可以完整显示了

 

10:还有一个正经一些的方法：设置自动换行，点击text模块，将右侧的multiline属性设置为true即可

 

11:查看效果

 

12:ok之后可以导出使用了，点击文件

 

13:点击下方的生成exe文件。

选择存放目录，推荐桌面，自己更改软件名称

 

14:打开桌面可以看到 表白.exe软件

 

15:双击打开效果相同

教程到此结束，教程虽然简单，但是希望能帮到初学者哈哈！不喜勿喷谢谢！