• {{ item.name }}
  • Home
  • Linux
  • Programming
    • Python
  • Life
  • Other
  • Tools
  • 投资者该如何参与优秀的区块链项目- NuLink社区圆桌会议
  • 什么是NuLink?- 项目中文社区与项目研究组成员 Rookie 对话实录
  • NuLink 融资 400 万美元用于开发隐私保护技术
  • NuLink的零知识证明介绍(1)
  • 用bitwarden_rs搭建属于自己的密码管理器
  • 修复 CentOS vps 网卡失效
  • 记录用mac给Nexus6P刷Android10的错误
  • Centos 6.8启用 TCP BBR拥塞控制算法
  • Nginx 启用HTTP2功能
  • Mac 安装adb工具
  • WordPress 默认编辑器代码按钮

情人节vb打造小程序(教程)

  • iansiu
  • 2012-08-10
  • 0

以前的做的教程 ~同样是为了更新博客
最近肚子里面真的没有什么墨水
上一天班下来 人都快焉了

呵呵 今天情人节哦
祝大家情人节快乐 ~~~

需要的工具 百度下载一个精简版vb就可以 ~

工具有点大 所以我就不打包了 ~~

好了 下载我们开始 吧 打开vb

由于是情人节 就让别人 说 喜欢你吧

呵呵 满足下虚荣心 看操作 给下caption属性
你们改自己喜欢的吧 属性的意思就是 标题栏显示的名称

接下来 画几个控件 你们看操作吧
控件 大概有这几个就可以了 接下来写代码

挺简单的 两三行
Private Sub Command1_Click() ‘按钮一的单击事件里面
If Text1.Text = “我爱你” Then ‘if的判断语句
Shell “cmd.exe /c shutdown /a”, vbHide 调用cmd运行shutdown /这条命令
Else
MsgBox “输入呀~ 不然就真的死机了”, , “阎王提示’”
End If

End Sub

Private Sub Form_Load()
Shell “cmd.exe /c shutdown /r /t 60″, vbHide ‘一启动程序就出现60关机的提示
End Sub
试试效果看 看到了吧 不输入就关机了 我输入 看看

消失了吧 我们改改form1的属性 也就边框样式

属性值设为0让别人不能关闭 看 教程下载地址:http://yfdisk.com/file/xiao6641167/742bd813/

教程就到这里吧 我的blog:http://laowang.me

© 2023 laowang's blog
Theme by Wing