我想在文本框里面，当连续输入2个点地时候去出发一个事件，我该怎么做阿？怎么判断是连续输入了2个点？

Question

拜托

Answer 1

是指句点吗？
在change事件里判断一下就行了。

Answer 2

Private Sub Text1_Change()If Mid(Text1.Text, Len(Text1.Text) - 1, 2) = ".." Then   '在这里触发你要的事件
End If
End Sub

Answer 3

Private Sub Text1_Change()If instr(1,Text1.Text,"..",vbTextCompare ) >0 Then   '在这里触发你要的事件End If
End Sub

Answer 4

你新建一个窗体，在窗体上加一个文本框
代码如下。（万无一失）
Dim 点数 As Long
Private Sub Form_Load()
   点数 = 0
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 46 Then
      点数 = 点数 + 1
      If 点数 = 2 Then
         MsgBox "可以触发事件了"
         '如果你需要不显示最后一个点的话就加上这段代码
         'KeyAscii = 0
      End If
      '如果你需要不显示多有的点的话就加上这段代码
      'KeyAscii = 0
   Else
      点数 = 0
   End If
End Sub