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

刘金玉编程

发布于 2020-05-08 18:07:04

7610

发布于 2020-05-08 18:07:04

文章被收录于专栏：编程创造城市

2020年4月21日笔记

一、域名相关知识点

域名

.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

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2020-04-26，如有侵权请联系 cloudcommunity@tencent.com 删除

编程算法