操作系统课程设计报告模拟进程调度程序(一)(5)

2013-07-16 01:12

导读：sp; b = TextBox2.Text c = TextBox3.Text d = TextBox4.Text If a 0 And b 0 And c 0 And d 0 Then Timer1.Enabled() = True End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As S

sp;    b = TextBox2.Text
        c = TextBox3.Text
        d = TextBox4.Text

        If a > 0 And b > 0 And c > 0 And d > 0 Then
            Timer1.Enabled() = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        i = a - Label7.Width
        If i < 20 Then
            Label7.Width = Label7.Width + i

            Label18.Visible = False
            Label17.Visible = False
            Label16.Visible = True

            Timer1.Enabled = False
            Timer2.Enabled = True
        End If

If Label7.Width < a Then

Label7.Width = Label7.Width + 10

            Label18.Visible = True
            Label17.Visible = False
            Label16.Visible = False

            Timer1.Enabled = False 您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。
            Timer2.Enabled = True
        Else

            Label18.Visible = False
            Label17.Visible = False
            Label16.Visible = True

Timer1.Enabled = False
Timer2.Enabled = True

End If

        If Label8.Width >= b Then
            Label21.Visible = False
            Label20.Visible = False
            Label19.Visible = True
        Else
            Label21.Visible = False
            Lab

上一篇：大型管理应用软件SAPR3系统内部结构剖析(一) 下一篇：没有了