这两天论坛故障，工作闲暇QQ时，有个网友问到RichTextBox控件DragDrop事件怎么统计拖拽文件个数，以及直接打开.TXT文件的问题

Private Sub Form_Load()
  RichTextBox1.OLEDropMode = 1 '将RichTextBox1设置为可接受拖拽
End Sub

Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
 Dim ss As String
 For i = 1 To Data.Files.Count
  ST = Right(Data.Files(i), 3)
  If LCase(ST) Like "txt" Then
    RichTextBox1.LoadFile Data.Files.Item(i)
    ss = ss & RichTextBox1.Text
    t = t + 1
  End If
Next
RichTextBox1.Text = ss
MsgBox "你共拖拽了" & Data.Files.Count & "个文件，其中有" & t & "个TXT文本文件"
End Sub