财务录入时(窗口操作)，每笔都要输入凭证号

程序已经设置为新建记录时，默认生成如下凭证号：

华信-14-09-00#

财务人员提出要求，能否在修改14之后，光标自动跳到09，并将09选中，或者修改09之后，光标自动跳到00，并将00选中,便于提高效率，减少失误。

特请教。

 1、可以设置掩码；

 2、你可以用 SelectionStart 和 SelectText 模拟 http://www.foxtable.com/help/topics/1888.htm

看那凭证号，应该只需要改编号，年月以及之前的自动生成，无需修改。

TimerTick

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.Text = "华信-" & Format(Date.Today,"yy-MM") & "-00#"
txt.SelectionStart = 9
txt.SelectionLength = 2
e.Form.TimerEnabled = False

SelectionStart

整数型，返回文本框中选定字符的起始位置。

只能返回起始位置，如何设置起始位置？

 简单一点，自己扩展，在keyup事件加入如下代码

If e.KeyCode = Keys.Right Then
    Dim str As String = e.Sender.Text.SubString(e.Sender.SelectionStart)
    If str.StartsWith("-") = False Then
       
        Dim idx As Integer = str.IndexOf("-")
        If idx > -1 Then
            e.sender.SelectionLength = idx
        Else
            idx = str.IndexOf("#")
            If idx > -1 Then
                e.sender.SelectionLength = idx
            Else
                e.Sender.SelectionLength = str.Length
            End If
        End If
    End If
End If