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

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

一、域名相关知识点

域名

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

历史案例:

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

kaixin001.com

kaixin.com

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

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

三、VB快捷键相关技巧

代码格式化:

代码向右:选中代码后,按tab键

代码向左:选中代码后,按shift+tab键

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

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

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

项目目录:

37bc01e121d839f7b65b65d1e7988948.png

form1界面设计:

15ee49b8a4fc3115d8cda6c1f2609abd.png

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界面设计:

a224b86a2380de19eb9dde2fde3233ad.png

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
相关实践学习
基于函数计算快速搭建Hexo博客系统
本场景介绍如何使用阿里云函数计算服务命令行工具快速搭建一个Hexo博客。
相关文章
正则表达式获取一串网址的域名段代码
正则表达式获取一串网址的域名段代码
|
开发者
域名icp备案查询【网站备案批量查询软件】
回家办事那几天去姑妈家的时候,姑父说小叔也在做域名业务。正因为批量挖掘备案域名的问题哀天叫地。
域名icp备案查询【网站备案批量查询软件】
|
测试技术
接口测试平台代码实现100:全局域名-7
本节作为全局域名的最后一节,也是代码实现的第100章。 我们本节就来实际去后台进行修改,让全局域名可以真实生效,目前我们接口库接口和用例库步骤,保存的host中,若是全局域名,前面四个字符一定是:“全局域名”
接口测试平台代码实现100:全局域名-7
|
测试技术
接口测试平台代码实现98:全局域名-5
接口测试平台代码实现98:全局域名-5
接口测试平台代码实现98:全局域名-5
|
前端开发 测试技术 程序员
接口测试平台代码实现97:全局域名-4
上节课我们成功的搞定了host域名管理相关的部分。本节我们要开始弄公共请求头了。
接口测试平台代码实现97:全局域名-4
|
存储 测试技术
接口测试平台代码实现94:全局域名-1
接口测试平台代码实现94:全局域名-1
接口测试平台代码实现94:全局域名-1
|
PHP 数据安全/隐私保护
一段php代码实现域名授权
php实现域名授权的方式有很多
1118 0
|
.NET C# 开发框架
ASP.NET C# 用后台代码实现 跨域名访问 返回HTML代码
这份资源  我找了很久 终于找到了!  非常感谢提供这份资源的人,你很牛B! 原链接: http://www.7net.cn/web/sitetech/ASPbiancheng/200908181503.
991 0