vb初学者的疑难小问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:42:40
在窗体中添加一个新的文本框，文本框内容清空，编写代码，使得运行时鼠标在窗体空白区域上按下时，文本框内容为“在窗体上按下了鼠标”，鼠标抬起时文本框被容为“在窗体上抬起了鼠标”

Private Sub Text1_MouseDown
text1.text="在窗体上按下了鼠标"
end sub
方便的话还请解释下为什么这样不行

好的程序来了,自己编写的,已经验证OK了!

现把代码呈上:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "在窗体上按下了鼠标"
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "在窗体上抬起了鼠标"
End Sub

下面我来解释下你的问题:
Private Sub Text1_MouseDown
text1.text="在窗体上按下了鼠标"
end sub

你的程序错在Text1_MouseDown ,你的要求是在窗口空白处按下,而你在文本框上按下了,你的对象选错了!!!

我也是学VB的,以后互相帮助啊!!!