VB首行缩进代码

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

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

---