记录器是什么东西啊 版主 新手求解~

能在我的代码中记录和显示在文本框中吗？

现在晚了 实在不好意思 也耽误2位宝贵的时间，我想先休息吧 身体是革命的本钱 嘿，
 明天我在求解咯 很高兴一进来有你们帮忙 谢。

又也许是这个～

Option Explicit

Dim X_Source As Integer, Y_Source As Integer
Dim CodeString() As String, iCount As Long

Private Sub Form_Initialize()
    iCount = 0: ReDim CodeString(iCount)
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReDim Preserve CodeString(iCount)
    
    If Button = 1 Then
        CodeString(iCount) = "Mouse Button1" & vbCrLf
    ElseIf Button = 2 Then
        CodeString(iCount) = "Mouse Button2" & vbCrLf
    ElseIf Button = 4 Then
        CodeString(iCount) = "Mouse Button4" & vbCrLf
    Else
        CodeString(iCount) = "Mouse Error" & vbCrLf
    End If
    
    iCount = iCount + 1
    
    Call ShowTextBoxInfo
    
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    ReDim Preserve CodeString(iCount)

    If X_Source = 0 And Y_Source = 0 Then
        X_Source = X: Y_Source = Y
    Else
        If X_Source <> X Or Y_Source <> Y Then
            CodeString(iCount) = "Mouse Moving" & vbCrLf
        End If
    End If
    
    iCount = iCount + 1
    
    Call ShowTextBoxInfo
    
End Sub

Private Sub ShowTextBoxInfo()
Dim i As Long
    
    txtCommon.Text = ""
    
    ReDim Preserve CodeString(iCount)
    
    For i = iCount To 0 Step -1
        If CodeString(i) <> "" Then
            txtCommon.Text = txtCommon.Text & CodeString(i)
        End If
    Next i

End Sub

[ 本帖最后由 wube 于 2011-5-15 03:01 编辑 ]

Private Astr As String '全局静态变量
然后
Private Sub 显示()
If Text1 = "" Then '如果text1原来没有内容
Text1.Text = Astr
Else
Text1.Text = Text1.Text & vbCrLf & Astr
End If
End Sub
要显示时加入
Astr = "我"
Call 显示
Astr = "你"
Call 显示
以下类推就正如我想要的文本框显示
谢谢版主和wube
帮忙

看来我把事情复杂化了～

Public Sub TEXTADD(OBJ As TextBox, TT As String)

If Len(OBJ.Text) = 0 Then
    OBJ.Text = TT                  '避免出现一个空行
Else
    OBJ.Text = OBJ.Text & vbCrLf & TT   '换行，再增加内容
End If

End Sub

Private Sub Command1_Click()

    Call TEXTADD(Text1, Time)               '调用，二个参数，1为显示的控件名，2为 内容

End Sub

是不是想要这个效果？？
每次使用 TextADD 这个过程添加文字进去。

做流水日记？？？？
如果你打算用 文本框做流水日记，那这个想法就错了。

做流水日记，最简单的方法就是用 listbox

Public Sub LOGADD(TT As String)

If List1.ListCount > 20 Then            '最大记录数 ，根据你的需要来设置。
    List1.RemoveItem 0
End If
List1.AddItem Time & ":" & TT           '显示时间及内容

End Sub

Private Sub Command1_Click()
    Call LOGADD("asdag")
End Sub

还是风吹过b说得对， 给他一说 这么简单就完成咯 谢谢

说实在～我还是不知道他想干麻～