时间戳

首页 > 解决方案 > 如何在richtextbox中插入编号的项目符号列表

vb.net - 如何在richtextbox中插入编号的项目符号列表

问题描述

当用户选择按钮时，我试图插入一个编号的项目符号列表，它将增加计数器

我在网上搜索了问题和不同类型的循环条件语句

Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click
    ToolStripButton16.CheckOnClick = False
    Dim i As Integer
    i = 0
    Dim numbList As String
    Dim buttonClickCount As Integer
    buttonClickCount = 0
    Do While (i = buttonClickCount)
        i += 1
        numbList = "            " & i & "." & vbCrLf
        RichTextBox1.AppendText(numbList)
    Loop
    buttonClickCount += 1
End Sub

预期结果：

1.
2.
3.
4.

标签： vb.net

解决方案

可能不是最优雅的解决方案，但它应该让你朝着正确的方向前进。

'Using a class variable here allows you to keep an "application state".
Dim buttonClickCount as Integer = 0

Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click

    ToolStripButton16.CheckOnClick = False

    buttonClickCount += 1
    Dim newValue As String = "            " & buttonClickCount  & "." & vbCrLf

    RichTextBox1.AppendText(newValue)
End Sub

推荐阅读