fork download
copy 
  1. Iniciando :
  2. Public Class Iniciando
  3.  
  4.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  5.         ProgressBar1.Increment("1")
  6.         If ProgressBar1.Value = 50 Then
  7.             ProgressBar1.Value = 80
  8.         End If
  9.         If ProgressBar1.Value = 100 Then
  10.             Sistema.Show()
  11.             Me.Hide()
  12.         End If
  13.     End Sub
  14. End Class
  15.  
  16. Sistema :
  17. Public Class Sistema
  18.  
  19.     Private Sub Sistema_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  20.         Application.Exit()
  21.     End Sub
  22.  
  23.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  24.         Me.Close()
  25.     End Sub
  26.  
  27.     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  28.         If Panel2.Visible = False Then
  29.             Panel2.Visible = True
  30.         Else
  31.             Panel2.Visible = False
  32.         End If
  33.     End Sub
  34.  
  35.     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
  36.         Navegador.ShowDialog()
  37.     End Sub
  38.  
  39.     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  40.         Navegador.ShowDialog()
  41.     End Sub
  42.  
  43.     Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
  44.         Bloco_de_Notas.ShowDialog()
  45.     End Sub
  46.  
  47.     Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
  48.         Bloco_de_Notas.ShowDialog()
  49.     End Sub
  50. End Class
  51.  
  52. Navegador :
  53. Public Class Navegador
  54.  
  55.     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
  56.         WebBrowser1.Navigate(TextBox1.Text)
  57.     End Sub
  58.  
  59.     Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
  60.  
  61.     End Sub
  62.  
  63.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  64.         ToolStripStatusLabel1.Text = WebBrowser1.StatusText
  65.     End Sub
  66.  
  67.     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  68.         WebBrowser1.Stop()
  69.     End Sub
  70.  
  71.     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  72.         WebBrowser1.ShowPropertiesDialog()
  73.     End Sub
  74.  
  75.     Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
  76.         Me.Close()
  77.     End Sub
  78. End Class
  79.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/home/1sMn3I/prog.vb (1,11) : error VBNC30203: Identifier expected.
/home/1sMn3I/prog.vb (16,8) : error VBNC30203: Identifier expected.
/home/1sMn3I/prog.vb (52,10) : error VBNC30203: Identifier expected.
There were 3 errors and 0 warnings.
Compilation took 00:00:00.6250070
stdout
copy 
Standard output is empty
https://ideone.com/Yacxb6
language:
VB.NET (mono-3.10)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!