VB中怎么创造壹个365bet官网? 却以设置倒腾计时

文章作者:[db:作者] | 2018-11-15 02:36
字体大小:

  用到叁个控件:文本框(Text1)、按钮(Command1)、365bet官网(Timer1)

  Private Sub Command1_Click()

  Timer1.Interval=1000

  End Sub

  Private Sub Timer1_Timer()

  Text1.Text=Val(Text1.Text) - 1

  If Text1.Text < 1 Then

  MsgBox "时间到"

  Unload Me

  End If

  End Sub

  事前要在365bet官网哪里调 Enable属性为false,Interval属性为1000

  Private Sub Command1_Click()

  Timer1.Enabled=True

  End Sub

  Private Sub Timer1_Timer()

  Text1.Text=Val(Text1.Text) - 1

  If Text1.Text < 1 Then

  MsgBox "时间到"

  Unload Me

  End If

  End Sub

  设定倒腾计时 末了尾时间t

  for ,step -1

  露示 t-1s

  next

  用timer控件

TAG: [db:TAG标签]
365bet官网注册 关于我们| 法律声明| 免责声明| 隐私条款| 广告服务| 在线投稿| 联系我们| 网站地图