计算机高职专业VB知识要点001，模拟域名抢购软件案例代码开源，热身第一课-阿里云开发者社区

计算机高职专业VB知识要点001，模拟域名抢购软件案例代码开源，热身第一课

2022-12-18 148

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

本文涉及的产品

.cn 域名，1个 12个月

简介： 计算机高职专业VB知识要点001，模拟域名抢购软件案例代码开源，热身第一课

一、域名相关知识点

域名

.com.cn 中国内的商用域名
.com 全球范围的商用域名
.edu 教育类域名
.org 组织类
.gov 政府类
.gov.cn 中国政府

历史案例：

开心网域名曾被抢注的惨案！

kaixin001.com

kaixin.com

二、两个类似的控件：组合框、列表框

combobox 、 listbox控件的list属性，想要连续输入快捷键ctrl+enter

三、VB快捷键相关技巧

代码格式化：

代码向右：选中代码后，按tab键

代码向左：选中代码后，按shift+tab键

VB中的冒号: 表示可以讲多个语句写到一行上，语句中间用冒号:隔开

四、案例：模拟域名抢购软件

学习的相关代码案例开源：

项目目录：

form1界面设计：

form1相关代码开源：

Private Sub Command1_Click()
If Text1.Text = "aaa" And Text2.Text = "123" Then
    Form2.Show
Else
    MsgBox "输入错误！请重新输入"
    Text1.SetFocus  '定位焦点
    Call Command2_Click
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form_Load()
Form1.Caption = "登录"
End Sub

form2界面设计：

form2的开源代码：

Private Sub Command1_Click()
If MsgBox("是否真的购买？下一步进入付费...", vbYesNo, "消息通知") = vbYes Then
    Label2.Caption = "恭喜成功投资一枚域名！"
Else
    Text1.Text = ""
    Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
Form2.Caption = "域名购买"
End Sub