Public Class iniz
Inherits System.Windows.Forms.Form
#Region " Codice generato da Progettazione Windows Form "
Public Sub New()
MyBase.New()
'Chiamata richiesta da Progettazione Windows Form.
InitializeComponent()
'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()
End Sub
'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(iniz))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel
Me.SuspendLayout()
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button1.Location = New System.Drawing.Point(8, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Codice Aiken"
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button2.Location = New System.Drawing.Point(8, 32)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Codice 7421"
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button3.Location = New System.Drawing.Point(200, 32)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(80, 23)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Eccesso 3"
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button4.Location = New System.Drawing.Point(104, 8)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(80, 23)
Me.Button4.TabIndex = 3
Me.Button4.Text = "Codice Gray"
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button5.Location = New System.Drawing.Point(104, 32)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(80, 23)
Me.Button5.TabIndex = 4
Me.Button5.Text = "Codice Binario"
'
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button6.Location = New System.Drawing.Point(200, 8)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(80, 23)
Me.Button6.TabIndex = 5
Me.Button6.Text = "Codice Ascii"
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button7.Location = New System.Drawing.Point(104, 88)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(80, 23)
Me.Button7.TabIndex = 6
Me.Button7.Text = "Chiudi"
'
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button8.Location = New System.Drawing.Point(104, 56)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(80, 23)
Me.Button8.TabIndex = 7
Me.Button8.Text = "Baudot"
'
'LinkLabel1
'
Me.LinkLabel1.Location = New System.Drawing.Point(8, 96)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(80, 16)
Me.LinkLabel1.TabIndex = 8
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "www.oenrik.it"
'
'LinkLabel2
'
Me.LinkLabel2.Location = New System.Drawing.Point(184, 96)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(100, 16)
Me.LinkLabel2.TabIndex = 9
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "www.pierotofy.it"
Me.LinkLabel2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'iniz
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(288, 116)
Me.Controls.Add(Me.LinkLabel2)
Me.Controls.Add(Me.LinkLabel1)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "iniz"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Codici By GoLDBeRG"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
End
End Sub
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Visible = False
Dim aiken As New aiken
aiken.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Visible = False
Dim form3 As New codice7421
form3.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Visible = False
Dim form5 As New gray
form5.Show()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Visible = False
Dim form6 As New binario
form6.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Visible = False
Dim form7 As New ascii
form7.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Visible = False
Dim form4 As New eccesso3
form4.Show()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.Visible = False
Dim form8 As New baudot
form8.Show()
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start(LinkLabel1.Text)
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Process.Start(LinkLabel2.Text)
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button2.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button4.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button5.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button8.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button7.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button6.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub Button3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button3.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
End Class
Public Class Main
Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New iniz)
End Sub
End Class