抖音做我女朋友好不好，有图完整，十分简单

1、打开VB6.0，新建一个工程，标准EXE。

把窗口拉到适当位置。不要太小。

箭号指的是在桌面屏幕的大小。

2、接下来找到抖音的图片，我也没素材，从网上下载下来的，和抖音的一样。

等下发在经验末尾。

3、点击‘视图’，选择属性窗口，可以看到一个叫picture的，点击一下，右边会出现3个小点点，打开找你要找的图片吧。

忘了说，在窗口上鼠标右键也是可以找到属性窗口的哦！

4、把图片放好就出现了，可以改按钮的名字哦！（见图片）

5、双击按钮，写以下代码：

Private Sub Command1_Click()

MsgBox "3号目标已拿下", , "哈哈"

End Sub

再写：

Private Sub Command2_Click()

If MsgBox("考虑考虑呗", vbYesNo, "慢慢想，不要紧") = vbYes Then

MsgBox "有车有房",,"慢慢想，不要紧"

MsgBox "我妈会游泳",,"慢慢想，不要紧"

MsgBox "家务我做",,"慢慢想，不要紧"

MsgBox "零食你吃",,"慢慢想，不要紧"

End If

If MsgBox("考虑考虑呗", vbYesNo) = vbNo Then

MsgBox "有车有房",,"慢慢想，不要紧"

MsgBox "我妈会游泳",,"慢慢想，不要紧"

MsgBox "家务我做",,"慢慢想，不要紧"

MsgBox "零食你吃",,"慢慢想，不要紧"

End If

End Sub

--------------我是分割线，不要复制我----------------

那个线它自己会加。

6、还要写文字的：

7、最后在点击文件-生成exe，点击试验一下效果吧

8、作者有事，不能写太多更详细的，有需要可以联系作者。

百度网盘下载链接：

https://pan.baidu.com/s/1gPh_calKESN24PqUwGyvWQ 密码：l6ev

VB6.0精简版下载链接：

https://pan.baidu.com/s/1PYT5sSXIP2n1BdIj3botIA 密码：pacd