viernes, 1 de octubre de 2010

Una buena página de la temática

www.elguille.info
Enviado desde mi BlackBerry de Movistar

miércoles, 29 de septiembre de 2010

Prueba

Probando publicaciones vía móvil.

Enviado desde mi BlackBerry de Movistar

viernes, 10 de septiembre de 2010

Try Catch para manejar errores en la Aplicación

Con este código pueden manejar el error que pueda producir algún método, Tales como error al conectar a internet un archivo invalido, etc.

        Try
Process.Start(TextBox1.Text)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Debajo de Try ponen el código que van a utilizar y debajo de Catch ex As Exception Pueden poner un mensaje personalizado o simplemente el error como tal poniendo entre paréntesis (ex.Message)

Crear Messagebox Avanzados

Esto es de gran ayuda cuando tenemos que crear algún tipo de selección tipo “Si” o “No” sin tener que crear otro form para ello.
Este código va dentro de el método que lo ejecutara, Button, FormClosing.etc

        If MessageBox.Show("whatever", "whatever", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
MessageBox.Show("you clicked yes")
Else
MessageBox.Show("you clicked no")
End If

Eso es solo un Ejemplo lo pueden modificar como quieran, ese es uno Simple de Si y No, Si cliqueas Yes hace tal cosa, si no, otra cosa. Como ven se usan los IF y Else que puse en otra publicación.


De todas Formas les dejo el Video por si no entendieron muy bien.



jueves, 9 de septiembre de 2010

Navegador WEB VB.NET

Bueno aquí les voy a explicar como crear un Navegador WEB en vb.net muy sencillo :P
Primero tienen que importar el Control WEBBROWSER y ubicarlo donde se vera el Contenido de la pagina.
Luego crean un Textbox y Seis Botones que serán, El de “Ir”, “Atrás”, “Adelante”, “Actualizar”, “Detener”. “Inicio”

Para el Botón de Ir:


WebBrowser1.Navigate(TextBox1.Text)


Para el Botón de Atrás:

WebBrowser1.GoBack()


Para el Botón de Adelante:

WebBrowser1.GoForward()

Para el Botón de Actualizar:


WebBrowser1.Refresh()

Para el Botón Detener:

WebBrowser1.Stop

Para el Botón Inicio:

WebBrowser1.GoHome()

Ahora en el Evento “DocumentCompleted” de WebBrowser1 Vamos a poner lo siguiente:

TextBox1.Text = WebBrowser1.Url.AbsoluteUri

Esto lo pueden poner para que al teclear “ENTER” El navegador realice automáticamente la búsqueda.


If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled =
True
WebBrowser1.Navigate(TextBox1.Text)
End If



También para que en el Navegador se muestre un texto con el proceso que se esta ejecutando, Abriendo determinada pagina web etc.

Pueden poner este código (Necesitan crear un Label1 y un Timer1)


Luego dan Doble Click al Form1 y escriben:

Timer1.Start

Luego dan doble click al icono de Timer1 y escriben lo siguiente:

Label1.Text = WebBrowser1.StatusText

Bueno con todos estos códigos podrán hacer un buen navegador solo es cuestión de modificar algunas cosas para hacerlo aun mejor :P

Si de todas maneras lo han hecho y no les ha quedado muy bien pueden bajarse uno que yo hice desde Aquí









miércoles, 8 de septiembre de 2010

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.

Resaltar contenido de RichTextBox

Con este code pueden Resaltar el texto seleccionado de un RichTextBox como en mi App “Bloc de Notas”

que esta en la sección Descargas :P

RichTextBox1.SelectionBackColor = System.Drawing.Color.Yellow

Para quitar todos los Resaltados

RichTextBox1.SelectAll()
RichTextBox1.SelectionBackColor = System.Drawing.Color.White

Y si quieren borrar el Resaltado solamente de un Texto Seleccionado

TextBox1.SelectionBackColor = System.Drawing.Color.White

Pueden probar varios colores que no sean muy fuertes para que no sean muy llamativos y sea difícil de leer.


Eso es todo :P

lunes, 23 de agosto de 2010

Source Code de Pagina Web

Bueno aquí les dejo un código para visualizar el código fuente de una pagina web mediante VB.NET

Pueden poner esto en un Button:

        Try
Dim
request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox1.Text)
Dim response As System.Net.HttpWebResponse = request.GetResponse()

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim sourcecode As String = sr.ReadToEnd()
TextBox2.Text = sourcecode
Catch ex As Exception
MessageBox
.Show("Invalid Url")
Return
End Try

También deben crear 2 TextBox uno para introducir la “Url” y el otro para mostrar el código fuente de la pagina.


Si quieren bajar el Proyecto

viernes, 20 de agosto de 2010

Haciendo Modificaciones :)

No voy a poner nada en el Blog por ahora, estoy editando todo el código para agregarle nuevas cosas :D}

Tengo ganas de Quitar el Footer de la plantilla pero me pueden cerrar el Blog xD, No lo hare jajajaja!

Desde hoy voy a empezar a publicar desde el Windows Live Writer :D