David_91

Hola a todos amigos taringueros, despues de mi gran ausencia por el trabajo, jejejeje, decidí crear un pequeño post que a lo mejor le servirá a muchos practicante de la programación como yo. Ya que estoy iniciando en el mundo de la programación les traigo el codigo siguiente que es para validar un textbox o caja de texto para que solo acepte numeros... ok. empecemos, supongamos que tenemos un textbox el cual se llamara text1, llamaremos a la siguiente funcion, keypress y escribimos el siguiente codigo: Private Sub Text1_KeyPress(KeyAscii As Integer) strvalid = "1234567890" KeyAscii = Asc(Chr(KeyAscii)) If (KeyAscii > 10) Then If InStr(strvalid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End If End Sub Ahora solo presionen F5 e intenten escribir palabras en la caja de texto, jijijijii, fácil pero se me dificulto encontrar una forma de hacer esto, así que adelante con el mundo de la programación. Bueno amigos eso ha sido todo por hoy. David_91

Hola a todos amigos taringueros, hoy les traigo un pequeñísimo post pero que a lo mejor pueda ser muy útil... Les traigo el código para cargar una imagen en un pictureBox mostrar la imagen en dicho picturebox y a la vez guardar la imagen en un determinado directorio. Acá el código: Private Sub picture1_Click() Dim archivo As String, ruta As String cmdlgfoto.Filter = "Imagenes|*.jpg|*.bmp|*.gif" cmdlgfoto.ShowOpen archivo = cmdlgfoto.FileName picture1.Picture = LoadPicture(archivo) ruta = "Cocuments and SettingsUsuarioEscritorio" & cmdlgfoto.FileTitle SavePicture picture1.Picture, ruta End Sub es básico, pero espero que les sirva. pásate por mi post Dude_91