求VB一个完整工程程序的源代码
2个回答
展开全部
窗体1 Private Sub Command1_Click() Static i If Text1.Text = "yangyilong" Then If Text2.Text = "qq369754" Then MsgBox "你已登陆成功", 0, "登陆成功" Unload Me Form2.Show Else MsgBox "密码输入错误", 0, "错误提示" Text2 = "" Text2.SetFocus End If Else MsgBox "账号输入错误", 0, "错误提示" Text1 = "" Text1.SetFocus End If i = i + 1 If i = 3 Then Unload Me End Sub Private Sub Command2_Click() End End Sub 窗体2 Private Sub Label1_Click() End Sub Private Sub Command1_Click() Text1.FontSize = 14 Text1.Text = "google：iniovip@gmail.com " & vbCrLf & "facebook:425180504@qq.com" & vbCrLf & "推特：iniovip@gmail.com " & vbCrLf & "淘宝：剑宇飘星 " & vbCrLf & "凡客诚品：13698700642 " & vbCrLf & "360云盘：4251805042@qq.com " & vbCrLf & "当当网：13698700624 " & vbCrLf & "网易邮箱：iniovip@gmail.com " & vbCrLf & "网易邮箱：iniovip@gmail.com " & vbCrLf & "支付宝：xiaoxiangjay@126.com " & vbCrLf & "猫扑：找个没人用过的网名 " & vbCrLf & "新浪：13698700642 " & vbCrLf & "金山快盘：iniovip@gmail.com " End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub
求采纳
求采纳
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
万企明道
2024-08-07 广告
低代码开发系统，作为上海万企明道软件有限公司的重要产品方向，极大地简化了软件开发流程。它允许非专业开发者通过图形化界面与少量代码，快速构建应用程序。这一系统降低了技术门槛，加速了项目上线时间，同时提升了软件的灵活性和可维护性。我们致力于为用...
点击进入详情页
本回答由万企明道提供
展开全部
这回答内容是我11年写的一个密码记事本，我不知道怎么就在这了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
