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

最新推荐文章于 2022-06-01 20:54:43 发布
最新推荐文章于 2022-06-01 20:54:43 发布
阅读量1.7k 收藏 2
点赞数
分类专栏： VisualBasic 文章标签： textbox function string user matrix byte
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ASPBIT/article/details/14640
版权
这段代码提供了获取TextBox和RichTextBox控件中光标所在行和列的功能，特别地，它考虑了中文字符的情况。通过发送消息和使用内存复制函数，可以确定光标精确的行列位置。
摘要由CSDN通过智能技术生成

'************************************************************
'功能：取得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 _
        Long, ByVal wParam As

最低0.47元/天 解锁文章
ASPBIT
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
miaozk2006的专栏
01-22 1082
 代码如下： Option Explicit Public Const WM_USER = &H400Public Const EM_EXGETSEL = WM_USER + 52 Public Const EM_LINEFROMCHAR = &HC9Public Const EM_LINEINDEX = &HBBPublic Const EM_GETSEL =...
C# RichTextBox 获取当前光标的行号列号
茗香淡然 的 专栏
03-18 9942
获得行和列的快速方法要用到  GetFirstCharIndexOfCurrentLine()、.GetLineFromCharIndex(int  index)、SelectionStart 自定义一个方法  Ranks()   方便调用 /// 自定义方法 -- /// 获取文本中(行和列)--光标--坐标位置的调用方法 ///
获取文本框当前光标所在的行和列
weixin_30907523的博客
12-22 341
<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _Public Structure HWND__ '''int Public unused As IntegerEnd StructureParti...
RichtextBox 行和列
weixin_30905981的博客
12-09 277
获得光标所在的行号 获得光标所在的列号 设置光标到指定行号 设置光标到指定列号 http://www.huifangseo.com/blog/6/7.html 获得光标所在的行号和列号 方法1 int SelStart = richTextBox1.SelectionStart; int Line = 1 + richTextB...
VB 获取光标在TextBox、RichTextBox中所在的位置
miaozk2006的专栏
05-27 2380
'支持中文，一个汉字算一列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...
获取光标所在的行和列
02-04
本文将详细解释如何在VB中获取光标所在的行和列。 首先，我们要明白VB中的“光标位置”通常是指在文本控件（如TextBox或RichTextBox）中用户输入时的插入点。在文本编辑环境中，光标的位置可以被表示为当前行和列的...
C# RichTextbox设置行间距
05-19
然而，`RichTextBox`默认并不直接支持设置行间距，但通过一些技巧和工作流程，我们可以实现这个功能。以下是一些关键知识点，帮助你理解和实现C# `RichTextBox`的行间距设置。 1. **基本概念**： 行间距指的是文本...
winform中去掉richtextbox中的光标
11-10
然而，在某些特定场景下，我们可能希望隐藏`richtextbox`中的光标，使其在用户交互时不再显示闪烁的插入点。这通常是为了实现诸如静态展示富文本或者避免用户误操作的需求。以下是如何在C# WinForm应用程序中实现这...
richtextbox设置行间距
04-21
在.NET Framework中，`RichTextBox`控件是Windows Forms应用程序中常用的一个文本编辑组件，它支持丰富的文本格式，包括字体、颜色、样式等。在C#编程中，我们经常需要对`RichTextBox`的文本进行各种定制，比如调整...
textbox 在光标位置插入字符功能的js实现(兼容ie,firefox)
10-29
在JavaScript中，实现一个在文本框（`<textarea>`）中光标位置插入字符的功能，需要考虑到不同浏览器的兼容性问题。主要涉及到两种主要的浏览器：Internet Explorer (IE) 和非IE浏览器，如Firefox。IE浏览器使用的是...
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鼠标点击选择一行
04-12
C#编程技术学习记录，关于XML文档使用和RichTextBox控件的使用。
设置RichTextBox中的指定行为选中状态！！
Melody1994的博客
06-16 1813
设置richTextBox的属性HideSelection = false; /// <summary> /// 选中行 /// </summary> /// <param name="line">行...
textBox 光标定位显示几行几列
qq_41352731的博客
06-01 305
textBox 光标定位显示几行几列
C#RichTextBox复制并跳转指定行
weixin_34019144的博客
04-17 290
方法一： rTxt.Focus(); //设置文本框中选定的文本起始点 为 指定行数第一个字符的索引 rTxt.SelectionStart = rTxt.GetFirstCharIndexFromLine(nowLineIndex); //设置控件中选定的字...
Excel工作表保护破解(Excel试验版本为2003)
琉璃仙境
03-21 3700
网上流传有一个宏，可以解除工作表保护的密码。 Option Explicit Public Sub AllInternalPasswords()  Breaks worksheet and workbook structure passwords. Bob McCormick  probably originator of base code algorithm modified 
C#textbox和Richtextbox
最新发布
01-05
C#中的TextBox和RichTextBox是用于在Windows窗体应用程序中显示和编辑文本的控件。 TextBox是一个简单的文本框控件，用于接收和显示单行文本。它可以用于用户输入和显示简单的文本信息。以下是一个TextBox的示例： ```csharp TextBox textBox1 = new TextBox(); textBox1.Text = "Hello World!"; ``` RichTextBox是一个更强大的文本框控件，它支持多种文本格式和样式，如字体、颜色、对齐方式等。它可以用于显示和编辑富文本内容，如RTF格式的文本。以下是一个RichTextBox的示例： ```csharp RichTextBox richTextBox1 = new RichTextBox(); richTextBox1.Text = "Hello World!"; richTextBox1.SelectionFont = new Font("Arial", 12, FontStyle.Bold); richTextBox1.SelectionColor = Color.Red; ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值