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

djhong

vb里是可以的.....vba里不知道出了什么问题了

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

复制代码

okmijn

+32

okmijn

没必要这么复杂啊

djhong

谢谢了[em01]

一点通

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

djhong

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

djhong

昏迷咯.发现输入后保存到表里居然成小写了.汗

djhong

最好是输入就大写.不过这样也可以了.呵呵

fan0217

[em06]

要文本框失去焦点后才显示。