关于我的目的是先隐藏label1,等用户按回车以后再显示label1,label1的caption属性为用户的输入,我的程序代码如下:
Dim m As String
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Chr(KeyAscii)
m = m & a
Label1.Visible = True
Label1.Caption = m
End Sub
这样的代码到底哪里不对了呢?想了好久都想不出来我到底错在哪里,请高手指点一下,小的必定感激涕零!还请写出正确的程序代码,谢谢!
的问题
最主要的问题,Form_KeyPress里你没判断当前输入的是不是回车就无条件把Label1设为可见了,所以无论用户输入了什么,都能使Label1可见。
把Label1.Visible = True前面加上判断,改为
If KeyAscii = 13 Then Label1.Visible = True