|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Brroz
Páginas: 1 ... 33 34 [35] 36 37 ... 43
851
« en: Martes 23 de Septiembre de 2003, 12:55 »
¿Puede ser que la propiedad Autoredraw del segundo PictureBox sea False? Si esto es así, no dudes en ponerla a True.
Si el problema no se arregla, más tarde hago unas pruebas y a ver si te digo algo.
Chao.
852
« en: Martes 23 de Septiembre de 2003, 11:59 »
Hola pacegar Sobre la primera cuestión échale un vistazo al foro Sugerir un nuevo foro. Sobre lo segundo, mira éste enlace a otro tema del foro http://foros.solocodigo.com/viewthread.php?tid=4635 y a ver que tal. Ánimo y suerte.
853
« en: Martes 23 de Septiembre de 2003, 11:48 »
Te harían falta varias dll más que no sé cuáles son realmente (algunas empezaban por 'OI'). Sin embargo, en algún foro de estos, creo que alguien ofrecía una instalación del imaging de w2000 para xp. Échale un vistazo a este tema en este mismo foro: http://foros.solocodigo.com/viewthread.php?tid=4256Suerte.
854
« en: Martes 23 de Septiembre de 2003, 09:47 »
Hola the_garri.
Para controlar un escáner que cumpla con las especificaciones twain podrías utilizar el control ImageScan que proporciona Imaging. Si trabajas con w95, w98, NT/2000 Imaging viene incluido con el SO, para wXP ya no: lo comercializa iStream. De todas formas me temo que con este control sólo solucionarías la parte del escáner, para lo otro...
A ver si alguien indica algún otro ocx o alternativa.
Ánimo y suerte.
855
« en: Martes 23 de Septiembre de 2003, 09:36 »
Hola soco1980.
No entiendo muy bien la cuestión...
¿Te refieres a que quieres crear un grupo de proyectos?
Desde el menú 'archivo' elige 'agregar proyecto'.
¿Te refieres a que quieres compilar los dos proyectos en un solo ejecutable?
Me temo que esto no es posible (tampoco estoy seguro 100%), pero podrías incorporar todos los archivos de los dos proyectos en uno solo.
¿Quieres compilar los proyectos por separado y desde uno llamar al otro?
Llama al ejecutable mediante 'Shell' o con la Api 'OpenProcess', luego controla desde el programa al que llamas que: App.PrevInstance = False y en caso de que sea True, pues ya sabes... End.
Espero que te sirva, y si no es nada de esto lo que necesitas, tal vez podrías aclarar un poco más la cuestión.
Suerte.
856
« en: Martes 23 de Septiembre de 2003, 09:25 »
Hola BUHO.
Hay varios caminos para realizar lo que pretendes: declarando variables a nivel de módulo, añadiendo propiedades en las que 'setear' el formulario que llama,... creo que el anterior post ya te las han aclarado. De todas formas, veo que intentas que el formulario invocado actualice las propiedades del que llama...¿por qué no lo haces al revés?:
En el formulario que hace la llamada:
Private Sub Command1_Click
Dim frm1 as New MiFormulario
frm1.Show 1
MsgBox frm1.Text1.Text
Set frm1 = Nothing
End Sub
Si lo prefires puedes crear una propiedad en el formulario invocado, en vez de recuperar directamente el valor de los controles:
MsgBox frm1.PropiedadGet
Ánimo y suerte.
857
« en: Martes 23 de Septiembre de 2003, 09:03 »
Utiliza una sintáxis de este estilo:
DataEnvironment1.Recordsets(Índice_o_nombre).Requery
Suerte.
858
« en: Lunes 22 de Septiembre de 2003, 15:33 »
Prueba con algo de este estilo:
DTpicker1.value = Format(Now, "dd/mm/yyyy")
Ten en cuenta que la función Now devuelve la fecha y la hora y ese tal vez pueda ser el problema. Prueba a ver...
Suerte.
859
« en: Lunes 22 de Septiembre de 2003, 15:28 »
Hola.
Me da que las instrucciones en la base de datos se están ejecutando de forma asíncrona. Ahora mismo no sé si se puede indicar al dataenviroment que ejecute de forma síncrona/asíncrona.
Supervisa el evento ExecuteComplete del comando que utilices en el dataenvironment. Comprueba que el evento se desencadena antes de que tú cierres la aplicación. Si esto es así, tal vez el problema esté en que no refrescas algún recordset tras hacer cambios en la bd.
A ver si con esto obtenemos alguna pista.
Suerte.
860
« en: Lunes 22 de Septiembre de 2003, 15:11 »
Hola Zambito.
Asegúrate de dejar un espacio en blanco delante del carácter _ .
Suerte.
861
« en: Sábado 20 de Septiembre de 2003, 08:24 »
Hola mexican.
Hombre... cae de cajón.
Lo que debes hacer es tener todo el código que quieres que se ejecute al cargar el formulario en un solo evento Form_Load, es decir, copia todo el código, excepto las líneas que declaran las variables (Dim), de uno de los dos Form_Load dentro del otro y luego elimínalo dejando un sólo Form_Load.
Cuando se carga el formulario se desencadena el evento Load, teniendo el evento duplicado, aunque tengan código distinto, ¡vb no sabe cúal es el que tiene que usar!
862
« en: Viernes 19 de Septiembre de 2003, 18:34 »
863
« en: Viernes 19 de Septiembre de 2003, 18:14 »
Ánimo Gerard, y que no decaiga.
864
« en: Viernes 19 de Septiembre de 2003, 17:59 »
Supongo que no hará falta que os pregunte qué os parece el tema de la ley de patentes esa que quieren aprobar... A pesar de que no conozco el texto ni los detalles del contenido, por lo que he visto y oido lo que se pretende viene a ser algo así como ¡patentar las ideas!
Ante esto y esperando que alguien pueda arrojar luz sobre el tema y explicar algunos detalles, me pregunto si cuando alguna vez se me ocurra una gran idea voy a tener que ir corriendo a patentarla antes de que algún gigante del dinero me la copie y si adelante. A ver si luego vamos a tener que pagar royalties por lo que se nos pueda ocurrir.
Me temo que el tema va más allá... por ejemplo: ¿Si a alguien un día se le ocurrío que podía crear algo como lo que es este foro, va y lo patenta, todo el que quiera crear un foro (independientemente de la tecnología) tendrá que pagar derechos?
Tal vez SoloCodigo pueda explicar de qué forma le va a afectar esta ley.
Un saludo para tod@s.
865
« en: Viernes 19 de Septiembre de 2003, 17:10 »
Enhorabuena Roberto. Espero que no tengas que intervenir mucho (para moderar los ánimos, se entiende).
Suerte
866
« en: Viernes 19 de Septiembre de 2003, 17:08 »
Enhorabuena Roberto. Espero que no tengas que intervenir mucho (para moderar los ánimos, se entiende).
Suerte.
867
« en: Viernes 19 de Septiembre de 2003, 16:32 »
Hola Mexican
El código controla los carácteres que admite un TextBox llamado Text2. Se encuentra en el evento KeyPress que se desencadena cuando el usuario mantiene presionada una tecla sobre el control. Se recibe un parámetro (KeyAscii) que indica el código ascii del carácter que corresponde a la pulsación de la tecla.
En primer lugar se definen una serie de valores válidos para el textbox y se almacenan el la variable Cadena:
Cadena = "0123456789.," + Chr(8)
A continuación se usa la función Instr que devuelve la posición de un carácter en una cadena de texto. Se pregunta si el código de la tecla pulsada (KeyAscii) se encuentra entre los carácteres que se permiten (almacenados en Cadena) y en caso negativo (instr=0) se 'anula' la pulsación de la tecla (KeyAscii=0). A continuación se comprueba si el código de la tecla pulsada = 46 (carácter ,) y en caso afirmativo se sustituye por 44 (carácter .).
Suerte.
868
« en: Jueves 18 de Septiembre de 2003, 18:58 »
mexican, mexican...
Este último ejemplo de código debe de funcionar tal cúal en un formulario como el que decías. No usa ninguna matriz de controles (a diferencia del primero).
En tu formulario dices que tienes un ComboBox (supongo que llamado Combo1, si no es así, sustituye el nombre) y 15 TextBox llamados Text1, Text2, Text3,..., Text14,Text15. Muy bien. El código es para un ComandButton llamado 'Command1'. Si no lo tienes, añádelo. Copia el ejemplo (el último) en el formulario y ya está.
Mira el código hace lo siguiente:
Private Sub Command1_Click() 'Evento Click de un CommandButton llamado Command1
If Combo1.ListIndex < 0 Then 'Si no hay elemento seleccionado en el combo
MsgBox "Seleccione primero un elemento" 'Enviar un mensaje de aviso
Exit Sub 'Salir del evento
End If
Dim ctl1 As Control, int1 As Integer 'Declarar variables: una de tipo 'Control' y otra entero.
For int1 = 1 To 15 'Bucle del 1 al 15 (dices que tienes 15 textbox)
Set ctl1 = Me.Controls("Text" & int1) 'Asignar a la variable cada uno de los textbox (Text1, Text2, Text3 ....)
If Len(ctl1.Text) = 0 Then 'Si la longitud del texto del TextBox al que se refiere la variable es 0 (está vacio)
ctl1.Text = Combo1.List(Combo1.ListIndex) 'Asignar al textbox el valor del elemento seleccionado en el combo
Exit For 'y salir del bucle
End If
Next int1 'Bucle
Set ctl1 = Nothing 'Liberar referencia a objetos
End Sub
Yo creo que debería quedar claro, ¿no?
Chao.
869
« en: Jueves 18 de Septiembre de 2003, 17:47 »
Si unas veces funciona y encuentra el valor y otras veces no...¡será que el valor tal y cómo lo buscas no existe! Ten cuidado por ejemplo con los campos de texto y las mayúsculas/minúsculas, con espacios en blanco al principio o final, si estás usando LIKE en un SQL fíjate en el carácter comodín que sea el que corresponda (normalmente '%'), si son campos fecha que el formato de la fecha sea correcto, etc...
Ánimo y suerte.
870
« en: Jueves 18 de Septiembre de 2003, 17:16 »
Hola Kev.
No conozco el control del que hablas ni sé del tema, pero así a bote pronto, por los síntomas ¿No tendrás algún tipo de problema de compresión con los datos del sonido? Supongo que el control creará un archivo de sonido, si los datos son grandes, tal vez utiliza algún tipo de compresión (¿con pérdidas?) que luego no se decodifica correctamente al reproducir el sonido.
Suposiciones mías ("O falar non ten cancelas").
Suerte.
871
« en: Jueves 18 de Septiembre de 2003, 16:36 »
Hola mexican.
Imos ver...
El código de ejemplo lo pongo con el fin de que tu lo analices, entiendas y ADAPTES a tus propósitos. El único motivo del código que va en Form_Load es añadir al combo datos de prueba para el ejemplo.
Lo que está claro es que NO TE VALDRÁ DE NADA PEGAR EL CÓDIGO DE EJEMPLO TAL CÚAL. Tienes que adaptarlo a lo que tú necesitas.
De todas formas, como veo que tienes verdaderos problemas para compreder los ejemplos (incluso a pesar de la explicación de Chiaravel), sin que sirva de precedente y con permiso de todos, te adjunto el código que necesitas.
********************************************
Private Sub Command1_Click()
If Combo1.ListIndex < 0 Then
MsgBox "Seleccione primero un elemento"
Exit Sub
End If
Dim ctl1 As Control, int1 As Integer
For int1 = 1 To 15
Set ctl1 = Me.Controls("Text" & int1)
If Len(ctl1.Text) = 0 Then
ctl1.Text = Combo1.List(Combo1.ListIndex)
Exit For
End If
Next int1
Set ctl1 = Nothing
End Sub
*********************************************
Por favor, intenta comprender el ejemplo para que puedas aprender por ti mismo.
Ánimo y suerte.
872
« en: Jueves 18 de Septiembre de 2003, 15:43 »
Vale, vale... sólo por saber si te funciona ok.
873
« en: Jueves 18 de Septiembre de 2003, 14:51 »
Pues ya sabes franklin... a practicar. Empieza realizando cosas sencillas para familiarizarte, con paciencia, la ayuda del MSDN y tal vez algún libro, ya verás que este lenguaje tiene una curva de aprendizaje muy acusada.
Si tienes dudas, ya sabes que en este foro hay muy buena gente dispuesta a echar una mano.
Ánimo y suerte.
874
« en: Jueves 18 de Septiembre de 2003, 14:45 »
Páginas: 1 ... 33 34 [35] 36 37 ... 43
|
|
|
Mostrar Mensajes
