前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >计算机高职专业VB知识要点001,模拟域名抢购软件案例代码开源,热身第一课

计算机高职专业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相关代码开源:

代码语言:javascript
复制
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的开源代码:

代码语言:javascript
复制
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 删除

本文分享自 编程创造城市 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档