VB中的TXT文本框与TEXT1文本框是怎样创建?
PrivateSubtxt_keypress(keyasciiAsInteger)keyascii=Asc(UCase(Chr(keyascii)))Ifkeyascii...
Private Sub txt_keypress(keyascii As Integer)
keyascii = Asc(UCase(Chr(keyascii)))
If keyascii = Asc(" ") Then
keyascii = 0
End If
End Sub
此程序中TXT文本框怎么创建? 展开
keyascii = Asc(UCase(Chr(keyascii)))
If keyascii = Asc(" ") Then
keyascii = 0
End If
End Sub
此程序中TXT文本框怎么创建? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询