Usando IF y Else IF en VB.NET

Para los que saben ingles se habrán dado cuenta que IF es como cuando uno dice, Si tal cosa es…

Para que se usa IF y Else IF en VB.NET? Pues como su termino indica es para referirse a la accion de algun Componente de la aplicacion, aqui un ejemplo rápido.

1. If TextBox1.Text = “Hola” Then
2. Messagebox.Show (“Hola”)
3. End If

Que dice hay? los que hablan ingles Obvio se dieron cuenta es sencillo, Hay claramente dice.

Si el Texto del “TextBox1” es Igual a “Hola” ósea si el Texto es Hola, Entonces “Then” Ejecutar tal Cosa yo he puesto que se abra un mensaje diciendo Hola.

y para Terminar esta serie de Ordenes escribimos “End If”

Ahora ya se que es IF pero que es Else If?

Bueno pues Else If no es mas que lo contrario a lo que sucederá con IF Ejemplo.

1. If TextBox1.Text = “Hola” Then
2. Messagebox.Show (“Hola”)
3. Else
4. Messagebox.Show (“Chao”)
5. End If

Es lo mismo del primer código pero la única diferencia es que aquí dice, Si el texto del Textbox1 es Hola entonces mostrar tal mensaje, pero Si no es entonces mostrar mensaje “Chao”

Ven? es muy sencillo manejarse con el VB.NET sobretodo para los que hablan ingles aunque sea machucándolo xd

 

Descargar y ejecutar archivo VB.NET

Bueno con este code pueden descargar el contenido de un enlace y ejecutarlo, para eso tienen que crear 1 TextBox y un Botón

Luego en el Botón ponen este código

1. My.Computer.Network.DownloadFile("url", TextBox1.Text)
2. Process.Start("C:\downloadedfile.exe")

En el Textbox introducen la URL para descargar el archivo tiene que ser DD “Direct Download” Descarga directa, y tiene que tener http:// porque si no, les va a dar error a cada rato.

También pueden saltarse el error Introduciendo 

1. Try Catch


2. 'Código


3. Dim Ex As Exception


4. Messagebox.Show “Error”


5. End try

Aplicación para Enviar E-Mails desde VB.NET

Bueno pues eso, como hacer una App para enviar correos Vía el Servidor SMTP de GMAIL si todavía no tienen un cuenta Gmail créense una aquí.

Ahora voy con el código :P

Primero importan esto

Imports System.Net.Mail

Después en el Botón o en lo que quieran para enviar el Correo ponen este otro

   Dim Mail As New MailMessage
        Mail.Subject = "test email"
        Mail.To.Add(TextBox2.Text)
        Mail.From = New MailAddress(TextBox2.Text)
        Mail.Body = TextBox1.Text

        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
        SMTP.Port = "587"
        SMTP.Send(Mail)

Deben Crear 3 TextBox también.

Bajar Visual Studio

Aquí les dejo un video donde explican como bajarse el Visual Studio 2008

Novatos en VB.NET

Bueno aquí les dejo un video para los que están empezando a programar en VB.NET y no saben nada de nada :P

Y el código que va en el Botón es este

  MessageBox.Show("Hello World", "Titulo del Mensaje")

Otra cosa

Cuando empiece a publicar mas cosas voy a dividir las Categorías en Etiquetas :P Por cierto si hay alguien que me quiera ayudar a publicar que me escriba al Mazinger que yo no tengo tiempo para esto xd

Aumentar valores en un Label

Bueno con este code pueden Aumentar el valor de un label en este ejemplo se usara para contar los Caracteres de un Texto y la cantidad de palabras que contiene.

Para contar los Caracteres de un TextBox en un Label

Label1.Text = CStr(Len(TextBox1.Text))

Y para contar las palabras de un TextBox en un Label es Así

Dim i As Integer
        Dim Cadena As String
        con = 1
        Cadena = TextBox1.Text
        For i = 1 To Len(Cadena)
            If Mid(Cadena, i, 1) = " " Then
                con = con + 1
            End If
        Next
        Label1.Text = CStr(con)

Ambos codes los pueden poner en el Evento TextChanged de los TextBox o RichTextBox, o si quieren lo pueden poner en un Timer.