Private Sub Command1_Click()
Dim k, l As Integer
 
 
If Flag1 = 0 Then
  Flag1 = 1
 
  Call ComSet(1, 0, 1000,1 , "CIO")                        '置位
  Command1.Caption = "OFF"
  Command1.BackColor = &HFF&
 
  vb编程基础知识command
Else
  Flag1 = 0
  Call ComReset(1, 0, 1000, 1, "CIO")                        '复位
  Command1.Caption = "ON"
  Command1.BackColor = &HFF00&
 
  End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。