AboutBox.vb
上传用户:wangting
上传日期:2020-01-24
资源大小:2226k
文件大小:2k
源码类别:

破解

开发平台:

ASP/ASPX

  1. #Region "GPL License"
  2. 'This file is part of XSS Tunnel.
  3. '
  4. 'XSS Tunnel, XSS Tunneling tool 
  5. 'Copyright (C) 2007 Ferruh Mavituna
  6. 'This program is free software; you can redistribute it and/or
  7. 'modify it under the terms of the GNU General Public License
  8. 'as published by the Free Software Foundation; either version 2
  9. 'of the License, or (at your option) any later version.
  10. 'This program is distributed in the hope that it will be useful,
  11. 'but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. 'GNU General Public License for more details.
  14. 'You should have received a copy of the GNU General Public License
  15. 'along with this program; if not, write to the Free Software
  16. 'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  17. #End Region
  18. Public NotInheritable Class AboutBox
  19.     Private Sub AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  20.         ' Set the title of the form.
  21.         Dim ApplicationTitle As String
  22.         If My.Application.Info.Title <> "" Then
  23.             ApplicationTitle = My.Application.Info.Title
  24.         Else
  25.             ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
  26.         End If
  27.         Me.Text = String.Format("About {0}", ApplicationTitle)
  28.         ' Initialize all of the text displayed on the About Box.
  29.         ' TODO: Customize the application's assembly information in the "Application" pane of the project 
  30.         '    properties dialog (under the "Project" menu).
  31.         Me.LabelProductName.Text = My.Application.Info.ProductName
  32.         Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
  33.         Me.LabelCopyright.Text = My.Application.Info.Copyright
  34.         Me.LabelCompanyName.Text = My.Application.Info.CompanyName
  35.         Me.TextBoxDescription.Text = My.Application.Info.Description
  36.     End Sub
  37.     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
  38.         Me.Close()
  39.     End Sub
  40. End Class