Creare Un Eseguitore Proporzioni VB

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label4.Visible = False
   End Sub

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
           MaskedTextBox1.Text = "x"
           MaskedTextBox1.ReadOnly = True
           CheckBox3.Checked = False
           CheckBox2.Checked = False
           CheckBox4.Checked = False
           CheckBox1.Checked = True
           CheckBox1.Checked = True
           CheckBox1.Checked = True

           MaskedTextBox1.TextAlign = HorizontalAlignment.Center

       Else
           CheckBox1.Checked = False
           MaskedTextBox1.TextAlign = HorizontalAlignment.Left
           MaskedTextBox1.Text = ""
           MaskedTextBox1.ReadOnly = False
           CheckBox2.Checked = False
           CheckBox3.Checked = False
           CheckBox4.Checked = False
       End If
   End Sub

   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
       If CheckBox2.Checked = True Then
           TextBox2.Text = "x"
           TextBox2.ReadOnly = True
           TextBox2.TextAlign = HorizontalAlignment.Center
           CheckBox1.Checked = False
           CheckBox4.Checked = False
           CheckBox3.Checked = False
           CheckBox2.Checked = True
           CheckBox2.Checked = True
           CheckBox2.Checked = True

       Else
           TextBox2.Text = ""
           TextBox2.ReadOnly = False
           TextBox2.TextAlign = HorizontalAlignment.Left
           CheckBox1.Checked = False
           CheckBox3.Checked = False
           CheckBox4.Checked = False
       End If
   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
       If CheckBox3.Checked = True Then
           TextBox3.Text = "x"
           TextBox3.ReadOnly = True
           TextBox3.TextAlign = HorizontalAlignment.Center
           CheckBox1.Checked = False
           CheckBox2.Checked = False
           CheckBox4.Checked = False
           CheckBox3.Checked = True
       Else
           TextBox3.Text = ""
           TextBox3.ReadOnly = False
           TextBox3.TextAlign = HorizontalAlignment.Left
           CheckBox1.Checked = False
           CheckBox2.Checked = False
           CheckBox4.Checked = False
       End If
   End Sub

   Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
       If CheckBox4.Checked = True Then
           TextBox4.Text = "x"
           TextBox4.ReadOnly = True
           TextBox4.TextAlign = HorizontalAlignment.Center
           CheckBox1.Checked = False
           CheckBox2.Checked = False
           CheckBox3.Checked = False
           CheckBox4.Checked = True
       Else
           TextBox4.Text = ""
           TextBox4.ReadOnly = False
           TextBox4.TextAlign = HorizontalAlignment.Left
           CheckBox1.Checked = False
           CheckBox2.Checked = False
           CheckBox3.Checked = False
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Label5.Visible = True
       Button1.Text = "Trova x"
       Label4.Visible = False
       CheckBox1.Checked = False
       CheckBox2.Checked = False
       CheckBox3.Checked = False
       CheckBox4.Checked = False
       MaskedTextBox1.Text = ""
       TextBox2.Text = ""
       TextBox3.Text = ""
       TextBox4.Text = ""
       MaskedTextBox1.TextAlign = HorizontalAlignment.Left
       TextBox2.TextAlign = HorizontalAlignment.Left
       TextBox3.TextAlign = HorizontalAlignment.Left
       TextBox4.TextAlign = HorizontalAlignment.Left
       MaskedTextBox1.ReadOnly = False
       TextBox2.ReadOnly = False
       TextBox3.ReadOnly = False
       TextBox4.ReadOnly = False
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 

       If MaskedTextBox1.Text = "" Then

           MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")

       ElseIf TextBox2.Text = "" Then

           MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")

       ElseIf TextBox3.Text = "" Then

           MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
       ElseIf TextBox4.Text = "" Then

           MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
       End If
       If MaskedTextBox1.Text <> "" Then
           If TextBox2.Text <> "" Then
               If TextBox3.Text <> "" Then
                   If TextBox4.Text <> "" Then
                       If MaskedTextBox1.Text = "x" Then
                           Label4.Visible = True
                           Label4.Text = "x = " & CInt(TextBox2.Text) * CInt(TextBox3.Text) / CInt(TextBox4.Text)



                       ElseIf CheckBox2.Checked = True Then
                           Label4.Visible = True
                           Label4.Text = "x = " & CInt(MaskedTextBox1.Text) * CInt(TextBox4.Text) / CInt(TextBox3.Text)

                       ElseIf TextBox3.Text = "x" Then
                           Label4.Visible = True
                           Label4.Text = "x = " & CInt(MaskedTextBox1.Text) * CInt(TextBox4.Text) / CInt(TextBox2.Text)

                       ElseIf TextBox4.Text = "x" Then
                           Label4.Visible = True
                           Label4.Text = "x = " & CInt(TextBox3.Text) * CInt(TextBox2.Text) / CInt(MaskedTextBox1.Text)




                       Else
                           MsgBox("Inserisci la x", vbCritical, "Messagio Di errore")

                       End If
                   End If
               End If
           End If
       End If

       If Label4.Text <> "Label4" Then
           Button1.Text = "Copia x"
       End If
       TextBox5.Text = Label4.Text.Remove(0, 4)
       If Button1.Text = "Copia x" Then
           TextBox5.Select()
           TextBox5.Copy()
     

       End If

 




   End Sub


   
 
 
   Private Sub Button1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDoubleClick
       If Button1.Text = "Copia x" Then
           Button1.Text = "Trova x"
       End If
   End Sub

   Private Sub Button2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseHover
       Label5.Visible = True
   End Sub

 

   Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
       Label5.Visible = False
   End Sub

   Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
       If Button1.Text = "Trova x" Then
           Label6.Visible = True
       End If
       If Button1.Text = "Copia x" Then
           Label6.Visible = True
           Label6.Text = "Copia il risultato"
       End If
   End Sub

   Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
       Label6.Visible = False
   End Sub


   Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected

   End Sub

End Class