请问如何控制文本框里面只充许输入数字或者字母？请哪位高手给写一下！谢谢了！

給這個 TextBox 設置一個 ES_NUMBER 屬性.

注意:
#if (WINVER >= 0x0400)
#define ES_NUMBER 0x2000L
#endif
就是只有在 WinVer 高於 0x0400 版本時才可以設置該屬性.
現在的作業系統一般都可以支持.
-------------------------------------------------------
Dim rt&
rt = GetWindowLong(Text1.hWnd, GWL_STYLE)
rt = rt Or ES_NUMBER
SetWindowLong Text1.hWnd, GWL_STYLE, rt

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90 '大写字母
Case 97 To 122 '小写字母
Case 48 To 57 '数字
Case Else
KeyAscii = 0
End Select
End Sub