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
Codici - iniz.vb

iniz.vb

Caricato da:
Scarica il programma completo

  1. Public Class iniz
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Codice generato da Progettazione Windows Form "
  5.  
  6.     Public Sub New()
  7.         MyBase.New()
  8.  
  9.         'Chiamata richiesta da Progettazione Windows Form.
  10.         InitializeComponent()
  11.  
  12.         'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()
  13.  
  14.     End Sub
  15.  
  16.     'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  25.  
  26.     'Richiesto da Progettazione Windows Form
  27.     Private components As System.ComponentModel.IContainer
  28.  
  29.     'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
  30.     'Può essere modificata in Progettazione Windows Form.  
  31.     'Non modificarla nell'editor del codice.
  32.     Friend WithEvents Button1 As System.Windows.Forms.Button
  33.     Friend WithEvents Button2 As System.Windows.Forms.Button
  34.     Friend WithEvents Button3 As System.Windows.Forms.Button
  35.     Friend WithEvents Button4 As System.Windows.Forms.Button
  36.     Friend WithEvents Button5 As System.Windows.Forms.Button
  37.     Friend WithEvents Button6 As System.Windows.Forms.Button
  38.     Friend WithEvents Button7 As System.Windows.Forms.Button
  39.     Friend WithEvents Button8 As System.Windows.Forms.Button
  40.     Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
  41.     Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
  42.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  43.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(iniz))
  44.         Me.Button1 = New System.Windows.Forms.Button
  45.         Me.Button2 = New System.Windows.Forms.Button
  46.         Me.Button3 = New System.Windows.Forms.Button
  47.         Me.Button4 = New System.Windows.Forms.Button
  48.         Me.Button5 = New System.Windows.Forms.Button
  49.         Me.Button6 = New System.Windows.Forms.Button
  50.         Me.Button7 = New System.Windows.Forms.Button
  51.         Me.Button8 = New System.Windows.Forms.Button
  52.         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
  53.         Me.LinkLabel2 = New System.Windows.Forms.LinkLabel
  54.         Me.SuspendLayout()
  55.         '
  56.         'Button1
  57.         '
  58.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
  59.         Me.Button1.Location = New System.Drawing.Point(8, 8)
  60.         Me.Button1.Name = "Button1"
  61.         Me.Button1.Size = New System.Drawing.Size(80, 23)
  62.         Me.Button1.TabIndex = 0
  63.         Me.Button1.Text = "Codice Aiken"
  64.         '
  65.         'Button2
  66.         '
  67.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
  68.         Me.Button2.Location = New System.Drawing.Point(8, 32)
  69.         Me.Button2.Name = "Button2"
  70.         Me.Button2.Size = New System.Drawing.Size(80, 23)
  71.         Me.Button2.TabIndex = 1
  72.         Me.Button2.Text = "Codice 7421"
  73.         '
  74.         'Button3
  75.         '
  76.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.System
  77.         Me.Button3.Location = New System.Drawing.Point(200, 32)
  78.         Me.Button3.Name = "Button3"
  79.         Me.Button3.Size = New System.Drawing.Size(80, 23)
  80.         Me.Button3.TabIndex = 2
  81.         Me.Button3.Text = "Eccesso 3"
  82.         '
  83.         'Button4
  84.         '
  85.         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.System
  86.         Me.Button4.Location = New System.Drawing.Point(104, 8)
  87.         Me.Button4.Name = "Button4"
  88.         Me.Button4.Size = New System.Drawing.Size(80, 23)
  89.         Me.Button4.TabIndex = 3
  90.         Me.Button4.Text = "Codice Gray"
  91.         '
  92.         'Button5
  93.         '
  94.         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.System
  95.         Me.Button5.Location = New System.Drawing.Point(104, 32)
  96.         Me.Button5.Name = "Button5"
  97.         Me.Button5.Size = New System.Drawing.Size(80, 23)
  98.         Me.Button5.TabIndex = 4
  99.         Me.Button5.Text = "Codice Binario"
  100.         '
  101.         'Button6
  102.         '
  103.         Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.System
  104.         Me.Button6.Location = New System.Drawing.Point(200, 8)
  105.         Me.Button6.Name = "Button6"
  106.         Me.Button6.Size = New System.Drawing.Size(80, 23)
  107.         Me.Button6.TabIndex = 5
  108.         Me.Button6.Text = "Codice Ascii"
  109.         '
  110.         'Button7
  111.         '
  112.         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.System
  113.         Me.Button7.Location = New System.Drawing.Point(104, 88)
  114.         Me.Button7.Name = "Button7"
  115.         Me.Button7.Size = New System.Drawing.Size(80, 23)
  116.         Me.Button7.TabIndex = 6
  117.         Me.Button7.Text = "Chiudi"
  118.         '
  119.         'Button8
  120.         '
  121.         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.System
  122.         Me.Button8.Location = New System.Drawing.Point(104, 56)
  123.         Me.Button8.Name = "Button8"
  124.         Me.Button8.Size = New System.Drawing.Size(80, 23)
  125.         Me.Button8.TabIndex = 7
  126.         Me.Button8.Text = "Baudot"
  127.         '
  128.         'LinkLabel1
  129.         '
  130.         Me.LinkLabel1.Location = New System.Drawing.Point(8, 96)
  131.         Me.LinkLabel1.Name = "LinkLabel1"
  132.         Me.LinkLabel1.Size = New System.Drawing.Size(80, 16)
  133.         Me.LinkLabel1.TabIndex = 8
  134.         Me.LinkLabel1.TabStop = True
  135.         Me.LinkLabel1.Text = "www.oenrik.it"
  136.         '
  137.         'LinkLabel2
  138.         '
  139.         Me.LinkLabel2.Location = New System.Drawing.Point(184, 96)
  140.         Me.LinkLabel2.Name = "LinkLabel2"
  141.         Me.LinkLabel2.Size = New System.Drawing.Size(100, 16)
  142.         Me.LinkLabel2.TabIndex = 9
  143.         Me.LinkLabel2.TabStop = True
  144.         Me.LinkLabel2.Text = "www.pierotofy.it"
  145.         Me.LinkLabel2.TextAlign = System.Drawing.ContentAlignment.TopRight
  146.         '
  147.         'iniz
  148.         '
  149.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  150.         Me.ClientSize = New System.Drawing.Size(288, 116)
  151.         Me.Controls.Add(Me.LinkLabel2)
  152.         Me.Controls.Add(Me.LinkLabel1)
  153.         Me.Controls.Add(Me.Button8)
  154.         Me.Controls.Add(Me.Button7)
  155.         Me.Controls.Add(Me.Button6)
  156.         Me.Controls.Add(Me.Button5)
  157.         Me.Controls.Add(Me.Button4)
  158.         Me.Controls.Add(Me.Button3)
  159.         Me.Controls.Add(Me.Button2)
  160.         Me.Controls.Add(Me.Button1)
  161.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  162.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  163.         Me.MaximizeBox = False
  164.         Me.Name = "iniz"
  165.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  166.         Me.Text = "Codici By GoLDBeRG"
  167.         Me.ResumeLayout(False)
  168.  
  169.     End Sub
  170.  
  171. #End Region
  172.  
  173.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  174.         End
  175.     End Sub
  176.  
  177.     Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  178.         End
  179.     End Sub
  180.  
  181.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  182.         Me.Visible = False
  183.         Dim aiken As New aiken
  184.         aiken.Show()
  185.     End Sub
  186.  
  187.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  188.         Me.Visible = False
  189.         Dim form3 As New codice7421
  190.         form3.Show()
  191.     End Sub
  192.  
  193.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  194.         Me.Visible = False
  195.         Dim form5 As New gray
  196.         form5.Show()
  197.     End Sub
  198.  
  199.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  200.         Me.Visible = False
  201.         Dim form6 As New binario
  202.         form6.Show()
  203.     End Sub
  204.  
  205.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  206.         Me.Visible = False
  207.         Dim form7 As New ascii
  208.         form7.Show()
  209.     End Sub
  210.  
  211.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  212.         Me.Visible = False
  213.         Dim form4 As New eccesso3
  214.         form4.Show()
  215.     End Sub
  216.  
  217.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  218.         Me.Visible = False
  219.         Dim form8 As New baudot
  220.         form8.Show()
  221.     End Sub
  222.  
  223.     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  224.         Process.Start(LinkLabel1.Text)
  225.     End Sub
  226.  
  227.     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
  228.         Process.Start(LinkLabel2.Text)
  229.     End Sub
  230.  
  231.     Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
  232.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  233.     End Sub
  234.  
  235.     Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
  236.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  237.     End Sub
  238.  
  239.     Private Sub Button2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button2.KeyPress
  240.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  241.     End Sub
  242.  
  243.     Private Sub Button4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button4.KeyPress
  244.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  245.     End Sub
  246.  
  247.     Private Sub Button5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button5.KeyPress
  248.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  249.     End Sub
  250.  
  251.     Private Sub Button8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button8.KeyPress
  252.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  253.     End Sub
  254.  
  255.     Private Sub Button7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button7.KeyPress
  256.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  257.     End Sub
  258.  
  259.     Private Sub Button6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button6.KeyPress
  260.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  261.     End Sub
  262.  
  263.     Private Sub Button3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button3.KeyPress
  264.         If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
  265.     End Sub
  266. End Class
  267. Public Class Main
  268.     Shared Sub Main()
  269.         Application.EnableVisualStyles()
  270.         Application.Run(New iniz)
  271.     End Sub
  272. End Class