Question

大家好我还有另外一个问题就是关于计时器......我想要显示3秒钟的表格只显示半秒钟。请提前帮助我

主要表单代码：

Private Sub submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submit.Click
    'question 1
    If Label1.Text = "Who invented the airplane?" And TextBox1.Text = "third" Then

        Label2.Text = (Label2.Text) + 1

        correctmsg.Show()
        correctmsg.Hide()

        Label1.Text = "Who invented the telephone?"
        Return 'Don't do any more checks this time around

    ElseIf Label1.Text = "Who invented the airplane?" Then
        'Reason ElseIf (In case the question was 'who invented the telephone' then the first errormessage should not not be shown)
        wrongmsg.Show()
        Return

    End If

启动表单代码：

Public Class correctmsg

Private Sub correctmsg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim mysplash As New correctmsg
    mysplash.Timer1.Interval = 3000

End Sub

结束班

Answer 1

这样的事情：

Public Class correctmsg
  ' correctmsg == mysplash ??? so this is a form??


 Private Sub correctmsg_Load(ByVal sender As System.Object, 
      ByVal e As System.EventArgs) Handles MyBase.Load

      Timer1.Interval = 3000    ' could be a timer here

 End Sub

 Public Sub ShowMsg
     Timer1.Enabled = true
     me.Visible = True
 End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, 
           ByVal e As System.EventArgs) Handles Timer1.Tick

     Timer1.Enabled = False
     Me.Visible = False

 End Sub
 End Class

我只是通过让表格可见来展示表格。无需制作新表格。当计时器到期时，隐藏表单并禁用计时器。使用它：

    correctmsg.ShowMsg
    ' this was hiding the form as soon as it shows:
    'correctmsg.Hide()

计时器表现得很奇怪

1 个答案: