| Usuario |
Dos dudas (1ª - Ventanas, 2ª - Str... |
javimartinez
1 Mensaje(s)
|
| Enviado - 19/5/2003 |
| |
Hola a tod@s
Estoy realizando el proyecto de fin de carrera con vb.net, lenguaje con el que programo por primera vez, así que me han surgido estas dos dudas:
En primer lugar, quería saber como puedo recoger desde el código situado en el esterior de una ventana el resultado de esta, es decir, en mi programa (en mitad del código) muestro una ventana en el que el usuario debe elegir una serie de opciones y presionar aceptar. Una vez q hay presionado aceptar el código que ha llamado la ventana debe saber que opción ha elegido:
--------------.
.
.
miVentana = new MiVentana()
miVentana.show()
<<obtener el resultado después de q el usuario presione Aceptar>>
.
.
.
------------------------------------
¿Como se podría hacer esto?
El otro problema es que necesito poder pasar la primera letra de un String (solo la primera) a mayúscula en el caso de que no lo sea. He estado mirando entre los métodos de la clase String pero no veo ninguno que sirva para esto, no se si porque no existe o porque no consigo encontrarlo.
¿Alguien sabe como se podría hacer o alguna funcioncilla que lo haga?
Gracias y un saludo |
| |
|
Desconocido
|
| Enviado - 19/5/2003 |
| |
Hola
la primer duda se soluciona mediante variables en un modulo
de acuerdo a lo que elija el usuario pasale el dato a la variable del modulo (no de clase) "modulo general" y luego cuando carges la siguiente ventana lee la variable del modulo
la segunda no te compliques la vida calculo que vb net debe tener en el text un evento llamado keyprees o keycode
captura la tecla pulsada y transformala en mayuscula no te olvides de generar una señal para que ingrese una solo ves ej:
'*suponiendo que el caracter sea la letra "a"
inicia un nuevo proyecto que contenga un text
y en la seccion general pega el siguiente còdigo
luego ejecutalo
Dim señal As Integer
Private Sub Form_Load()
señal = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If señal = 0 Then
If KeyAscii = 97 Then
KeyAscii = 65
señal = 1
End If
End If
End Sub
y en forma general para cualquier letra
Dim señal As Integer
Private Sub Form_Load()
señal = 0
End Sub
Private Sub Text1_Change()
If señal = 0 Then
Text1 = UCase(Text1)
SendKeys "{end}", True
señal = 1
End If
End Sub
cualquier duda mi direccion es [email protected]
|
| |
|
Desconocido
|
| Enviado - 20/5/2003 |
| |
Hola
Muchas gracias por responder a mi mensaje del foro,
aunque no debí de explicarme bien, ya que no es lo que
respondes lo que deseo hacer.
En la primera duda (recoger el resultado de una
ventana) no puedo hacer lo que comentas, ya que
después no hay más ventanas ni nada. El funcionamiento
es el siguiente:
1º voy leyendo de una estructura de datos que tengo y
escribiendo en un fichero dependiendo de los
diferentes datos.
2º en alguna ocasión, en un nodo de los datos,
necesito que el usuario seleccione entre varias
opciones, por lo que muestro la ventana y necesito
esperar por la respuesta.
3º una vez obtenida sigo con el código, sin mostrar ni
ventana ni ná
----------------
.
.
.
if condición then
miventana = new MiVentana()
miventana.show()
resultado = miventana.obtenerResultado()
if resultado = variable then
.
.
.
.
.
-----------------
Respecto a la segunda duda (poner la primera letra de
un string en mayúscula) pos me pasa lo mismo, el
string no lo leo de teclado, si no que lo obtengo de
la estructura de datos de golpe (cadena =
noseque.name.toString() ), por lo tanto no me sirve tu
método.
Gracias y un saludo :) |
| |
|
|
|
Microsoft Certified