wmpaboutdialog.vb

一个基于互联网进行收听电台节目的VB.NET源代码

Option Explicit On
Option Strict On

''' <copyright>Copyright ?2006 Herbert N Swearengen III</copyright>
'''
''' <notice>
''' This application maybe freely distributed and modified as long
''' as the copyright notice and EULA are retained. This applies to
''' both the compiled application and it's source code.
''' </notice>
Public Class WmpAboutDialog

#Region " Form Events "

    ''' <summary>
    ''' Close if escape key is pressed.
    ''' </summary>
    Private Sub WmpAboutDialog_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    ''' <summary>
    ''' Display image of Microsoft Media Player about dialog and substitute current version number.
    ''' </summary>
    Private Sub WmpAboutDialog_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblVersion.Text = MainForm.Player.versionInfo
    End Sub

#End Region

#Region " Button Events "

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        DialogResult = Windows.Forms.DialogResult.OK
    End Sub

#End Region

End Class