怎样限制RICHTEXTBOX输入的长度，内容包括中文，英文，数字等其他字符，也可以包括图片，但是输入不能超过RICHTEXTBOX的宽度（RICHTEXTBOX.WIDTH固定），怎样做？请高手帮忙，谢谢！

建议控制字节长度

dataformat属性不是可以设置吗?

不知道如何做，请给个例子

你指的是不是这个

反正是要判断字符所占的空间长度,不知道如何做

等待中。。。

自动换行？

Public Const WM_USER = &H400
Public Const EM_SETTARGETDEVICE = (WM_USER + 72)

Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long


Public Sub AutoSwitchLine(ByRef RichText As Long, ByVal bSwitch As Boolean)
    If bSwitch Then
        '设置 RichTextBox 自动换行
        Call SendMessage(RichText.hWnd, EM_SETTARGETDEVICE, _
        GetDC(RichText.hWnd), RichText.Width / 15)
        If RichText.RightMargin = 0 Then
            RichText.RightMargin = 1
        Else
            RichText.RightMargin = 0
        End If
    Else
        '设置 RichTextBox 不自动换行
        Call SendMessage(RichText.hWnd, EM_SETTARGETDEVICE, 0, 1)
    End If
End Sub

楼上的兄弟错误理解了我的意思，我不是要设置自动换行，而是得到rich中字符和图片占的实际长

[[it] 本帖最后由 tanghuawei 于 2008-3-6 17:15 编辑 [/it]]