文本输入的问题

Question

编写一个小程序,当在text1.text输入一些文字后,再点击command1时就输出text1.text的文本内容到一个c:/abc.txt的文本文件中去.这样能否实现?如何实现?请高人指点.不胜感激.
这号分不够了,如需要我另建帐号狂给分.

Answer 1

Private Sub command1_Click()Open "c:\abc.txt" For Append As #1
   Print #1, Text1.Text
Close #1end sub

Answer 2

写到记事本中的例子：Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Const WM_SETTEXT = &HCPrivate Sub Command1_Click()
    Dim TemphWnd As Long
    
    TemphWnd = FindWindow("Notepad", vbNullString)
    TemphWnd = FindWindowEx(TemphWnd, 0, "Edit", vbNullString)
    If TemphWnd Then
        
        '把记事本的内容设置为Text1中的文本
        SendMessage TemphWnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
        
    End If
    
End Sub