OtaconEvil

[VB] Simple Contador de Caracteres By OTACON

Nov 16th, 2013
216
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Private Sub Contador1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contador1.TextChanged
  4.         GroupBox1.Text = "Caracteres: " & Len(Contador1.Text) & ""
  5.     End Sub
  6.  
  7.     Private Sub Contador4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  8.  
  9.     End Sub
  10.  
  11.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
  12.         Texto1.Text = "new " & TextBox1.Text & "[" & Len(Contador1.Text) + 1 & "];"
  13.     End Sub
  14.  
  15.     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  16.         System.Diagnostics.Process.Start("http://forum.sa-mp.com")
  17.     End Sub
  18.  
  19.     Private Sub Contador2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  20.  
  21.     End Sub
  22.  
  23.     Private Sub Contador3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  24.  
  25.     End Sub
  26.  
  27.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  28.  
  29.     End Sub
  30.  
  31.     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  32.         Texto1.Text = ""
  33.         Contador1.Text = ""
  34.     End Sub
  35.  
  36.     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
  37.         System.Diagnostics.Process.Start("http://forum.sa-mp.com/member.php?u=114385")
  38.     End Sub
  39.  
  40.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
  41.  
  42.     End Sub
  43.  
  44.     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Color1.Click
  45.  
  46.     End Sub
  47.  
  48.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  49.         Color1.Text = "Contador de Caracteres"
  50.         Color2.Text = ""
  51.         Color3.Text = ""
  52.         Timer1.Start()
  53.     End Sub
  54.  
  55.     Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  56.         Color1.Text = "Contador de Caracteres"
  57.         Color2.Text = ""
  58.         Color3.Text = ""
  59.         Timer1.Stop()
  60.         Timer2.Start()
  61.     End Sub
  62.  
  63.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  64.         Color1.Text = ""
  65.         Color2.Text = "Contador de Caracteres"
  66.         Color3.Text = ""
  67.         Timer2.Stop()
  68.         Timer3.Start()
  69.     End Sub
  70.  
  71.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  72.         Color1.Text = ""
  73.         Color2.Text = ""
  74.         Color3.Text = "Contador de Caracteres"
  75.         Timer3.Stop()
  76.         Timer1.Start()
  77.     End Sub
  78. End Class
RAW Paste Data