帮我看看如何输入时自动显示大写字母

djhong

原来只要在表里格式改下就ok了.....汗.笨的了.....自己瞎搞[em06]

一点通

能充分理解、运用，就会少走弯路，恭喜你能正确使用这种方法

djhong

谢谢了[em01]

okmijn

没必要这么复杂啊

okmijn

+32

wuaza

摘自帮助

以下示例将文本框中输入的文本在键入时转换为大写，每键入一个字符就转换一个。

若要试用该示例，请将下列事件过程添加到窗体中，并使窗体中含有一个名为“货主地区”的文本框。

1. Private Sub ShipRegion_[b]KeyPress[/b](KeyAscii As Integer)
   
   
2.     Dim strCharacter As String
   
   
3. 
   
   
4.     ' Convert ANSI value to character string.
   
   
5.     strCharacter = Chr(KeyAscii)
   
   
6.     ' Convert character to upper case, then to ANSI value.
   
   
7.     KeyAscii = Asc(UCase(strCharacter))
   
   
8. End Sub

复制代码