Mensajes

  gracias vertex cuando pueda le hecho un ojo, ahorita estoy haciendo una aplicacion interesante 

No te creas seba yo lo deje en un Cyber Café y saque mas de 15 claves!

a lo mejor son Gnomos o Extraterrestres 

Si yo se que es api xD dejame checar a ver

Algun tip o tour inicio para entender los comandos de la api del msn?  

Tengo pensado en hacer una especie de Kicker para sacar contactos.

Help please  

Yo me apunto! al diseño y parte del codigo 

si bueno raul lo que pasa es que yo tambien soy medio nuevo en esto y no se mas formas de guardar cosas jajajaja

Edito_

No se han dado cuenta que casi nunca me desconecto? xD

Si pero yo el unico metodo de guardado que se es guardarlo en un .txt que es un texto normal, pero solo con RichTextBox no con TextBox Normal, a lo mejor los users de aca saben algo.

Con un RichTextBox para guardar seria, Añadir el SaveFileDialog y en el Codigo del Boton Guardar "Si es  que lo hay" poner esto:

Código (vbnet) [Seleccionar] Expandir

  If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Guardado" + SaveFileDialog1.FileName

y para cargarlo o abrirlo ps, entonces agregar un OpenFileDialog y pones esto en el boton "Si es que lo hay":

Código (vbnet) [Seleccionar] Expandir

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
       Form1.ActiveForm().Text() = "Abierto" + OpenFileDialog1.FileName

Salu2!

Tranquilop para eso estamos  

y de paso te dejo el ejemplo con notas del 1 al 10  



Descargar:

Programa

Codigo Fuente

Tambien puedes usar if

Código (vbnet) [Seleccionar] Expandir

If TextBox1.Text = "10" Then
TextBox2.Text = "Eres un Crack"

ElseIf TextBox1.Text = "9" Then
TextBox2.Text = "Te queda muy poco"
End If

es mas largo pero creo que servira no?

Otra cosa:

Si quieres que solo se puedan ingresar numeros, entonces haz esto:

Primero crea 1 Modulo y en el codigo introduce esto:

Código (vbnet) [Seleccionar] Expandir

  Function SoloNumeros(ByVal Keyascii As Short) As Short
       If InStr("1234567890", Chr(Keyascii)) = 0 Then
           SoloNumeros = 0
       Else
           SoloNumeros = Keyascii
       End If
       Select Case Keyascii
           Case 8
               SoloNumeros = Keyascii
           Case 13
               SoloNumeros = Keyascii
       End Select
   End Function

Esto va debajo de Form1:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Inherits System.Windows.Forms.Form
   Public KeyAscii As Short

Ahora Pon en el Codigo de Tu TextBox, ve donde dice Declarations, y ponlo en el evento Keypress y pon esto;

Código (vbnet) [Seleccionar] Expandir

       Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
       keyascii = CShort(SoloNumeros(keyascii))
       If keyascii = 0 Then
           e.Handled = True
       End If

Saludos

Si y le acomode unas cosillas, por ejemplo cuando no se ingresaba email aparecia la ventana de error pero abajo decia Form1 y con el icono predeterminado ese de los cuadros naranjas