INFORMATICA Y OCIO

juan_soft · Publicado: Sab Ene 01, 2005 12:43 am **Título del mensaje**: dudas

hola de nuevo. tengo una duda con la que me estoy comiendo la cabeza y no le veo la solucion...:S!
tengo, en un form, un textbox.text= "Bienvenido a Visual Basic", y un command1.caption=Haga clik aqui"; lo que yo quiero es que, en condiciones normales, al hacer clik en el boron aparezca un msgbox, y, que si el texbox.text sufre alguna modificacion, que el command1.caption cambie a "Restaurar msg". Hasta aqui bien, el problema esta cuando quiero que, teniendo ese nuevo caption(el boton), al hacerle clik se restaura el text del textbox; en otras palabras: introducir una doble subrutina privada al boton, de manera que su efecto al hacerle click, dependa de si el textbox.text esta intacto, o de si sufre alguna modificacion. El codigo que tengo por ahora es este

Hackimail · Yo soy el foro Registrado: 09 Jul 2004 Mensajes: 1412

aver si no me falla

juan_soft · Publicado: Sab Ene 01, 2005 10:48 am **Título del mensaje**:

ehh...yo no soy un experto...pero creo que hasta ahi lo tengo hecho; como ya te digo, no estoy seguro pero me parece que mi duda sigue sin resolverse...:S
lo que yo queria era que, al hacer clik en el command1 con el caption="Restaurar msg", que se restaure el text box.text (que habra sufrido modificaciones) pero no se...no estoy muy seguro
de todas maneras mil gracias por el code y ahora lo probare a ver si resulta_;)
_________________

[lo que nos hace unicos son nuestras imperfecciones]
[haz lo que tengas que hacer y bien hecho estara...]

Link · Forero Registrado: 07 Sep 2004 Mensajes: 123

como siempre hackimail anda en la luna xDDDDD
jajaa mentira supongo que no se entendio muy bien la pregunta ...bueno yo no entendi a la perfeccion tu pregunta pero bueno aqui esta el code segun lo que entendi:

Private Sub Form_Load()
Text1.Text = "Bienvenido a Visual Basic"
Command1.Caption = "Haga click aquí"
End Sub
Public Sub Command1_Click()
If Command1.Caption = "Restaurar msg" Then
Text1.Text = "Bienvenido a Visual Basic"
Else
MsgBox "Bienvenido a Visual Basic"
End If
End Sub
Private Sub Text1_Change()
If Not Text1.Text = "Bienvenido a Visual Basic" Then
Command1.Caption = "Restaurar msg"
End If
End Sub

lo que hace esto es que si el mensaje del textbox es alterado el caption del command uno cambia a restaurar y al hacer click se restaura el mensaje y si no es alterado sale el caption del command es hagaclick aqui y al hacer click aparece un msgbox con la palabra bienvenido a visual basic

creo que eso era no??

saludos

Hackimail · Yo soy el foro Registrado: 09 Jul 2004 Mensajes: 1412

me falllo uuuuuuuun poquitooo tengo 1 año y tanto sin usar visual sorry
_________________
puto el que me edite los posts

juan_soft · Publicado: Dom Ene 02, 2005 9:28 am **Título del mensaje**:

muchisimas gracias!!!!! era eso; si es que da gusto preguntar_:)
y no se como no pudo ocurrirseme lo del "else"..._:s!
una pregunta, como se te ocurrio lo del else? jejejej y otra cosa (para ayudarte), me he fijado que tu usas el "if not", pero, en el caso de que vayas a poner una igualdad, puedes suprimir el "not" y, en vez del igual ("="), poner un no igual ("<>"), por ejemplo:

Link · Forero Registrado: 07 Sep 2004 Mensajes: 123

no es nada ....tambien como dices funciona mucho mejor si te sabes mas funciones y sentencias el if not sirve para varias cosas que la comparacion de diferente <> no puede hacer...pero en este caso es igual

saludos

juan_soft · Publicado: Lun Ene 03, 2005 10:56 pm **Título del mensaje**:

tienes razon, como siempre_:p si, la verdad es que yo no conocia lo de "if not", pero ya lo pille, ya.
una preguntita que no tiene nada que ver (sera la unica "diferente" que hare en este foro), es por curiosidad; de cuanto por cuanto es tu avatar? (altura x anchura pixels), que como ya dije. no volvere a mezclar peras con limones_;)
y otra cosa (esta vez de programacion), por que si queremos escribir un inputbox, por ejemplo, a dos lineas, hay que escribir:

Link · Forero Registrado: 07 Sep 2004 Mensajes: 123

a que te refieres con que de que tamaño es un avatar??? su tamaño en este foro o que quieres decir?? scratch

Ese input box esta mal hecho ...pero bueno tu pregunta era que hace la funcion chr supongo ...bueno su sentencia es la siguiente
chr(numero)
y lo que hace es devolver el caracter que le corresponde a ese numero en la tabla ascii por ejemplo chr(65) es lo mismo que A

y aqui tienes la sentencia correcta de un input box basico:

a = InputBox("introduzca datos", "titulo", "aqui van sus datos")

saludos

juan_soft · Publicado: Mie Ene 05, 2005 7:19 am **Título del mensaje**:

no si un inputbox basico ya sabia como hacerlo_:p pero lo que no sabia era lo de "chr(x)" pero asiasssss, pero es que yo lo vi escrito y me ponia algo de "escribir a 2 lineas" (o algo asi), madre mia que liante..._:s
pero bueno, muchas gracias, te lo agradezco, ya entiendo lo del "chr(x)"
hasta otra_;)
_________________

[lo que nos hace unicos son nuestras imperfecciones]
[haz lo que tengas que hacer y bien hecho estara...]

	Índice del Foro Foroz comunity :: Programación	Todas las horas están en GMT + 1 Hora Ir a página 1, 2 Siguiente
Página 1 de 2