|
|
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 - ebolo
Páginas: 1 2 [3] 4 5 ... 8
51
« en: Miércoles 2 de Febrero de 2005, 13:12 »
Hola de nuevo, mira en este link: http://www.codeproject.com/system/preventclose.aspyo no lo he probado. Para que no aparezca en la lista de aplicaciones es con App.Taskvisible=false, pero en procesos me da que es un poco complicado. Si me entero de algo lo pongo por aquí, porque el tema también me interesa. Saludos.
52
« en: Jueves 27 de Enero de 2005, 20:59 »
Hola de nuevo, Sólo quiero comentar una cosa de la función Val: Sacado de la ayuda del MSDN
Nota La función Val sólo reconoce el punto (.) como separador decimal válido. Cuando se utilizan separadores decimales diferentes, como en aplicaciones internacionales, debe utilizar CDbl para convertir una cadena a un número.
Hay que tener mucho cuidado con la función Val(), que hasta que mire la ayuda tuve bastantes problemas en un pc con separador decimal la ",". De verdad mira la ayuda del MSDN que viene muy bien explicado, el Cdec, CDbl,..... Saludos.
53
« en: Jueves 27 de Enero de 2005, 16:34 »
Hola Bezael, seguramente es porque tienes en la configuración regional, como separador decimal la"," y no el ".".
Para hacer operaciones usa la instrucción Cdec(variable).
Busca en la ayuda del MSDN por indice "CDec" que lo explica muy bien.
Saludos.
54
« en: Martes 25 de Enero de 2005, 08:45 »
Hola zeekel,
Para el 1er. punto, en vez de msgbox pon un campo de texto, donde muestre el tiempo y juega con las propiedad visible.
En cuanto al 2º punto, la verdad no sé muy bien como hacerlo. Yo comprobaría el tema de privilegios de usuario de windows. Seguramente desde ahí se pueda hacer algo.
Saludos y suerte.
55
« en: Domingo 23 de Enero de 2005, 20:00 »
Aquí dejo adjunto de donde saqué la idea.
56
« en: Domingo 23 de Enero de 2005, 19:59 »
Aquí dejo adjunto un ejemplo sobre un proyecto de VB.
57
« en: Domingo 23 de Enero de 2005, 19:57 »
Abro este post, para dejar el código fuente de un OCX para dibujar un EAN13 tal como dije.
Lo he probado en distintos pc, y siempre me ha funcionado. Se puede añadir a informes de access.
Dentro del adjunto podeis ver como se usa.
Saludos.
58
« en: Miércoles 19 de Enero de 2005, 22:39 »
Hola de nuevo y gracias una vez más. Haciendo comprobaciones en distintas pantallas, ya he podido comprobar las diferencias que hay entre 17'' y 15'' de pantalla. - En una de 15'', los twips / pixel= 15. - En una de 17 '' los twips / pixel= 12. Por lo menos en las que yo he probado. Una serie de coincidencias, casualidades y no comprobar que cada tamaño de pantalla tiene unos twips por pixel(T/P) distintos (siempre pensé que eran 15 T/P para todas las pantallas) hizo que funcionará el código para pantalla de 17'' y no de 15''. Ahora ya lo he hecho funcionar tanto para 17'' como 15'', pero por separado, me falta organizar el código para que funcione siempre. Saludos. PD.: si alguno quiere comprobar los T/P sólo tiene que poner xej en el form_Load: MsgBox "Twips / Pixel(X x Y) : " & Screen.TwipsperPixelX & " x " & Screen.TwipsperPixelY Lo dicho cuando lo tenga acabado, adjuntaré el archivo. 
59
« en: Martes 18 de Enero de 2005, 20:58 »
Gracias de nuevo Brroz. Esoty un poco desesperado con este tema. El activex me funciona bien, pero el problema que tengo es que funciona bien en pantalla de 17'.' de 15'' NO. Esto me está volviendo loco. El activex lo he hecho para poder usarlos en informes de access. Ya he conseguido que el access me lo reconozca (tuve que empezar un activex nuevo porque el que tenía hecho no había manera de que lo reconociera); lo que me está ocurriendo es eso, cuando el pc tiene una pantalla de 17'' los EAN13 en los informes salen de cine; cuando el pc tiene pantalla de 15'' las barras me las junta mucho y ya no lo lee el lector. La verdad que el tema me ha dejado de piedra, porque no sé por donde seguir. Voy a intentar primero determinar la resolución de pantalla, pero claro luego siempre dibujo líneas con pixels, con lo que estoy en la misma. No Sé.....  Si se te ocurre algo, te mando 3 - 4 ... cevezas que quieras. Saludos. PD.: si soy capaz de hacer funcionar el OCX para cualquier caso prometo dejarlo para todos con el código para quien lo quiera.
60
« en: Sábado 15 de Enero de 2005, 09:36 »
Hola a todos, quisiera saber si es posible controlar el grosor de las líneas al imprimir por papel las mismas.
Ahora lo que hago es usar la propiedad DrawWidth del objeto donde voy a dibujar líneas.
El valor 1 es un poco fino y el 2 es grueso, necesito algo entre medias, pero el valor 1.5 no vale, lo toma siempre como 2.
xej:
picure1.DrawWhidth=1
picture1.line(0,0)-(20,0)
¿Hay alguna otra manera de dibujar líneas?
Gracias por adelantado.
62
« en: Miércoles 12 de Enero de 2005, 09:05 »
Hola _vgt_, se supone que tienes activada la referencia Microsoft Activex Data 2.x Library (yo uso la 2.8). Dim RS As Recordset
Public Sub Envia_Datos_Access()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\Nerv.vgt;"
Set RS = New Recordset
RS.Open "INSERT INTO Contabilidad IN 'Z:\Nerv.vgt' SELECT * FROM [datos$] IN 'Z:\excel\datos.xls'[EXCEL 6.0;]", db, adOpenStatic, adLockOptimistic
El Dim RS as Recordset, debería estar dentro de Public Sub. Yo siempre hago la conexión, cuando es access, así: Dim db As ADODB.Connection, rs as ADODB.Recordset
Set db= New ADODB.Connection
Set rs = New ADODB.Recordset
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=Z:\Nerv.vgt"
En tú caso, como es un .vgt igual lo tienes bien hecho no lo sé. Pero sí conviene dimensionar que son variables ADODB. Para el INSERT INTO, uso: db.Execute "INSERT INTO Contabilidad IN 'Z:\Nerv.vgt' SELECT * FROM [datos$] IN 'Z:\excel\datos.xls'[EXCEL 6.0;]"
Con lo que nos ahorramos una variable 'rs Lo que pasa es que yo nunca he añadido registros desde una tabla de excel y a lo mejor se hace como tú lo tienes. Saludos y suerte.
63
« en: Martes 11 de Enero de 2005, 19:35 »
Entonces como un usercontrol es similar al form, por eso sus medidas son siempre en Twips, ya entiendo porque no me diera las mismas medidas que yo esperaba. En cuanto a lo de access, el problema es que no puedo seleccionarlo porque No aparece dentro de la tabla 'Más Controles, ni en Herramientas - Control Activex, ni en Insertar - Control Activex; pero Sí aparece dentro de la tabla de componentes en un proyecto de VB, para seleccionarlo.  Muchas gracias por todo, si se te ocurre algo será bienvenido.
64
« en: Martes 11 de Enero de 2005, 17:45 »
Gracias de nuevo, No sabía que el valor de Width y Height era siempre en Twips.
En cuanto a lo de access, así es como lo hago pero no me aparece y en principio lo tengo en system32 y no me da ningún problema al registrarlo.
Saludos.
65
« en: Martes 11 de Enero de 2005, 17:06 »
Gracias Brroz por la respuesta.
El problema que tengo si uso Usercontrol.Width ó Usercontrol.Height es que no me da las mismas medidas que el picturebox que engloba porque la propiedad .ScaleMode no es la misma:
- en el usercontrol=3 (pixel)
- en picturebox=0 (user), que viene definida por la propiedad .Scalewidth=113
He probado a cambiar cosas, pero siempre los valores de Width y Height son distintos tengan la propiedades iguales o no.
Ahora me funiona bien si el form que tiene el ocx tiene su propiedad .Scalemode=3 (pixel) si no No me dibuja bien las líneas. De todas formas ahora estoy haciendo modificaciones para que funcione independientemente del valor de esta propiedad, sea pixel, Twip.......
Otra pregunta, para que funcione un activex en access, ¿es necesario añadir algo de código al mismo?, es porque una vez creo el OCX sí consigo usarlo en proyectos de VB pero no soy capaz de insertarlo en los formularios o informes de access porque no lo encuentro por ningún lado de access.
Saludos.
66
« en: Lunes 10 de Enero de 2005, 23:52 »
Ya lo tengo, después de mucho buscar he encontrado la solución.
Hay que usar el Objeto: Extender que nos da las propiedades del OCX que insertamos: en mi caso:
Extender.Height , para saber la altura
Extender.Width, para saber anchura.
De esta forma ya he podido quitar las 2 propiedades que me había creado.
Para saber datos de propiedades del Form, usamos el objeto: Parent, xej: Parent.ScaleMode.
Saludos.
67
« en: Lunes 10 de Enero de 2005, 00:02 »
Hola a todos. Estoy haciendo un control OCX, es un código barras EAN13, que tiene sólo un picturebox y el usercontrol que lo incluye. La idea es pasarle sólo el código numérico, mediante una propiedad y que me dibuje el código de barras. Bueno hasta ahí lo he conseguido, pero he tenido que crear otras 2 propiedades de Altura y Anchura del OCX, que se las tengo que pasar desde el proyecto donde inserto el OCX. Lo que no consigo es obtener directamente las propiedades Width y Height del OCX del proyecto en que lo inserto. Es decir obtener estos valores sin pasárselos mediante Altura y Anchura. Me explico con un ejemplo: Esto es lo que yo hago y así me lo hace bien: 'El control OCX se llama MiEan13
MiEan13.Anchura = MiEan13.Width
MiEan13.Altura = MiEan13.Height
MiEan13.Número=Text1.Text
Yo lo que quiero hacer es: MiEan13.Número=Text1.Text
porque pienso que esos valores los tengo ya y no tengo porqué volverlos a asignar a ninguna propiedad, pero no hay manera. No sé, dentro del código del OCX cómo conseguir el valor de Width y Height. Perdonar por el rollo, pero no lo saco.  Saludos y gracias por adelantado.
68
« en: Martes 4 de Enero de 2005, 20:33 »
Garcias por tu información, pero estas funciones devuelven el numero de serie del volumen y lo que deseo es obtener el numero de serie del disco duro del fabricante. Si alguien sabe como hacerlo estaría muy agradecido
69
« en: Lunes 3 de Enero de 2005, 13:01 »
Hola a todos, yo lo que hago es crear una label con las mismas dimensiones y la hago transparente.
También puedes usar un commandbuton, que sí te permite poner color al texto del botón. En componentes activale el Microsoft Forms 2.0 Objects Library.
Saludos.
70
« en: Sábado 1 de Enero de 2005, 20:43 »
Hola a todos, quisiera saber como puedo obtener el número de serie del disco duro, pero no el del volumen sino el del fabricante.
Saludos y gracias de antemano.
71
« en: Viernes 31 de Diciembre de 2004, 20:30 »
Hola mindeye, la verdad yo no sé si eso se puede hacer así.
Yo no soy ningún experto con lo que no sé si se puede hacer eso con sólo una instrucción. Nunca lo he intentado pero me resulta raro.
Saludos.
72
« en: Viernes 31 de Diciembre de 2004, 19:52 »
Hola chicos, debes poner la consulta de esta forma:
"Select * From Alquiler_Venta WHERE (([Fecha] Between #12/31/2004# And #01/01/2005#))"
Debes acordarte de poner las # y la fecha en formato mm/dd/yyyy.
Saludos y feliz año para todos.
Edito, para comentarte que las sentencias SQL las puedes ver en el Access y ver si te dan los datos que tu quieres.
Para ello te creas la consulta que quieras, en vista diseño le pones en criterio por lo que quieres restringir los datos; te vas a la vista SQL y ahí tendrás la SQL que tienes que poner en el código.
En este caso, pones en criterio en la columna del campo Fecha:
entre 31/12/04 y 01/01/05
tal cual está y el propio access te lo colca como debe estar.
73
« en: Viernes 24 de Diciembre de 2004, 16:09 »
Hola juravi, prueba a ponerlo de esta forma. Set Prueba = Nothing
Prueba.Open"Update from Tabla Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Valor = '" & Valor & "',Valor = '" & Valor & "',Valor = '" & Valor & "',.. " & _
"Where ......",.......
Set Prueba = Nothing
Es decir el guión al final después del & y con un espacio entre medias. Saludos. Felices Fiestas a todos.
74
« en: Lunes 20 de Diciembre de 2004, 19:57 »
Hola a todos, todo va a depender de donde tengas conectado el lector; normalmente los actuales van conectadas al PS2 junto con el teclado, por tanto al leer el CB es como si escribieras tú y apretaras enter (como te dice Alberto).
Si lo tienes conectado al COM es un poco más complicado, porque tienes que usar el objeto MSCOMM de comunicación con el puerto serie, pero tampoco es difícil.
Saludos
75
« en: Domingo 19 de Diciembre de 2004, 17:34 »
Hola desarrollo, has probado el AnyBouton.ocx, con él puedes hacer virguerías, pero creo que no es freeware.
Saludos.
Páginas: 1 2 [3] 4 5 ... 8
|
|
|
Mostrar Mensajes
