将数字按钮作为控件数组,并将每个按钮的索引值设置成按钮的数值,然后再添加如下代码: Private Sub Command_Click(Index As Integer) Text1.Text = Command(Index).Caption End Sub 这里要注意Command是一个控件数组。
海草说的不对!!应该是Private Sub Command_Click(Index As Integer) Text1.Text =Text1.Text + Command(Index).Caption End Sub而不是Private Sub Command_Click(Index As Integer) Text1.Text = Command(Index).Caption End Sub
Private Sub Command_Click(Index As Integer)
Text1.Text = Command(Index).Caption
End Sub
这里要注意Command是一个控件数组。
Text1.Text =Text1.Text + Command(Index).Caption
End Sub而不是Private Sub Command_Click(Index As Integer)
Text1.Text = Command(Index).Caption
End Sub
新华网上的免费邮箱,当我输入好用户名后,鼠标经过密码框,这时光标就显示在密码框上那这个怎样设计。
我vb基础刚学好,我提高一点,不知我接下去要什么?
====================================================================
private sub Text1_MouseMove(……)
Text1.SetFocus
end sub