none
【求助】文本框触发事件的问题 RRS feed

  • 问题

  • 我想用在文本框按下回车键后触发一个事件,让按钮可以用,调试不出来,不知道下面的程序出了什么问题,请帮忙看看,谢谢。

    Dim keyentered As String

    Private Sub EntertheUserName(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            If keyentered = Keys.Enter Then
                Button1.Enabled = True
            End If
        End Sub
    End Class
    2012年12月10日 8:09

答案

  • Public Class Form1
        Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgsHandles TextBox1.KeyDown
            If (Button1.Enabled) Then
                Exit Sub
            End If
            Button1.Enabled = (e.KeyCode = Keys.Enter)
        End Sub
    End Class
    

    我的博客园
    慈善点击,点击此处
    和谐拯救危机,全集下载,净化人心

    • 已标记为答案 raphaelkino 2012年12月10日 8:56
    2012年12月10日 8:30
    版主
  • 非常感谢!

    我也试了一下这个,也可以完成了,不过看来还是版主的这个更规范~

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            'If (Button1.Enabled) Then
            'Exit Sub
            ' End If
            'Button1.Enabled = (e.KeyCode = Keys.Enter)
            If (e.KeyCode = Keys.Enter) Then
                Button1.Enabled = True
            End If
        End Sub

    2012年12月10日 8:56

全部回复

  • Public Class Form1
        Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgsHandles TextBox1.KeyDown
            If (Button1.Enabled) Then
                Exit Sub
            End If
            Button1.Enabled = (e.KeyCode = Keys.Enter)
        End Sub
    End Class
    

    我的博客园
    慈善点击,点击此处
    和谐拯救危机,全集下载,净化人心

    • 已标记为答案 raphaelkino 2012年12月10日 8:56
    2012年12月10日 8:30
    版主
  • 非常感谢!

    我也试了一下这个,也可以完成了,不过看来还是版主的这个更规范~

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
            'If (Button1.Enabled) Then
            'Exit Sub
            ' End If
            'Button1.Enabled = (e.KeyCode = Keys.Enter)
            If (e.KeyCode = Keys.Enter) Then
                Button1.Enabled = True
            End If
        End Sub

    2012年12月10日 8:56