By 中国传惠 Transmart Private Sub Form_Load() Dim dbs As String Dim cbs As String tm.Caption = Now For i = 0 To 7 Label1(i).Caption = "通道" & i + 1 Next For k = 0 To 100 Step 3 dbs = dbs & k & " " Next db.Caption = dbs For k = 0 To 200 Step 5 If k = 55 Then cbs = -(50 - k) & " " & cbs Else cbs = -(50 - k) & " " & cbs End If Next cb.Caption = cbs chuizhi = 450 fb = 1 tpp.Visible = False js.Visible = False kk = Me.Width tb.Scale (0, 150)-(100, -50) Randomize End Sub Private Sub Label1_Click(Index As Integer) 'tpp.Visible = False For i = 0 To 7 Label1(i).ForeColor = RGB(0, 0, 0) Next Label1(Index).ForeColor = RGB(0, 0, 255) Xztd = Index tb.Cls bz.Caption = Index + 1 & "通道" & "数据" k = 0 For q = 0 To tp - 2 k = k + fb tb.Line (k, shu(Index, q))-(k + fb, shu(Index, q + 1)) Next If shijian.Enabled = False Then sxx End Sub & cbs Else cbs = -(50 - k) & " " & cbs End If Next cb.Caption = cbs chuizhi = 450 fb = 1 tpp.Visible = False js.Visible = False kk = Me.Width tb.Scale (0, 150)-(100, -50) Randomize End Sub Private Sub Label1_Click(Index As Integer) 'tpp.Visible = False For i = 0 To 7 Label1(i).ForeColor = RGB(0, 0, 0) Next Label1(Index).ForeColor = RGB(0, 0, 255) Xztd = Index tb.Cls bz.Caption = Index + 1 & "通道" & "数据" k = 0 For q = 0 To tp - 2 k = k + fb tb.Line (k, shu(Index, q))-(k + fb, shu(Index, q + 1)) Next If shijian.Enabled = False Then sxx End Sub