网络大杂烩首页

网络大杂烩

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【网络大杂烩】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB伪多线程无控件!!

    日期:2019/12/23 5:19:39来源分类:编程开发

    Private Sub Command1_Click()
    Dim i, a As Integer, b As String
    a = 5
    For i = 0 To a
    b = i
    cal b
    Next i
    MsgBox "结束"
    End Sub

    Private Sub Timer1_Timer()
    Label1.Caption = Label1.Caption + 1
    Text1.Text = Label1.Caption & vbCrLf & Text1.Text
    Timer1.Interval = 0
    End Sub

    Private Sub Timer2_Timer()
    Label1.Caption = Label1.Caption + 2
    Text1.Text = Label1.Caption & vbCrLf & Text1.Text
    Timer2.Interval = 0
    End Sub

    Private Sub Timer3_Timer()
    Label1.Caption = Label1.Caption + 3
    Text1.Text = Label1.Caption & vbCrLf & Text1.Text
    Timer3.Interval = 0
    End Sub

    Private Sub Timer4_Timer()
    Label1.Caption = Label1.Caption + 4
    Text1.Text = Label1.Caption & vbCrLf & Text1.Text
    Timer4.Interval = 0
    End Sub

    Private Sub Timer5_Timer()
    Label1.Caption = Label1.Caption + 5
    Text1.Text = Label1.Caption & vbCrLf & Text1.Text
    Timer5.Interval = 0
    End Sub

    Sub cal(b As String)
    If b = "1" Then
     Timer1.Interval = 1
    ElseIf b = "2" Then
     Timer2.Interval = 1
     ElseIf b = "3" Then
     Timer3.Interval = 1
     ElseIf b = "4" Then
     Timer4.Interval = 1
     Else
     Timer5.Interval = 1
     End If
    End Sub

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【网络大杂烩】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员