我已经为按钮的单击事件编写了代码，但是当我在运行时单击它时什么也没有发生。为什么？答案

【问题标题】：I've Written The Code For The Button's Click Event, But Nothing Happens When I Click It At Run Time. Why?我已经为按钮的单击事件编写了代码，但是当我在运行时单击它时什么也没有发生。为什么？
【发布时间】：2018-04-18 10:27:27
【问题描述】：

我正在使用 VS2017 和 vb.net 创建一个简单的应用程序，该应用程序将用户输入为文本，当单击按钮时，它将显示在 MsgBox 中。

但是，当我在按钮的点击事件中编写代码时，什么也没有发生。

请帮忙。在此先感谢:)

这是代码-

Public Class Form1

Dim a
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox("You Typed" + a + "!")
End Sub

结束类

【问题讨论】：

证明是你写的。显示代码。
我敢打赌，你打电话给机械师，告诉他你转动钥匙但你的引擎无法启动，并希望他们也告诉你你的车出了什么问题，对吧？我们也不是魔术师。
我已经在问题中添加了代码。看看！！！
从外观上看你永远不会设置a，它可能会抛出NullReferenceException。确保您通过调试运行它并允许抛出异常。
将Option Strict On 放在代码文件的顶部...总是

标签： vb.net button msgbox

【解决方案1】：

试试这个：

公开课表1

Dim a as string
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox("You Typed" + a + "!")
End Sub

Private Sub keyentered(e As KeyEventArgs)
    If e.KeyCode = Keys.E Then
        a = "e"
MsgBox("You Typed" + a + "!")
    End If
End Sub

如果它不起作用，添加一个文本框，然后输入它，但像这样：

公开课表1

Dim a as string
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox("You Typed" + a + "!")
End Sub

Private Sub keyentered(e As KeyEventArgs)
    If e.KeyCode = Keys.E Then
        a = "e"
MsgBox("You Typed" + a + "!")
    End If
End Sub

private sub textbox1_textchanged(e As KeyEventArgs) Handeles Textbox1.textchanged

 If e.KeyCode = Keys.a Then
            a = "a"
    textbox1.text = ""
    MsgBox("You Typed" + a + "!")
        End If
    End Sub

end sub

编辑1：继续这样做，直到到达 Z

编辑2：确保你有 keyeventargs 而不是 eventargs，否则你会得到一个错误。

【讨论】：