第二章 创建用户界面精选版.pptVIP

Private Sub Command1_Click() If Text1.Text = cpu Then form2_2.Show Else MsgBox sorry! you cant enter the form2! End If End Sub 密码设置 清空文本框，设置焦点 Private Sub Command2_Click() Text1.Text = Text1.SetFocus End Sub 程序代码 * Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text1.Text = cpu Then Form2_2.Show Else MsgBox sorry! you cant enter the form2!, , 文本框 End If End If End Sub 另外一种触发方式： * 2、标签（Label） [功能]：用于在窗体上增加文字说明。如用作窗体的状态栏，或为文本框、列表框等添加注释文字说明等。 (1) 属性 Name：