SendMessage Me.RichTextBox1.hWnd, &H100, 17, 0&
 SendMessage Me.RichTextBox1.hWnd, &H100, 35, 0&
 SendMessage Me.RichTextBox1.hWnd, &H101, 35, 0&
 SendMessage Me.RichTextBox1.hWnd, &H101, 17, 0&

解决方案 »

  1.   

    SendMessage Me.RichTextBox1.hWnd, &H100, 0&, 0&
     SendMessage Me.RichTextBox1.hWnd, &H100, 0&, 0&
     SendMessage Me.RichTextBox1.hWnd, &H101, 0&, 0&
     SendMessage Me.RichTextBox1.hWnd, &H101, 0&, 0&
      

  2.   

    Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) 
    说明 
    调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, SendMessageByString是该函数的“类型安全”声明形式 
    返回值 
    Long,由具体的消息决定 
    参数表 
    参数 类型及说明 
    hwnd Long,要接收消息的那个窗口的句柄 
    wMsg Long,消息的标识符 
    wParam Long,具体取决于消息 
    lParam Any,具体取决于消息 
      

  3.   

    重大发现!!!!!!!!!!!!
    今天试了,向button等控件发消息就可以,但是向
    RichTextBox发消息就不行,为什么?
    谁能解释一下!!!!!!!
      

  4.   

    没什么可解释的,这不是bug,是你的程序有问题,好好看看MSDN吧