取得TextBox、RichTextBox光标所在的行和列(支持中文)修正

最新推荐文章于 2024-12-13 15:01:55 发布
原创 最新推荐文章于 2024-12-13 15:01:55 发布 · 1.8k 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#textbox #function #string #user #matrix #byte

这段代码提供了获取TextBox和RichTextBox控件中光标所在行和列的功能，特别地，它考虑了中文字符的情况。通过发送消息和使用内存复制函数，可以确定光标精确的行列位置。

'************************************************************
'功能：取得TextBox、RichTextBox光标所在的行和列

'支持中文，一个汉字算一列
'有问题请给我写邮件
'作者：Matrix
'邮件：ASPBIT@163.COM
'2003-01-24修正了马虎的错误
'************************************************************

Option Explicit

Public Const WM_USER = &H400
Public Const EM_EXGETSEL = WM_USER + 52

Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_LINEINDEX = &HBB
Public Const EM_GETSEL = &HB0

Public Type CHARRANGE
    cpMin As Long
    cpMax As Long
End Type

Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _
   &nb

最低0.47元/天 解锁文章
Winform从入门到精通（8）——RichTextBox（史上最全）
qq_34059233的博客
01-07 1万+
本文介绍RichTextBox控件的详细用法，包括所有属性、控件，绝对史上最全！
WPF中读取txt文件并让其在RichTextBox中显示
weixin_34358092的博客
06-11 519
出于项目的需要，本来想直接将内容写在RichTextBox中，不过考虑到灵活性，我想，不管是谁，都会想把内容写在一个文件里，然后去读取它以实现这个效果。我也是这么想的，而且这个问题怎么想都不算是个难题，代码量也不大，出于对WPF的不够了解，这个问题居然还真的难倒我了。 习惯winform的朋友，看到这个题，是不是也会和我一样挥笔疾书写下如下一段代码呢： private v...
设置RichTextBox中的指定行为选中状态！！
Melody1994的博客
06-16 1930
设置richTextBox的属性HideSelection = false; /// <summary> /// 选中行 /// </summary> /// <param name="line">行...
VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
miaozk2006的专栏
01-22 1221
 代码如下： Option Explicit Public Const WM_USER = &amp;H400Public Const EM_EXGETSEL = WM_USER + 52 Public Const EM_LINEFROMCHAR = &amp;HC9Public Const EM_LINEINDEX = &amp;HBBPublic Const EM_GETSEL =...
获取文本框当前光标所在的行和列
weixin_30907523的博客
12-22 399
<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _Public Structure HWND__ '''int Public unused As IntegerEnd StructureParti...
RichtextBox 行和列
weixin_30905981的博客
12-09 359
获得光标所在的行号 获得光标所在的列号 设置光标到指定行号 设置光标到指定列号 http://www.huifangseo.com/blog/6/7.html 获得光标所在的行号和列号 方法1 int SelStart = richTextBox1.SelectionStart; int Line = 1 + richTextB...
C# RichTextBox 获取当前光标的行号列号
热门推荐
茗香淡然 的 专栏
03-18 1万+
获得行和列的快速方法要用到  GetFirstCharIndexOfCurrentLine()、.GetLineFromCharIndex(int  index)、SelectionStart 自定义一个方法  Ranks()   方便调用 /// 自定义方法 -- /// 获取文本中(行和列)--光标--坐标位置的调用方法 ///
C#实现两个richtextbox控件滚动条同步滚动的简单方法
08-30
此方法会将richtextbox的光标移动到指定行的开头，并通过调用`ScrollToCaret()`使其滚动到可视区域。 ```csharp private void TrunRowsId(int iCodeRowsID, RichTextBox rtb) { try { rtb.SelectionStart = rtb....
实现带行数与标尺的Rich Textbox控件设计
具体来说，就是为RichTextBox控件添加两部分功能：一部分是显示当前光标所在行的行号，另一部分是在文本框的左侧显示标尺，帮助用户更好地理解文本的布局和长度。在描述中没有额外的信息，因此我们不需要对描述进行...
怎么让richtextbox只能输入固定格式的文本，比如只能输入两个整数相乘的格式
最新发布
07-29
我们想要限制RichTextBox只能输入特定格式的文本，例如两个整数相乘的表达式（如"123*456"）。我们可以通过以下步骤实现： 1. 监听RichTextBox的KeyPress事件，对输入的字符进行过滤。 2. 在TextChanged事件中检查...
excel密码破解说明
05-23
excel密码破解详细教程，Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _
【掌握Richtextbox精髓】：12个实用技巧助你成为文本编辑专家
# 摘要 本文全面介绍了Richtextbox控件的...最后，文章重点介绍了性能测试、代码优化、安全性和兼容性策略，旨在帮助开发者提高开发效率和应用性能，确保应用的稳定运行和跨平台兼容性。 # 关键字 Richtextbox；文本
【C#】RichTextBox基本用法和高级用法及示例
weixin_44939430的博客
12-13 1613
在 Windows Forms 应用程序中，是一个非常强大的控件，可以用来处理多行文本输入和输出。与普通的TextBox不同，支持富文本格式，比如字体样式、颜色和对齐方式。
VB 获取光标在TextBox、RichTextBox中所在的位置
miaozk2006的专栏
05-27 2593
'支持中文，一个汉字算一列Option Explicit Public Const WM_USER = &amp;H400Public Const EM_EXGETSEL = WM_USER + 52 Public Const EM_LINEFROMCHAR = &amp;HC9Public Const EM_LINEINDEX = &amp;HBBPublic Const EM_GE...
winform在richTextBox中查找并选择指定的文本
firetaker的专栏
05-17 2130
方法如下：int rst=this.richTextBox1.Find(this.textBox1.Text,System.Windows.Forms.RichTextBoxFinds.None);判断检测出来的结果：if (i >= 0) {  // 标记出所选符合条件的文字this.richTextBox1.Select(i, this.textBox1.Tex
.Net (C#) 在学习中遇到的RichTextBox控件的一些属性和方法
Z378899073的专栏
01-31 4758
<br />richTextBox1.Text  ：获取或设置文本框的当前文本内容。<br />richTextBox1.SelectionStart：获取或设置光标在文本框的位置（文本框必须有内容）。<br />richTextBox1.SelectionLength：获取或设置文本框选定的字符数。<br />richTextBox1.SelectedText：获取或设置文本框选定文本的内容。<br />richTextBox.SelectAll：选定文本框内的所有文本。<br />richTextBox
textBox 光标定位显示几行几列
qq_41352731的博客
06-01 460
textBox 光标定位显示几行几列
C#RichTextBox复制并跳转指定行
weixin_34019144的博客
04-17 357
方法一： rTxt.Focus(); //设置文本框中选定的文本起始点 为 指定行数第一个字符的索引 rTxt.SelectionStart = rTxt.GetFirstCharIndexFromLine(nowLineIndex); //设置控件中选定的字...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值