输入框中对Tab的支持

admin

我们知道，在vb写的程序中，Tab键一般用来切换焦点。
如何让Tab键转换为4个空格呢？以下为RichTextBox控件的代码，测试成功。

1. Private Sub rtView_KeyDown(KeyCode As Integer, Shift As Integer)
   
2.     If KeyCode = 9 Then
   
3.         KeyCode = 0
   
4.         rtView.SelText = " "
   
5.     End If
   
6. End Sub

复制代码