417198309(417198309) 08:51:02 Team work(183006284) 07:14:53 在一个文本框中有多行文本。 点击其中任意一行，把相应的内容显示在另一文本框中，要怎么实现呢？ 自由飞翔(417198309) 08:51:51 你参考这个代码： 点击其中任意一行，把相应的内容显示在另一文本框中，要怎么实现呢？ 自由飞翔(417198309) 08:52:57 Option Explicit Const EM_GETSEL = &HB0 Const EM_LINEFROMCHAR = &HC9 Const EM_LINEINDEX = &HBB Private 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 GetCaretPos(ByVal hwnd5 As Long, LineNo As Long, ColNo As Long) Dim i As Long, j As Long Dim lParam As Long, wParam As Long Dim k As Long i = SendMessage(hwnd5, EM_GETSEL, wParam, lParam) j = i / 2 ^ 16  '取得目前光标所在位置前有多少个Byte LineNo = SendMessage(hwnd5, EM_LINEFROMCHAR, j, 0) '取得光标前面有多少行 LineNo = LineNo + 1 k = SendMessage(hwnd5, EM_LINEINDEX, -1, 0) '取得目前光标所在行前面有多少个Byte ColNo = j - k + 1 End Sub Private Sub Form_Load() Dim LineNo As Long, ColNo As Long Call GetCaretPos(TxtTest.hwnd, LineNo, ColNo) lblLine.Caption = LineNo lblCol.Caption = ColNo End Sub Private Sub txttest_KeyUp(KeyCode As Integer, Shift As Integer) Dim LineNo As Long, ColNo As Long Call GetCaretPos(TxtTest.hwnd, LineNo, ColNo) lblLine.Caption = LineNo lblCol.Caption = ColNo End Sub Private Sub txttest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim LineNo As Long, ColNo As Long Call GetCaretPos(TxtTest.hwnd, LineNo, ColNo) lblLine.Caption = LineNo lblCol.Caption = ColNo End Sub 自由飞翔(417198309) 08:54:03 这个代码可以显示光标所在的行号和列号 Team work(183006284) 08:55:03 自由飞翔，谢谢你的解答。 不过有那么复杂吗？ Team work(183006284) 08:56:42 我在设计一个“私服”登录器，我看了以前登录器的界面，它实现的是这种效果。

评论