| Pregunta: | 22365 - PROBLEMAS CON EL SHOW DEL FORM EN MS EMBEDDES VISUAL TOOLS 3 |
| Autor: | jesus suso gil |
| El problema lo tengo realizando un programa para Pocket PC y utilizando para ello el Ms eMbedded Visual Tools 3.0. Pero la causa del mismo puede ser de carácter general. Para verificar el funcionamiento del programa utilizo el emulador correspondiente que viene en la misma aplicación, no una máquina Pocket PC. Utilizando el procedimiento form.show vbmodal o bien form.show vbmodelless el comportamiento del formulario al que llamo siempre es no modal y quiero que sea modal. Como síntoma decir que la ayuda de contexto que va apareciendo conforme escribes desaparece en cuanto escribo "form.show" seguido de un espacio en blanco. Es como si el software no esperara mas argumentos al respecto. ¿Alguien ha probado esto en Ms eMbedded Visual Tools 3.0. ?, ¿Le funciona o lo le funciona ?. ¿pudiera ser que el problema fuera de alguna librería que tengo defectuosa ?. ¿Podría ser problema del emulador? Por si acaso he desinstalado el Ms eMbedded Visual Tools 3.0. y lo he vuelto a instalar pero el problema persiste. Por favor, os agradeceré una ayuda al respecto. Llevo ya varios días atascado con esto y no hay manera. GRACIAS | |
| Respuesta: | Rodrigo Osorio Hernandez |
| Lamento no poder ayudarte, por que a mi me ocurrio el mismo Problema o similar , al parecer el Visual Embedded esun poco restringido... ahora mi problema personalmente lo solucione de la siguiente manera: ---Lo que puedes hacer es crear un Objeto Tabs donde cada paleta haga referencia a un Frame (El Frame es tu pantalla.... ahora) y el tratamiento seria Habilitando y deshabilitando los Frames... dependiendo del Indice Seleccionado... Ejem: Creas el Tabs = Tabs_EQ Asignas True al Indice deseado Tabs_EQ.TabS(1).Selected Private Sub Tabs_EQ_Click() If Tabs_EQ.TabS(1).Selected = True Then FrmIngreso.Visible = True 'pones visiblela que quieres FrmConsulta.Visible = False FrmXXXXX.Visible = False ElseIf Tabs_EQ.TabS(2).Selected = True Then FrmIngreso.Visible = False FrmConsulta.Visible = True 'pones visible la que quieres FrmXXXXX.Visible = False ElseIf Tabs_EQ.TabS(3).Selected = True Then FrmIngreso.Visible = False FrmConsulta.Visible = False FrmXXXXX.Visible = True 'pones visible la que quieres End If ------------------------------------------------------------------------------------- En otra ocación yo necesitaba simular un teclado ya que el que proporciona el Pocket Pc no era muy bueno... entonces cree una nueva pantalla y no encontraba la forma de que el Show, fuera a la nueva pantalla se ingresaran los datos y volviera el control del Doble Click, como cosa rara este llamaba a la nva pantalla pero inmediatamente seguia con la instrucciones suiguientes del doble Click, en resumida no me servia para mi proposito, lo que hice fue que, como última instruccion del doble Click fuera la llamada a la otra pantalla (Show), y cree variable Publicas de tipo Objeto y asi pude saber cual de los Text box.. me habia llamado a la nueva pantalla. | |