Visual Basic - una pequeña pregunta

Life is soft - evento anual de software empresarial
 
Vista:

una pequeña pregunta

Publicado por Rodrigo (2 intervenciones) el 19/08/2007 00:08:06
quisiera que cuando se abre un formulario X al oprimir la tecla ENTER automaticamente se cierre el formulario X...

tal vez sea una pregunta tonta pero no c como hacerle soy nuevo en esto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Daunin Ortega

RE:una pequeña pregunta

Publicado por Daunin Ortega (4 intervenciones) el 19/08/2007 02:24:15
disculpa lo anterior es que tengo el mouse un poco malo... bueno lo que tienes que hacer es que en el código del formulario X escribes esto.

Private Sub Form1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 13
Form1.Hide
End Select
End Sub

donde Form1 es el nombre de tu formulario! y si deseas terminar el proyecto cambias el Form1.Hide por la sentencia End.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ME MARCA ERROR

Publicado por rodo (2 intervenciones) el 19/08/2007 20:10:10
Private Sub Form1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 13
Form.Hide
End Select
End Sub

Me marca error en la primera linea :
User defined type not defined

El formulario se llama "sindatos"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:una pequeña pregunta

Publicado por whaY (1 intervención) el 19/08/2007 23:14:44
Rodrigo pues la unica forma que veo es que coloques un textbox le das doble click, le cambias la propiedad en donde dice click en keypress y preguntas:
If KeyAscii = 13 Then
End
End If
y ya cuando lo ejecutes te queda dando enter. lo puedes volver pequeño y cambiar de color

o consulta en internet hay botones que se colocan transparentes
suerte y ojala te aya podido ayudar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Claro que marca error

Publicado por ivan (1039 intervenciones) el 19/08/2007 23:37:50
El codigo que te puso EL PRIMERO no es de VB6 sino de .NET y el segundo no sabe lo que esta diciendo, así que pones esto

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "Adios"
End
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar