viernes, 1 de octubre de 2010
miércoles, 29 de septiembre de 2010
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
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 Adelante:
Para el Botón de Actualizar:
WebBrowser1.Refresh()
Para el Botón Detener:
WebBrowser1.Stop
WebBrowser1.GoHome()
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
Pueden poner este código (Necesitan crear un Label1 y un Timer1)
Timer1.Start
Label1.Text = WebBrowser1.StatusText
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.
- If TextBox1.Text = “Hola” Then
- Messagebox.Show (“Hola”)
- 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.
- If TextBox1.Text = “Hola” Then
- Messagebox.Show (“Hola”)
- Else
- Messagebox.Show (“Chao”)
- 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
- My.Computer.Network.DownloadFile("url", TextBox1.Text)
- 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
- Try Catch
- 'Código
- Dim Ex As Exception
- Messagebox.Show “Error”
- 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.
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