在textbox中如何控制大小写，或是textbox得到焦点时控制 capslock 哪种方法好

Question

Private Sub Text1_Change()
    'Text1.Text = UCase(Text1.Text) '大写
    Text1.Text = LCase(Text1.Text) '小写
End Sub

Answer 1

to foolishtiger:
大写的时候，光标总在最前面

Answer 2

Private Sub Text1_Change()
    Dim lngPos As Long
    
    lngPos = Text1.SelStart
    Text1.Text = UCase(Text1.Text) '大写
    Text1.SelStart = lngPos
    'Text1.Text = LCase(Text1.Text) '小写
End Sub

Answer 3

                    轻松实现限制用户输入类型
                     作者：enmity(灵感之源) 在VB中，常常要限制用户输入类型，如一定要用户输入数字、大写字母或小写字母等等。除了使用传统的KeyPress、KeyDown等输入事件来捕捉用户输入的类型以加以限制以外，我们可以用更简单、更准确、更高效率的API来实现这个功能。
◆第一步：创建窗体Form1
添加控件：一个TextBox控件，命名为txtTest；一个Frame控件，命名为frameStyles；在其上分别添加三个OptionoptButton控件，命名为optStyle，索引分别为0、1与2。 ◆第二步：添加代码‘主程序：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Const GWL_STYLE = (-16)Enum TextInputStyles
 ES_UPPERCASE = &H8&
 ES_LOWERCASE = &H10&
 ES_NUMBER = &H2000&
End EnumPublic Sub SetTextInputStyle(hWndTextControl As Long, InputStyle As TextInputStyles)
 Dim Style As Long
 Style = GetWindowLong(hWndTextControl, GWL_STYLE)
 Style = Style Or InputStyle
 SetWindowLong hWndTextControl, GWL_STYLE, Style
End SubPrivate Sub optStyle_Click(Index As Integer)
 Select Case Index
  Case 0: SetTextInputStyle txtTest.hWnd, ES_UPPERCASE
  Case 1: SetTextInputStyle txtTest.hWnd, ES_LOWERCASE
  Case 2: SetTextInputStyle txtTest.hWnd, ES_NUMBER
 End Select
End Sub

本程序在VB 6.0 ＋ Windows 98或Windows 2000 Server中成功编译并正常运行。