您所在位置：主题：设计要用vb 可是真的是都忘光了，麻烦各位看下第四行还有后面的 我不能调试
sunny119
[专家分：0] 发布于 2012-03-28 10:38:00
Private Sub Comsend2_Click()
If ComSend2.Caption = "自动发送" Then
ComSend2.Caption = "关闭自动发送"
Timer1.Interval = TextTime.Text
Timer1.Enabled = True
Else
ComSend2.Caption = "自动发送"
Timer1.Enabled = False
End If
End Sub
Private Sub Comclean1_Click()
TextSend.Text = "发送缓冲无数据" '清空发送窗口
End Sub
If ComSend2.Caption = "自动发送" Then
ComSend2.Caption = "关闭自动发送"
Timer1.Interval = TextTime.Text
Timer1.Enabled = True
Else
ComSend2.Caption = "自动发送"
Timer1.Enabled = False
End If
End Sub
Private Sub Comclean1_Click()
TextSend.Text = "发送缓冲无数据" '清空发送窗口
End Sub