你可以用3個rich來測試，占的實際寬度是一樣的，但是textWidth,或者len,LenB之類就不一樣了，而且我rich加入了圖片，判斷就更難了，現在只要能判斷字符出來就不錯了！

select datalength('我a')
select datalength('aaa')
字节个数相同，那它的长度也就相同。。。

樓上的，這個怎麽做？

你可以根据文本的值，传入后台，在后台判断所占用字节个数。。。
如果后台占用字节个数相同，则表示宽度相同，
如果后台占用字节个数不同，则表不宽长不同。。

可不可以給個例子給我啊？謝謝了！
我是在是不知道怎麽弄！

Dim objCn As New Connection
Dim objRs As New Recordset
Dim objRs1 As New Recordset

Private Sub Command1_Click()
objCn.Open "Provider=SQLOLEDB.1;Password=hushimiao;Persist Security Info=True;User ID=sa;Initial Catalog=db_ct;Data Source=CT-ZX2"
objRs.Open "select datalength('我a')", objCn
objRs1.Open "select datalength('aaa')", objCn

If isnull(objRs.Fields(0),0) = isnull(objRs1.Fields(0),0) Then
MsgBox "宽度相同"
Else
MsgBox "宽度不同"
End If
End Sub

用到了數據庫？

還有沒有其他方法啊？謝謝！

勞煩各位了，這個問題糾纏我很久了，請幫幫忙啊，謝謝啦！

可依我看这个问题早就解决了啊？你还有什么问题啊？是我理解有问题还是你有问题啊？