vb.net 輸入時套用指定的字串 [Add String Mask]

1 2 3 4 5 6 7 8 9 10

Private Sub cboScript_KeyDown(sender As Object, e As KeyEventArgs) Handles cboScript.KeyDown Dim strSufijo As String = ".ini" If cboScript.SelectionStart > cboScript.Text.Length - strSufijo.Length Then cboScript.Text = cboScript.Text.ToString.Replace(strSufijo, "") & strSufijo cboScript.Select(cboScript.Text.Length - strSufijo.Length, 0) Else cboScript.Text = cboScript.Text.ToString.Replace(strSufijo, "") & strSufijo End If End Sub