case4_2.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 13 行

Imports System.Windows.Forms

Public Class MyForm
    Inherits Form

    Public Sub MyForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        MessageBox.Show("你好，这是一个事件处理程序！")
    End Sub

    Public Shared Sub Main()
        Application.Run(New MyForm())
    End Sub
End Class