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
ProgressBar Rossa fixata - Form1.vb

Form1.vb

Caricato da:
Scarica il programma completo

  1. Public Class Form1
  2.  
  3.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  4.         Bar.Increment(1)
  5.         If Bar.Value = 2 Then
  6.             PictureBox1.Visible = True
  7.         End If
  8.         If Bar.Value = 4 Then
  9.             PictureBox2.Visible = True
  10.         End If
  11.         If Bar.Value = 6 Then
  12.             PictureBox3.Visible = True
  13.         End If
  14.         If Bar.Value = 8 Then
  15.             PictureBox4.Visible = True
  16.         End If
  17.         If Bar.Value = 10 Then
  18.             PictureBox5.Visible = True
  19.         End If
  20.         If Bar.Value = 12 Then
  21.             PictureBox6.Visible = True
  22.         End If
  23.         If Bar.Value = 14 Then
  24.             PictureBox7.Visible = True
  25.         End If
  26.         If Bar.Value = 16 Then
  27.             PictureBox8.Visible = True
  28.         End If
  29.         If Bar.Value = 18 Then
  30.             PictureBox9.Visible = True
  31.         End If
  32.         If Bar.Value = 20 Then
  33.             PictureBox10.Visible = True
  34.         End If
  35.         If Bar.Value = 22 Then
  36.             PictureBox11.Visible = True
  37.         End If
  38.         If Bar.Value = 24 Then
  39.             PictureBox12.Visible = True
  40.         End If
  41.         If Bar.Value = 26 Then
  42.             PictureBox13.Visible = True
  43.         End If
  44.         If Bar.Value = 28 Then
  45.             PictureBox14.Visible = True
  46.         End If
  47.         If Bar.Value = 30 Then
  48.             PictureBox15.Visible = True
  49.         End If
  50.         If Bar.Value = 32 Then
  51.             PictureBox16.Visible = True
  52.         End If
  53.         If Bar.Value = 34 Then
  54.             PictureBox17.Visible = True
  55.         End If
  56.         If Bar.Value = 36 Then
  57.             PictureBox18.Visible = True
  58.         End If
  59.         If Bar.Value = 38 Then
  60.             PictureBox19.Visible = True
  61.         End If
  62.         If Bar.Value = 40 Then
  63.             PictureBox20.Visible = True
  64.         End If
  65.         If Bar.Value = 42 Then
  66.             PictureBox21.Visible = True
  67.         End If
  68.         If Bar.Value = 44 Then
  69.             PictureBox22.Visible = True
  70.         End If
  71.         If Bar.Value = 46 Then
  72.             PictureBox23.Visible = True
  73.         End If
  74.         If Bar.Value = 48 Then
  75.             PictureBox24.Visible = True
  76.         End If
  77.         If Bar.Value = 50 Then
  78.             PictureBox25.Visible = True
  79.         End If
  80.         If Bar.Value = 52 Then
  81.             PictureBox26.Visible = True
  82.         End If
  83.         If Bar.Value = 54 Then
  84.             PictureBox27.Visible = True
  85.         End If
  86.         If Bar.Value = 56 Then
  87.             PictureBox28.Visible = True
  88.         End If
  89.         If Bar.Value = 58 Then
  90.             PictureBox29.Visible = True
  91.         End If
  92.         If Bar.Value = 60 Then
  93.             PictureBox30.Visible = True
  94.         End If
  95.         If Bar.Value = 62 Then
  96.             PictureBox31.Visible = True
  97.         End If
  98.         If Bar.Value = 64 Then
  99.             PictureBox32.Visible = True
  100.         End If
  101.         If Bar.Value = 66 Then
  102.             PictureBox33.Visible = True
  103.         End If
  104.         If Bar.Value = 68 Then
  105.             PictureBox34.Visible = True
  106.         End If
  107.         If Bar.Value = 70 Then
  108.             PictureBox35.Visible = True
  109.         End If
  110.         If Bar.Value = 72 Then
  111.             PictureBox36.Visible = True
  112.         End If
  113.         If Bar.Value = 74 Then
  114.             PictureBox37.Visible = True
  115.         End If
  116.         If Bar.Value = 76 Then
  117.             PictureBox38.Visible = True
  118.         End If
  119.         If Bar.Value = 78 Then
  120.             PictureBox39.Visible = True
  121.         End If
  122.         If Bar.Value = 80 Then
  123.             PictureBox40.Visible = True
  124.         End If
  125.         If Bar.Value = 82 Then
  126.             PictureBox41.Visible = True
  127.         End If
  128.         If Bar.Value = 84 Then
  129.             PictureBox42.Visible = True
  130.         End If
  131.         If Bar.Value = 86 Then
  132.             PictureBox43.Visible = True
  133.         End If
  134.         If Bar.Value = 88 Then
  135.             PictureBox44.Visible = True
  136.         End If
  137.         If Bar.Value = 90 Then
  138.             PictureBox45.Visible = True
  139.         End If
  140.         If Bar.Value = 92 Then
  141.             PictureBox46.Visible = True
  142.         End If
  143.         If Bar.Value = 94 Then
  144.             PictureBox47.Visible = True
  145.         End If
  146.         If Bar.Value = 96 Then
  147.             PictureBox48.Visible = True
  148.         End If
  149.         If Bar.Value = 98 Then
  150.             PictureBox49.Visible = True
  151.         End If
  152.         If Bar.Value = 100 Then
  153.             PictureBox50.Visible = True
  154.         End If
  155.     End Sub
  156.  
  157.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  158.         PictureBox1.Visible = False
  159.         PictureBox2.Visible = False
  160.         PictureBox3.Visible = False
  161.         PictureBox4.Visible = False
  162.         PictureBox5.Visible = False
  163.         PictureBox6.Visible = False
  164.         PictureBox7.Visible = False
  165.         PictureBox8.Visible = False
  166.         PictureBox9.Visible = False
  167.         PictureBox10.Visible = False
  168.         PictureBox11.Visible = False
  169.         PictureBox12.Visible = False
  170.         PictureBox13.Visible = False
  171.         PictureBox14.Visible = False
  172.         PictureBox15.Visible = False
  173.         PictureBox16.Visible = False
  174.         PictureBox17.Visible = False
  175.         PictureBox18.Visible = False
  176.         PictureBox19.Visible = False
  177.         PictureBox20.Visible = False
  178.         PictureBox21.Visible = False
  179.         PictureBox22.Visible = False
  180.         PictureBox23.Visible = False
  181.         PictureBox24.Visible = False
  182.         PictureBox25.Visible = False
  183.         PictureBox26.Visible = False
  184.         PictureBox27.Visible = False
  185.         PictureBox28.Visible = False
  186.         PictureBox29.Visible = False
  187.         PictureBox30.Visible = False
  188.         PictureBox31.Visible = False
  189.         PictureBox32.Visible = False
  190.         PictureBox33.Visible = False
  191.         PictureBox34.Visible = False
  192.         PictureBox35.Visible = False
  193.         PictureBox36.Visible = False
  194.         PictureBox37.Visible = False
  195.         PictureBox38.Visible = False
  196.         PictureBox39.Visible = False
  197.         PictureBox40.Visible = False
  198.         PictureBox41.Visible = False
  199.         PictureBox42.Visible = False
  200.         PictureBox43.Visible = False
  201.         PictureBox44.Visible = False
  202.         PictureBox45.Visible = False
  203.         PictureBox46.Visible = False
  204.         PictureBox47.Visible = False
  205.         PictureBox48.Visible = False
  206.         PictureBox49.Visible = False
  207.         PictureBox50.Visible = False
  208.         Button1.Enabled = False
  209.         Button2.Enabled = False
  210.         Button3.Enabled = False
  211.         PictureBox51.Enabled = False
  212.         PictureBox52.Enabled = False
  213.         Button5.Enabled = False
  214.     End Sub
  215.  
  216.  
  217.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  218.         Dim reteDisponibile As Boolean
  219.         reteDisponibile = My.Computer.Network.IsAvailable
  220.         If reteDisponibile = True Then
  221.             MsgBox("La rete è disponibile")
  222.         Else
  223.             MsgBox("La rete NON è disponibile")
  224.         End If
  225.     End Sub
  226.  
  227.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  228.         Timer1.Stop()
  229.         MsgBox("Valore delle ProgressBar:  " & Bar.Value & " % ")
  230.         Timer1.Start()
  231.     End Sub
  232.  
  233.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  234.         Timer1.Stop()
  235.         Form2.Show()
  236.     End Sub
  237.  
  238.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  239.         Timer1.Start()
  240.         Button4.Visible = False
  241.         Button1.Enabled = True
  242.         Button2.Enabled = True
  243.         Button3.Enabled = True
  244.         PictureBox51.Enabled = True
  245.         PictureBox52.Enabled = True
  246.         Button5.Enabled = True
  247.     End Sub
  248.  
  249.     Private Sub PictureBox51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox51.Click
  250.         Timer1.Stop()
  251.     End Sub
  252.  
  253.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  254.         Timer1.Stop()
  255.         PictureBox1.Visible = False
  256.         PictureBox2.Visible = False
  257.         PictureBox3.Visible = False
  258.         PictureBox4.Visible = False
  259.         PictureBox5.Visible = False
  260.         PictureBox6.Visible = False
  261.         PictureBox7.Visible = False
  262.         PictureBox8.Visible = False
  263.         PictureBox9.Visible = False
  264.         PictureBox10.Visible = False
  265.         PictureBox11.Visible = False
  266.         PictureBox12.Visible = False
  267.         PictureBox13.Visible = False
  268.         PictureBox14.Visible = False
  269.         PictureBox15.Visible = False
  270.         PictureBox16.Visible = False
  271.         PictureBox17.Visible = False
  272.         PictureBox18.Visible = False
  273.         PictureBox19.Visible = False
  274.         PictureBox20.Visible = False
  275.         PictureBox21.Visible = False
  276.         PictureBox22.Visible = False
  277.         PictureBox23.Visible = False
  278.         PictureBox24.Visible = False
  279.         PictureBox25.Visible = False
  280.         PictureBox26.Visible = False
  281.         PictureBox27.Visible = False
  282.         PictureBox28.Visible = False
  283.         PictureBox29.Visible = False
  284.         PictureBox30.Visible = False
  285.         PictureBox31.Visible = False
  286.         PictureBox32.Visible = False
  287.         PictureBox33.Visible = False
  288.         PictureBox34.Visible = False
  289.         PictureBox35.Visible = False
  290.         PictureBox36.Visible = False
  291.         PictureBox37.Visible = False
  292.         PictureBox38.Visible = False
  293.         PictureBox39.Visible = False
  294.         PictureBox40.Visible = False
  295.         PictureBox41.Visible = False
  296.         PictureBox42.Visible = False
  297.         PictureBox43.Visible = False
  298.         PictureBox44.Visible = False
  299.         PictureBox45.Visible = False
  300.         PictureBox46.Visible = False
  301.         PictureBox47.Visible = False
  302.         PictureBox48.Visible = False
  303.         PictureBox49.Visible = False
  304.         PictureBox50.Visible = False
  305.         Bar.Value = 0
  306.     End Sub
  307.  
  308.     Private Sub PictureBox52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox52.Click
  309.         Timer1.Start()
  310.     End Sub
  311.  
  312.     Private Sub Bar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar.Click
  313.  
  314.     End Sub
  315. End Class