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 ThenMsgBox "有车有房",,"慢慢想,不要紧"MsgBox "我妈会游泳",,"慢慢想,不要紧"MsgBox "家务我做",,"慢慢想,不要紧"MsgBox "零食你吃",,"慢慢想,不要紧"End IfIf MsgBox("考虑考虑呗", vbYesNo) = vbNo ThenMsgBox "有车有房",,"慢慢想,不要紧"MsgBox "我妈会游泳",,"慢慢想,不要紧"MsgBox "家务我做",,"慢慢想,不要紧"MsgBox "零食你吃",,"慢慢想,不要紧"End IfEnd Sub--------------我是分割线,不要复制我----------------那个线它自己会加。
6、还要写文字的:
7、最后在点击文件-生成exe,点击试验一下效果吧
8、作者有事,不能写太多更详细的,有需要可以联系作者。百度网盘下载链接:https://pan.baidu.c泠贾高框om/s/1gPh_calKESN24PqUwGyvWQ 密码:l6evVB6.0精简版下载链接:https://pan.baidu.com/s/1PYT5sSXIP2n1BdIj3botIA 密码:pacd