回 帖 发 新 帖 刷新版面

主题:textbox的焦点

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (TextBox1.Focused) Then TextBox1.Text = "1"
        If (TextBox2.Focused) Then TextBox2.Text = "1"
    End Sub

为什么点击按钮时,焦点会在Button1上,而点击Button之前,光标明明在TextBox1上呀。

请高手指点,谢谢

回复列表 (共3个回复)

沙发

肯定呀!你看看程序执行的流程:
你点击BUTTON1。焦点由TEXTBOX转至BUTTON1。
再执行两个IF语句。
那么,现在你认为会是怎样的结果呢?

板凳

可是我不想让输入焦点转移。我想在点击BUTTON1时,如果TEXTBOX1是当前输入焦点,就得到输入值。

这个功能我有VB6中可以做到,在职Net中不知道为什么?

还请各位高手指正,在此先谢谢了。

3 楼

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          If (TextBox1.Focused) Then
            TextBox1.Text = "1"
            TextBox1.Focus()
        End If
        If (TextBox2.Focused) Then
            TextBox2.Text = "1"
            TextBox2.Focus()
        End If
    End Sub
这样改就可以了

我来回复

您尚未登录,请登录后再回复。点此登录或注册