VB首行缩进代码

VB首行缩进代码,第1张

Private position(1024) As Integer '用来记录每段首行位置的数组

Private currentposition As Integer = 0

Private rtb_Selectionlen As Integer = 0

Private rtb As RichTextBox

'首行缩进

Public Sub SetFirstLineIndent()

'获取当前插入运镇陆点的位置

currentposition = rtb.GetFirstCharIndexOfCurrentLine

rtb_Selectionlen = rtb.SelectionLength

'找出全部换行符的位置并存入数组中

Call FindFirstCharOfParagraph()

'找到插入点所在段落的首字符位置

FindPositonofFirstChar()

'进行首行缩进

InsertIndent(firstlineindentvalue)

End Sub

'找出全部段落首行首字符的位置并存入数组中

Public Sub FindFirstCharOfParagraph()

Dim indexofposition As Integer = 0

Dim startposition As Integer = 0

Dim indexofarray As Integer = 1 '数组的索引从1开始,因为0已经被缺省

position(0) = 0 '将旁顷第一段定为0

Do

indexofposition = rtb.Find(Chr(13), startposition, RichTextBoxFinds.None)

If indexofposition >旅液= 0 Then

position(indexofarray) = indexofposition + 1 '当前换行符的位置加1就等于下一段的首字符位置

startposition = indexofposition + 1

indexofarray += 1

Else

'MsgBox("未找到!")

End If

Loop While indexofposition >= 0

End Sub

'获取当前字符所在行的首字符位置

Public Function FindPositionOfCurrentLine() As Integer

currentposition = rtb.GetFirstCharIndexOfCurrentLine

rtb_Selectionlen = rtb.SelectionLength

Return currentposition

End Function

缩进是所有高级语言编信团写代码时所形成的一种习惯。有的其实圆正没有橘坦悔缩进的代码也可以正常使用,但为了使代码条理更清晰,增加易读性,大多数的程序员和集成开发环境也都在代码中采取缩进的方式。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12400712.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-25
下一篇 2023-05-25

发表评论

登录后才能评论

评论列表(0条)

保存