十万火急！！！！！加多少分都行！！！！！

Question

别直接调用记事本程序，先建一个txt，然后
Open App.Path & "temp.txt" For Output As #1
    Write #1, "...
    。
Close #1
这样的方法，遇到vbcrlf就换行。
试试看，应该可以的。

Answer 1

用完了就kill呗，要不怎么叫临时文件。。

Answer 2

可以這樣考慮...其實好多程序在運行的時候,都會產生相應的temp文件,只要你在程序結束的時候delete..

Answer 3

先找到记事本的窗口句柄，再找到记事本文本框的句柄，用API把字符串发送到记事本的文本框中用sendkey("abc")给记事本也行，不过要先让记事本的文本框得到焦点。

Answer 4

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中的文本粘贴到记事本
        'VB.Clipboard.SetText Text1.Text
        'SendMessage TemphWnd, WM_PASTE, 0, ByVal 0&
        
        '把记事本的内容设置为Text1中的文本
        SendMessage TemphWnd, WM_SETTEXT, 0, ByVal CStr(Text1.Text)
        
    End If
    
End Sub