Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Virtual Mouse - AboutBox1.vb

AboutBox1.vb

Caricato da: Progman-92
Scarica il programma completo

  1. Public NotInheritable Class AboutBox1
  2.  
  3.     Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         ' Set the title of the form.
  5.         Dim ApplicationTitle As String
  6.         If My.Application.Info.Title <> "" Then
  7.             ApplicationTitle = My.Application.Info.Title
  8.         Else
  9.             ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
  10.         End If
  11.         Me.Text = String.Format("Info su... {0}", ApplicationTitle)
  12.         ' Initialize all of the text displayed on the About Box.
  13.         ' TODO: Customize the application's assembly information in the "Application" pane of the project
  14.         '    properties dialog (under the "Project" menu).
  15.         Me.LabelProductName.Text = My.Application.Info.ProductName
  16.         Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
  17.         Me.LabelCopyright.Text = My.Application.Info.Copyright
  18.         Me.LabelCompanyName.Text = My.Application.Info.CompanyName
  19.         Me.TextBoxDescription.Text = My.Application.Info.Description
  20.     End Sub
  21.  
  22.     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
  23.         MessageBox.Show("Programma ideato e programmato da Progman-92 (De Vos Ugo) Membro di www.pierotofy.it. Per consigli, bug, informazioni e aiuti contattatemi all'indirizzo progman-92@hotmail.it!!! Grazie per aver visionato il mio programma e magari anche utilizzarlo!?! :-)", "Info su ... Progman-92", MessageBoxButtons.OK, MessageBoxIcon.Information)
  24.         Me.Close()
  25.     End Sub
  26. End Class