求教：用SendMessage + EM_SETSEL 在Textbox选取文本

破案了，使用6.0版控件的时候（Textbox支持Ctrl+A），EM_SETSEL把汉字当一个字符。否则，EM_SETSEL把汉字当2个字符。这是要玩死我啊！@隨風缒夢 @yjryym @涐吢铱舊囿儚

Public Declare Function SendMessageByRefW Lib "USER32" Alias "SendMessageW" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByRef wParam As Long, ByRef lParam As Long) As Long
Private Sub TxtFile_Click()
Dim lSelStPos As Long '选择起始位置
Dim lSelEdPos As Long '选择结束位置
' DispMsg "Position at " & TxtFile.SelStart
SendMessageByRefW TxtFile.hwnd, EM_GETSEL, lSelStPos, lSelEdPos
DispMsg "Position at " & lSelEdPos & " " & lSelEdPos
End Sub
这样可以取鼠标位置，随便输入汉字文本，鼠标点击可以看到一个汉字是占了2个字符还是1个。

看下图右边两组结果，是相同代码编译后运行的：
图片右上的窗口，是启用WinXP样式控件的运行结果。
　　这个是“1个汉字按1个字符算”的。
图片右下的窗口，是没启用WinXP样式控件的。
　　这个跟调试运行一样，是“1个汉字按2个字符算”的。

试了一下，把VB6的IDE开启WinXP样式就可以了。