本人算是不会任何高级编程语言，请各位老大不要因为我问的问题低级嘲笑我。
    因为需要非常简单的控制下位设备，我就在网上查了点VB的资料。
    用了一个下午做了一个“四个按钮，一个文本框”的小工程，通过RS232串口发送4个指令，下位机也算正常工作了，虽然文本框里没收到下位机发过来的反馈，不过心里还是非常高兴的。后来我就离开了电脑，等回来后发现程序崩溃，然后再打开后，报错，串口被占用。用任务管理器一看，那个我命名的“工程1.exe”的小软件还在运行，而且还结束不掉。

程序在公司电脑上，没弄回来，我在照着原来的改改：

Private Sub Command1_Click()
  MSComm1.Output = A
End Sub
-----
Private Sub Command2_Click()
  MSComm1.Output = B
End Sub
-----
Private Sub Command3_Click()
  MSComm1.Output = C
End Sub
-----
Private Sub Command4_Click()
  MSComm1.Output = D
End Sub
-----
Private Sub Form_Load()
   = 1
  MSComm1.Settings = "9600,E,7,2"
  'MSComm1.InBufferSize = 8
  'MSComm1.OutBufferSize = 8
  MSComm1.Handshaking = comNone

  If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
  End If

  MSComm1.RThreshold = 1
  MSComm1.SThreshold = 1
  MSComm1.PortOpen = True
  MSComm1.InputLen = 0
  MSComm1.InputMode = comInputModeText

  If MSComm1.PortOpen = False Then
    MSComm1.PortOpen = True
  End If

  Dim buf$
  buf = Trim(MSComm1.Input)
  If Len(buf) = 0 Then           
    Text1.Text = "empty"
  Else
    Text1.Text = buf
  End If
End Sub
请各位大侠指教下：
1.为什么端口被占用
2.为什么TEXT不能收到东西呢，里面既没有A、B、C、D，也没有empty。我看资料里说是什么事件驱动，怎么改呢？

[ 本帖最后由 outhearth 于 2015-5-25 23:24 编辑 ]

我今天改了下，用的onComm事件，接收的字符不是很好，可能是因为没有开始符和结束符的原因。

在上面那个例子里，我就直接用的
Dim buf$
  buf = Trim(MSComm1.Input)
  If Len(buf) = 0 Then           
    Text1.Text = "empty"
  Else
    Text1.Text = buf
  End If

接受不到，或者丢失数据。

谢谢。
版主，我想在TEXT框里限制输入的数值，应该怎么弄

因为要控制电机的位置，我希望操作人员里面只能输入数字，可以带小数点，但是要有范围，比如10.00~450.00，不能超过范围。

第二个就是想在TEXT里显示背景，比如“输入位置：______MM”，我选择TEXT框的时候，也不能消失。