DesarrolloVB : Mensajes : 13719-13748 de 28174

Mensajes: Mostrar resúmenes de los mensajes (Agrupar por tema) Clasificar por fecha

#13748 De: Alberto Vernieri <alberto_vernieri@...>
Fecha: Lun, 1 de Mar, 2004 12:55 pm
Asunto: Re: [VB] Active Skin OCX y Skin Library alberto_vern...
Sin conexión
Enviar correo

Hola!

Solo entra a la página:

http://ar.groups.yahoo.com/group/DesarrolloVB/files/

Y abajo de todo hay un link llamado "Agregar archivo".

SIgues las instrucciones y listo...

Aunque supongo que igual tendremos que esperar que Pablo haga algo de espacio, porque con el manual de Developers Guide de .NET, en el área de archivos ya no cabe ni un alfiler de punta...

Saludos

Alberto

<hectorfidalgo@...> wrote:

Les informo que dado mi inexperiencia en como "subir" el Ocx de referencia para que aquellos que lo deseen puedan tenerlo, ya solicite informacion al administrador de grupo de como hacerlo.

No obstante si alguno me indica lo hare a la brevedad, asi todos estaremos buscando mas librerias de pieles y solamente yo

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

Responder | Reenviar | Mensajes en este tema (3)

#13747 De: "Pablo Daniel Balegno" <p_balegno@...>
Fecha: Lun, 1 de Mar, 2004 4:19 am
Asunto: Re: [VB] Skins Librery ActiveSkin Ocx p_balegno
En línea
Enviar correo

Hola, me lo podrias facilitar por favor ese activex hace mucho que estoy buscando algo asi, no te lo queria pedir para no hacer mas extensa este pedido como los demas desde ya muchas gracias y perdon por las molestias

a p_balegno@...

----- Original Message -----

From: hector Fidalgo

To: desarrollovb@...

Sent: Friday, February 27, 2004 6:52 PM

Subject: [VB] Skins Librery ActiveSkin Ocx

Hola

Estoy utilizando el ocx activeskin y me agrada el maquillaje que le da a los forms que uso. El pequeño contratiempo que se me presenta es la escasez de pieles de la que dispongo. quizas alguien me pueda pasar algunas y/o algunlugar donde obtenerlas o un soft editor de ellas para crearlas?

Gracias

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (6)

#13746 De: "Victor" <victor_va@...>
Fecha: Lun, 1 de Mar, 2004 3:40 am
Asunto: OFF TOPIP Discos Maxtor lobito_tico
Sin conexión
Enviar correo

Saludos amigos, disculpen el Off Topic, necesito de su ayuda tengo un disco Maxtor de 40 Gigas que tiene los primeros 5 Gigas Dañados, he intentado con el Disk Manager de Maxtor pero lo que necesito es decirle que empieze en el cilindro 100 y no el 0y este programa no me permite hacer esto, para omitir esa parte del disco dañada, cualquier consejo se los agradecería

Gracias de Antemano

Victor

Responder | Reenviar | Mensajes en este tema (5)

#13745 De: hector Fidalgo <hectorfidalgo@...>
Fecha: Dom, 29 de Feb, 2004 2:04 pm
Asunto: Active Skin OCX y Skin Library hectorfidalgo
Sin conexión
Enviar correo

Les informo que dado mi inexperiencia en como "subir" el Ocx de referencia para que aquellos que lo deseen puedan tenerlo, ya solicite informacion al administrador de grupo de como hacerlo.

No obstante si alguno me indica lo hare a la brevedad, asi todos estaremos buscando mas librerias de pieles y solamente yo

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

Responder | Reenviar | Mensajes en este tema (3)

#13744 De: "Roberto Quiroz Calle Roberto Quiroz Calle" <rqc@...>
Fecha: Dom, 29 de Feb, 2004 1:49 pm
Asunto: Re: [VB] Skins Librery ActiveSkin Ocx rquirozcalle
Sin conexión
Enviar correo

Si no te es molestia podrias compartir el OCX que usas
envialo a mi correo rqc@...
de antemano gracias

roberto quiroz calle


--

En la fecha Fri, 27 Feb 2004 19:16:45
  Alvarez Lucas escribió:
>Me podrias pasar ese ocx porque es lo que he andado buscando desde hace rato,
si no es mucha molestia,.
>Envialo a alvarezlucas@...
>Saludos
>
>  ----- Original Message -----
>  From: hector Fidalgo
>  To: desarrollovb@...
>  Sent: Friday, February 27, 2004 6:52 PM
>  Subject: [VB] Skins Librery ActiveSkin Ocx
>
>
>  Hola
>
>        Estoy utilizando el ocx activeskin y me agrada el maquillaje que le da
a los forms que uso. El pequeño contratiempo que se me presenta es la escasez de
pieles de la que dispongo. quizas alguien me pueda pasar algunas y/o algunlugar
donde obtenerlas o un soft editor de ellas para crearlas?
>
>                                   Gracias
>
>
>
>
>------------------------------------------------------------------------------
>   ¿Buscás un auto?
>  Encontralo en Yahoo! Autos
>  ¡Más de 4000 clasificados todos los días!
>  Usados - 0 km - Vendé el tuyo
>
>  ------------------------------
>  DesarrolloVB:
>  Desarrollo de Software en Microsoft Visual Basic
>  ------------------------------
>  Direcciones de la lista:
>  Publicar un mensaje: DesarrolloVB@...
>  Suscribirse........: DesarrolloVB-Subscribe@...
>  Desuscribirse......: DesarrolloVB-Unsubscribe@...
>  Administrador......: DesarrolloVB-Owner@...
>  Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB
>  Página de la lista
>  de la plataforma
>  Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
>  ------------------------------
>  http://www.navegana.com/dinero/chanzes.html
>
>
>
>------------------------------------------------------------------------------
>  Yahoo! Grupos Enlaces
>
>    a.. Para visitar tu grupo en Internet, vé a:
>    http://ar.groups.yahoo.com/group/DesarrolloVB/
>
>    b.. Para cancelar tu suscripción a este grupo, enviá un mensaje a:
>    DesarrolloVB-unsubscribe@...
>
>    c.. El uso de Yahoo! Grupos se rige por las Condiciones del servicio de
Yahoo!.
>
>



___________________________________________________
Celebra este San Valentín con el amor de tu vida... Amor@Terra te conecta con
personas que comparten tus intereses y en tu área ¡Mira fotos, lee perfiles y
encuentra por fin el amor verdadero!
http://www.terra.com/amor

Responder | Reenviar | Mensajes en este tema (6)

#13743 De: "Celso Comesaña $Euroinfor$" <celsoeuro@...>
Fecha: Dom, 29 de Feb, 2004 1:08 pm
Asunto: Modificar listado de Crystal en tiempo de ejecucion celsoeuro@...
Enviar correo

Hola a todos los listeros.
Tengo unos listados de facturas y albaranes que necesito modificar (Cambiar campos de sitio, ponerlos visibles o no ,cambiar la longitud etc) en tiempo de ejecucion para adaptar los formatos a cada cliente.
Hay alguna manera de realizar esto.
Muchas Gracias a todos

Responder | Reenviar | Mensajes en este tema (1)

#13742 De: "el_rookie8" <el_rookie8@...>
Fecha: Sáb, 28 de Feb, 2004 5:21 pm
Asunto: Manejo de arreglos el_rookie8
Sin conexión
Enviar correo

Hola! Necesito llenar un arreglo de bytes que contenga 256K de
casillas, quisiera saber si se puede realizar en VB 6.0. Si la
respuesta es afirmativa, por favor diganme como? es parte de mi
trabajo de grado.Gracias

Responder | Reenviar | Mensajes en este tema (1)

#13741 De: Oscar Gudiño <osgu2003@...>
Fecha: Sáb, 28 de Feb, 2004 4:41 pm
Asunto: Crystal Report osgu2003
Sin conexión
Enviar correo

Necesito conectar una BD (Interbase) usando iboledb a crystal report.

Si alguien lo hiso necesito que me digan como, o como deberia hacerlo de otro modo.

Desde ya muchas gracias

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

Responder | Reenviar | Mensajes en este tema (28)

#13740 De: "Ju@n ©o®tés" <Juco@...>
Fecha: Sáb, 28 de Feb, 2004 2:06 pm
Asunto: Re: [VB] TDBlist Juco@...
Enviar correo

Creo que recorriendo la coleccion Bookmarks resuelves el problema de conocer cuales son los marcados....

----- Original Message -----

From: Bernardo Boero

To: DesarrolloVB@...

Sent: Friday, February 27, 2004 3:27 PM

Subject: [VB] TDBlist

Amigos :

Tengo un TrueDBlist (la version 8.0), de Component One, en la cual esta activada la opción Multiple Select, mi pregunta es cómo hago para que me mande los textos de los ítems seleccionados (todos a la vez), ya que siempre me muestra el último que seleccioné

Alguien puede darme una manito

Un abrazo

Bernardo

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (2)

#13739 De: carlos garces <carlos-garces@...>
Fecha: Sáb, 28 de Feb, 2004 11:12 am
Asunto: Re: [VB] OT: Ver videos en Pentium I -233 - 64 de RAM carlosgarces...
Sin conexión
Enviar correo

La mejor opcion es MOVIX (http://movix.sourceforge.net)
Lo he probado en un AMD K6 a 350 y no esta nada mal.
Un saludo
carlos garces, carlos-garces@...

Responder | Reenviar | Mensajes en este tema (1)

#13738 De: "D4RK533D" <dhm@...>
Fecha: Sáb, 28 de Feb, 2004 4:38 am
Asunto: Re: [VB] Skins Librery ActiveSkin Ocx php3k1
Sin conexión
Enviar correo

Sería muy interesante, Hector, que puedas subir a la seccion de archivos de la lista, ese OCX, si es que quieres compartirlo con todos. Antes de que todos y cada uno de los integrantes de la lista comience a pedirlo individualmente....

Salu2.

----- Mensaje original -----

De: Alvarez Lucas

Para: DesarrolloVB@...

Enviado: Viernes, 27 de Febrero de 2004 07:16 p.m.

Asunto: Re: [VB] Skins Librery ActiveSkin Ocx

Me podrias pasar ese ocx porque es lo que he andado buscando desde hace rato, si no es mucha molestia,.

Envialo a alvarezlucas@...

Saludos

Responder | Reenviar | Mensajes en este tema (6)

#13737 De: "Victor" <victor_va@...>
Fecha: Sáb, 28 de Feb, 2004 4:31 am
Asunto: Re: [VB] Skins Librery ActiveSkin Ocx lobito_tico
Sin conexión
Enviar correo

podrias compartir tu ocx, gracias

----- Original Message -----

From: Alvarez Lucas

To: DesarrolloVB@...

Sent: Friday, February 27, 2004 4:16 PM

Subject: Re: [VB] Skins Librery ActiveSkin Ocx

Me podrias pasar ese ocx porque es lo que he andado buscando desde hace rato, si no es mucha molestia,.

Envialo a alvarezlucas@...

Saludos

----- Original Message -----

From: hector Fidalgo

To: desarrollovb@...

Sent: Friday, February 27, 2004 6:52 PM

Subject: [VB] Skins Librery ActiveSkin Ocx

Hola

Estoy utilizando el ocx activeskin y me agrada el maquillaje que le da a los forms que uso. El pequeño contratiempo que se me presenta es la escasez de pieles de la que dispongo. quizas alguien me pueda pasar algunas y/o algunlugar donde obtenerlas o un soft editor de ellas para crearlas?

Gracias

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (6)

#13736 De: "Alvarez Lucas" <alvarezlucas@...>
Fecha: Vie, 27 de Feb, 2004 10:16 pm
Asunto: Re: [VB] Skins Librery ActiveSkin Ocx alvarezlucas@...
Enviar correo

Me podrias pasar ese ocx porque es lo que he andado buscando desde hace rato, si no es mucha molestia,.

Envialo a alvarezlucas@...

Saludos

----- Original Message -----

From: hector Fidalgo

To: desarrollovb@...

Sent: Friday, February 27, 2004 6:52 PM

Subject: [VB] Skins Librery ActiveSkin Ocx

Hola

Estoy utilizando el ocx activeskin y me agrada el maquillaje que le da a los forms que uso. El pequeño contratiempo que se me presenta es la escasez de pieles de la que dispongo. quizas alguien me pueda pasar algunas y/o algunlugar donde obtenerlas o un soft editor de ellas para crearlas?

Gracias

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (6)

#13735 De: hector Fidalgo <hectorfidalgo@...>
Fecha: Vie, 27 de Feb, 2004 9:52 pm
Asunto: Skins Librery ActiveSkin Ocx hectorfidalgo
Sin conexión
Enviar correo

Hola

Estoy utilizando el ocx activeskin y me agrada el maquillaje que le da a los forms que uso. El pequeño contratiempo que se me presenta es la escasez de pieles de la que dispongo. quizas alguien me pueda pasar algunas y/o algunlugar donde obtenerlas o un soft editor de ellas para crearlas?

Gracias

¿Buscás un auto?
Encontralo en Yahoo! Autos
¡Más de 4000 clasificados todos los días!
Usados - 0 km - Vendé el tuyo

Responder | Reenviar | Mensajes en este tema (1)

#13734 De: "Bernardo Boero" <bboero@...>
Fecha: Vie, 27 de Feb, 2004 8:27 pm
Asunto: TDBlist xxbol
Sin conexión
Enviar correo

Amigos :

Tengo un TrueDBlist (la version 8.0), de Component One, en la cual esta activada la opción Multiple Select, mi pregunta es cómo hago para que me mande los textos de los ítems seleccionados (todos a la vez), ya que siempre me muestra el último que seleccioné

Alguien puede darme una manito

Un abrazo

Bernardo

Responder | Reenviar | Mensajes en este tema (4)

#13733 De: Francisco González Venegas <fgonzalez.ags@...>
Fecha: Vie, 27 de Feb, 2004 5:27 pm
Asunto: RE: [VB] Crear Efecto de Difuminación fgv_mayasoft
Sin conexión
Enviar correo

Checa que en El Load de la Forma y en Unload de la Forma las instrucciones sean diferentes, y cambia el número de la constante "Rango" a un valor más grande.

Francisco González Venegas

Teze Del Centro, SA de CV.

Hernando Martell 311. CP. 20270 Jardines de la Asunción. Aguascalientes, Ags. México.

Tels. 49-13-10-20/13-95-88/78-50-41 Fax. 49-78-57-58

e-mail: fgonzalez.ags@... web: www.teze.com.mx

Suscríbete a nuestro boletín enviando un correo en blanco a: suscribir.ags@...

-----Original Message-----
From: Fernando González [mailto:fagonzalez@...]
Sent: Viernes, 27 de Febrero de 2004 09:17 a.m.
To: DesarrolloVB@...
Subject: RE: [VB] Crear Efecto de Difuminación

Probe este codigo, con VB6 y XP, pero lo unico q logro es retrazar la presentacion o extincion del form, el codigo lo pase con copy+paste, y no dio errores de compilacion, pero no trabaja como espero.

Un abrazo Fernando

-----Mensaje original-----
De: Francisco González Venegas [mailto:fgonzalez.ags@...]
Enviado el: viernes, 27 de febrero de 2004 11:30
Para: DesarrolloVB@...
Asunto: [VB] Crear Efecto de Difuminación

Difuminación

    El día de hoy vamos a ver el concepto de Difuminación, es cuando una forma se desvanece poco a poco para que tenga una interfaz agradable, te comento que tanto el ejercicio que vamos a hacer el día de hoy como los que hicimos en los dos boletines anteriores, son muy fáciles de hacer en Visual Basic.NET, y que en Visual 6 son un poco complicados ya que hay que hacer llamados a las APIs del sistema.

    Bien, empecemos, Abre un proyecto nuevo y a la forma principal agrégale muchos controles, colócalos en diferentes posiciones, agrega un modulo.bas y ponle este código:
Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal HWND As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const Rango = 2

Private Sub AsignaDifuminado(frmActual As Form, ByVal btDifuminado As Byte)
   Dim lngRetVal As Long

On Local Error Resume Next

   lngRetVal = GetWindowLong(frmActual.HWND, GWL_EXSTYLE)
   lngRetVal = lngRetVal Or WS_EX_LAYERED

   SetWindowLong frmActual.HWND, GWL_EXSTYLE, lngRetVal
   SetLayeredWindowAttributes frmActual.HWND, 0, btDifuminado, 2

End Sub

Public Sub Difuminado(frmActual As Form, blnVisible As Boolean)
   Dim lngInicio As Long
   Dim lngFin As Long
   Dim lngContador As Long

On Local Error Resume Next

   If blnVisible Then
      lngInicio = 0
      lngFin = 255
      AsignaDifuminado frmActual, 0
   Else
      lngInicio = 255
      lngFin = 0
      AsignaDifuminado frmActual, 255
   End If

   If Not frmActual.Visible And blnVisible Then
      frmActual.Show
   End If

   If blnVisible Then
      For lngContador = lngInicio To lngFin Step Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   Else
      For lngContador = lngInicio To lngFin Step -Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   End If

End Sub
    En el evento Load de la Forma principal, agrega este código:
   Difuminado Me, True
    Finalmente en el evento Unload de la forma agrega este código:
   Difuminado Me, False
    Listo, ya puedes ejecutar el proyecto, presiona F5 y verifica como va apareciendo la forma poco a poco, al terminar de cargar, cierra la forma y verás como desaparece poco a poco, para cambiar la rapidez con la que esto sucede, solo tienes que cambiar la constante "Rango" que tienes en el modulo.bas, como veras inicialmente la pusimos en 2, cambia su valor a 5 y corre el proyecto otra vez, posteriormente cambia este valor a 10 y verifica el resultado, Selecciona el que mejor te parezca y utiliza este proceso en tus proyectos.

    si tienes cualquier comentario, mandame un Mail.
Francisco González Venegas

        Este artículo fue publicado en el boletín Electrónico Teze, el cual se distribuye quincenalmente por correo electrónico y es gratuito, Para suscribirte solo manda un correo en blanco a suscribir.ags@...

Francisco González Venegas

Teze Del Centro, SA de CV.

Hernando Martell 311. CP. 20270 Jardines de la Asunción. Aguascalientes, Ags. México.

Tels. 49-13-10-20/13-95-88/78-50-41 Fax. 49-78-57-58

e-mail: fgonzalez.ags@... web: www.teze.com.mx

Suscríbete a nuestro boletín enviando un correo en blanco a: suscribir.ags@...

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (4)

#13732 De: Fernando González <fagonzalez@...>
Fecha: Vie, 27 de Feb, 2004 3:16 pm
Asunto: RE: [VB] Crear Efecto de Difuminación fgonzalezra
Sin conexión
Enviar correo

Probe este codigo, con VB6 y XP, pero lo unico q logro es retrazar la presentacion o extincion del form, el codigo lo pase con copy+paste, y no dio errores de compilacion, pero no trabaja como espero.

Un abrazo Fernando

-----Mensaje original-----
De: Francisco González Venegas [mailto:fgonzalez.ags@...]
Enviado el: viernes, 27 de febrero de 2004 11:30
Para: DesarrolloVB@...
Asunto: [VB] Crear Efecto de Difuminación

Difuminación

    El día de hoy vamos a ver el concepto de Difuminación, es cuando una forma se desvanece poco a poco para que tenga una interfaz agradable, te comento que tanto el ejercicio que vamos a hacer el día de hoy como los que hicimos en los dos boletines anteriores, son muy fáciles de hacer en Visual Basic.NET, y que en Visual 6 son un poco complicados ya que hay que hacer llamados a las APIs del sistema.

    Bien, empecemos, Abre un proyecto nuevo y a la forma principal agrégale muchos controles, colócalos en diferentes posiciones, agrega un modulo.bas y ponle este código:
Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal HWND As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const Rango = 2

Private Sub AsignaDifuminado(frmActual As Form, ByVal btDifuminado As Byte)
   Dim lngRetVal As Long

On Local Error Resume Next

   lngRetVal = GetWindowLong(frmActual.HWND, GWL_EXSTYLE)
   lngRetVal = lngRetVal Or WS_EX_LAYERED

   SetWindowLong frmActual.HWND, GWL_EXSTYLE, lngRetVal
   SetLayeredWindowAttributes frmActual.HWND, 0, btDifuminado, 2

End Sub

Public Sub Difuminado(frmActual As Form, blnVisible As Boolean)
   Dim lngInicio As Long
   Dim lngFin As Long
   Dim lngContador As Long

On Local Error Resume Next

   If blnVisible Then
      lngInicio = 0
      lngFin = 255
      AsignaDifuminado frmActual, 0
   Else
      lngInicio = 255
      lngFin = 0
      AsignaDifuminado frmActual, 255
   End If

   If Not frmActual.Visible And blnVisible Then
      frmActual.Show
   End If

   If blnVisible Then
      For lngContador = lngInicio To lngFin Step Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   Else
      For lngContador = lngInicio To lngFin Step -Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   End If

End Sub
    En el evento Load de la Forma principal, agrega este código:
   Difuminado Me, True
    Finalmente en el evento Unload de la forma agrega este código:
   Difuminado Me, False
    Listo, ya puedes ejecutar el proyecto, presiona F5 y verifica como va apareciendo la forma poco a poco, al terminar de cargar, cierra la forma y verás como desaparece poco a poco, para cambiar la rapidez con la que esto sucede, solo tienes que cambiar la constante "Rango" que tienes en el modulo.bas, como veras inicialmente la pusimos en 2, cambia su valor a 5 y corre el proyecto otra vez, posteriormente cambia este valor a 10 y verifica el resultado, Selecciona el que mejor te parezca y utiliza este proceso en tus proyectos.

    si tienes cualquier comentario, mandame un Mail.
Francisco González Venegas

        Este artículo fue publicado en el boletín Electrónico Teze, el cual se distribuye quincenalmente por correo electrónico y es gratuito, Para suscribirte solo manda un correo en blanco a suscribir.ags@...

Francisco González Venegas

Teze Del Centro, SA de CV.

Hernando Martell 311. CP. 20270 Jardines de la Asunción. Aguascalientes, Ags. México.

Tels. 49-13-10-20/13-95-88/78-50-41 Fax. 49-78-57-58

e-mail: fgonzalez.ags@... web: www.teze.com.mx

Suscríbete a nuestro boletín enviando un correo en blanco a: suscribir.ags@...

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (4)

#13731 De: jose Antonio Gracia <jagrane@...>
Fecha: Vie, 27 de Feb, 2004 2:57 pm
Asunto: Re: [VB] Imprimir con Printer.Print rapido jagrane
Sin conexión
Enviar correo

Como ya te ha dicho Fernando, funciona con cualquier
impresora matricial y algunas marcas de las de tinta y
laser.

Si tu impresora soporta la secuencia de escape que
quieres enviar, la envías y listo. En este caso
print #99,chr$(27)+chr$(33)+chr$(1);
(El punto y coma es para que no avance línea)

Todo exactamente como lo harías desde cualquier
programa msdos, pero con sintaxis de VB.

Saludos
José Antonio Gracia


  --- vze1sm72 <vze1sm72@...> escribió:
---------------------------------
FUNCIONA para impresoras epson matriziales ?
como le dirias que deseas la letra 12cpi , o sea un
poquitin mas pequeña que
la 10cpi pero
no es condensada ?  se haria igual a como se hacia con
clipper dos ?
chr(27)+chr(33)+chr(1) ?



=====
Todos mis correos llevan un saludo y mi nombre y apellido al pie.  Desconfíe de
cualquier correo que no lo lleve y de los adjuntos que pueda contener.
Mi página en: http://usuarios.lycos.es/jagrane/

___________________________________________________
Yahoo! Messenger - Nueva versión GRATIS
Super Webcam, voz, caritas animadas, y más...
http://messenger.yahoo.es

Responder | Reenviar | Mensajes en este tema (5)

#13730 De: Francisco González Venegas <fgonzalez.ags@...>
Fecha: Vie, 27 de Feb, 2004 2:30 pm
Asunto: Crear Efecto de Difuminación fgv_mayasoft
Sin conexión
Enviar correo

Difuminación

El día de hoy vamos a ver el concepto de Difuminación, es cuando una forma se desvanece poco a poco para que tenga una interfaz agradable, te comento que tanto el ejercicio que vamos a hacer el día de hoy como los que hicimos en los dos boletines anteriores, son muy fáciles de hacer en Visual Basic.NET, y que en Visual 6 son un poco complicados ya que hay que hacer llamados a las APIs del sistema.

Bien, empecemos, Abre un proyecto nuevo y a la forma principal agrégale muchos controles, colócalos en diferentes posiciones, agrega un modulo.bas y ponle este código:

Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal HWND As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal HWND As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const Rango = 2

Private Sub AsignaDifuminado(frmActual As Form, ByVal btDifuminado As Byte)
   Dim lngRetVal As Long

On Local Error Resume Next

   lngRetVal = GetWindowLong(frmActual.HWND, GWL_EXSTYLE)
   lngRetVal = lngRetVal Or WS_EX_LAYERED

   SetWindowLong frmActual.HWND, GWL_EXSTYLE, lngRetVal
   SetLayeredWindowAttributes frmActual.HWND, 0, btDifuminado, 2

End Sub

Public Sub Difuminado(frmActual As Form, blnVisible As Boolean)
   Dim lngInicio As Long
   Dim lngFin As Long
   Dim lngContador As Long

On Local Error Resume Next

   If blnVisible Then
      lngInicio = 0
      lngFin = 255
      AsignaDifuminado frmActual, 0
   Else
      lngInicio = 255
      lngFin = 0
      AsignaDifuminado frmActual, 255
   End If

   If Not frmActual.Visible And blnVisible Then
      frmActual.Show
   End If

   If blnVisible Then
      For lngContador = lngInicio To lngFin Step Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   Else
      For lngContador = lngInicio To lngFin Step -Rango
          DoEvents
          AsignaDifuminado frmActual, CByte(lngContador)
      Next lngContador
   End If

End Sub

En el evento Load de la Forma principal, agrega este código:

Difuminado Me, True

Finalmente en el evento Unload de la forma agrega este código:

Difuminado Me, False

Listo, ya puedes ejecutar el proyecto, presiona F5 y verifica como va apareciendo la forma poco a poco, al terminar de cargar, cierra la forma y verás como desaparece poco a poco, para cambiar la rapidez con la que esto sucede, solo tienes que cambiar la constante "Rango" que tienes en el modulo.bas, como veras inicialmente la pusimos en 2, cambia su valor a 5 y corre el proyecto otra vez, posteriormente cambia este valor a 10 y verifica el resultado, Selecciona el que mejor te parezca y utiliza este proceso en tus proyectos.

si tienes cualquier comentario, mandame un Mail.

Francisco González Venegas

Este artículo fue publicado en el boletín Electrónico Teze, el cual se distribuye quincenalmente por correo electrónico y es gratuito, Para suscribirte solo manda un correo en blanco a suscribir.ags@...

Francisco González Venegas

Teze Del Centro, SA de CV.

Hernando Martell 311. CP. 20270 Jardines de la Asunción. Aguascalientes, Ags. México.

Tels. 49-13-10-20/13-95-88/78-50-41 Fax. 49-78-57-58

e-mail: fgonzalez.ags@... web: www.teze.com.mx

Suscríbete a nuestro boletín enviando un correo en blanco a: suscribir.ags@...

Responder | Reenviar | Mensajes en este tema (4)

#13729 De: Fernando González <fagonzalez@...>
Fecha: Vie, 27 de Feb, 2004 1:13 pm
Asunto: RE: [VB] Imprimir con Printer.Print rapido fgonzalezra
Sin conexión
Enviar correo

open "LPT1" for outpur as 1

print #1,chr(27)+chr(33)+chr(1)

y listo

Fernando

-----Mensaje original-----
De: vze1sm72 [mailto:vze1sm72@...]
Enviado el: viernes, 27 de febrero de 2004 9:35
Para: DesarrolloVB@...
Asunto: Re: [VB] Imprimir con Printer.Print rapido

FUNCIONA para impresoras epson matriziales ? como le dirias que deseas la letra 12cpi , o sea un poquitin mas pequeña que la 10cpi pero no es condensada ? se haria igual a como se hacia con clipper dos ? chr(27)+chr(33)+chr(1) ? ----- Original Message ----- From: "jose Antonio Gracia" <jagrane@...> To: <DesarrolloVB@...> Sent: 27 February, 2004 2:51 AM Subject: Re: [VB] Imprimir con Printer.Print rapido > Henry > > No imprimes directamente. > > Dudo que utilizando el objeto printer (y por tanto la > cola de impresión), consigas imprimir con velocidad. > > Ten en cuenta que windows no "escribe", sino que > "pinta" las letras, por eso puede imprimir tamaños y > fonts distintos. > > Entiendo por "escribe" la utilización del juego de > caracteres de la impresora y la impresión enviando el > ascii de la letra, y por "pinta", la impresión en > formato gráfico, como cuando se imprime cualquier > dibujo. > > Si utilizas un windows 98 o inferior (no se si > funciona en los demás), puedes utilizar la impresora > directamente, saltándote parte del sistema de > impresión, haciendo: > > open "LPT1:" FOR OUTPUT AS #99 > Print #99, "algo" > PRINT #99,CHR$(12); :' Fin de la impresión > > pero no puedes utilizar ningún tipo de fonts ni tamaño > de letra que no sea normal, comprimida o expandida y > además no funciona con impresoras USB o con impresoras > Canon de tinta. Con las Hp hay que utilizar códigos > de control distintos. > > Yo tengo un progama con este sistema e imprime con la > misma velocidad que otro de msdos, excepto la pequeña > demora hasta que comienza la impresión. > > Espero que te sirva > Saludos > José Antonio Gracia > > > --- henry salcedo arriaran > <henrysalcedoa@...> escribió: > --------------------------------- > Hola amigos utilizo la siguente sentecia para imprimi > directamente > Printer.PrintQuality = -1 > Printer.Font.Size = 9 > Printer.Font.Name = "Courier New" > Printer.Print "algo" > Printer.EndDoc 'terminar la impresion > > Pero se demora demasiado, como puedo hacer para > imprimir en forma rápida sin necesidad de esperar > demasiado > > Gracias y espero su respuesta > > > > > --------------------------------- > Las mejores tiendas, los precios mas bajos, entregas > en todo el mundo, YupiMSN Compras: Haz clic aquí... > > ------------------------------ > DesarrolloVB: > Desarrollo de Software en Microsoft Visual Basic > ------------------------------ > Direcciones de la lista: > Publicar un mensaje: DesarrolloVB@... > Suscribirse........: > DesarrolloVB-Subscribe@... > Desuscribirse......: > DesarrolloVB-Unsubscribe@... > Administrador......: > DesarrolloVB-Owner@... > Página de la lista.: > http://www.gruposyahoo.com.ar/group/DesarrolloVB > Página de la lista > de la plataforma > Microsoft .NET....: > http://www.gruposyahoo.com.ar/group/DesarrolloDotNET > ------------------------------ > http://www.navegana.com/dinero/chanzes.html > > > > --------------------------------- > Yahoo! Grupos Enlaces > > Para visitar tu grupo en Internet, vé a: > http://ar.groups.yahoo.com/group/DesarrolloVB/ > > Para cancelar tu suscripción a este grupo, enviá un > mensaje a: > DesarrolloVB-unsubscribe@... > > El uso de Yahoo! Grupos se rige por las Condiciones > del servicio de Yahoo!. > > > ===== > Todos mis correos llevan un saludo y mi nombre y apellido al pie. Desconfíe de cualquier correo que no lo lleve y de los adjuntos que pueda contener. > Mi página en: http://usuarios.lycos.es/jagrane/ > > ___________________________________________________ > Yahoo! Messenger - Nueva versión GRATIS > Super Webcam, voz, caritas animadas, y más... > http://messenger.yahoo.es > > > ------------------------------ > DesarrolloVB: > Desarrollo de Software en Microsoft Visual Basic > ------------------------------ > Direcciones de la lista: > Publicar un mensaje: DesarrolloVB@... > Suscribirse........: DesarrolloVB-Subscribe@... > Desuscribirse......: DesarrolloVB-Unsubscribe@... > Administrador......: DesarrolloVB-Owner@... > Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB > Página de la lista > de la plataforma > Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET > ------------------------------ > http://www.navegana.com/dinero/chanzes.html > Yahoo! Grupos Enlaces > > Para visitar tu grupo en Internet, vé a: > http://ar.groups.yahoo.com/group/DesarrolloVB/ > > Para cancelar tu suscripción a este grupo, enviá un mensaje a: > DesarrolloVB-unsubscribe@... > > El uso de Yahoo! Grupos se rige por: > http://ar.docs.yahoo.com/info/utos.html > >

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

Responder | Reenviar | Mensajes en este tema (5)

#13728 De: "vze1sm72" <vze1sm72@...>
Fecha: Vie, 27 de Feb, 2004 12:34 pm
Asunto: Re: [VB] Imprimir con Printer.Print rapido vze1sm72@...
Enviar correo

FUNCIONA para impresoras epson matriziales ?
como le dirias que deseas la letra 12cpi , o sea un poquitin mas pequeña que
la 10cpi pero
no es condensada ?  se haria igual a como se hacia con clipper dos ?
chr(27)+chr(33)+chr(1) ?

----- Original Message -----
From: "jose Antonio Gracia" <jagrane@...>
To: <DesarrolloVB@...>
Sent: 27 February, 2004 2:51 AM
Subject: Re: [VB] Imprimir con Printer.Print rapido


> Henry
>
> No imprimes directamente.
>
> Dudo que utilizando el objeto printer (y por tanto la
> cola de impresión), consigas imprimir con velocidad.
>
> Ten en cuenta que windows no "escribe", sino que
> "pinta" las letras, por eso puede imprimir tamaños y
> fonts distintos.
>
> Entiendo por "escribe" la utilización del juego de
> caracteres de la impresora y la impresión enviando el
> ascii de la letra, y por "pinta", la impresión en
> formato gráfico, como cuando se imprime cualquier
> dibujo.
>
> Si utilizas un windows 98 o inferior (no se si
> funciona en los demás), puedes utilizar la impresora
> directamente, saltándote parte del sistema de
> impresión, haciendo:
>
> open "LPT1:" FOR OUTPUT AS #99
>    Print #99, "algo"
>    PRINT #99,CHR$(12); :' Fin de la impresión
>
> pero no puedes utilizar ningún tipo de fonts ni tamaño
> de letra que no sea normal, comprimida o expandida y
> además no funciona con impresoras USB o con impresoras
> Canon de tinta.  Con las Hp hay que utilizar códigos
> de control distintos.
>
> Yo tengo un progama con este sistema e imprime con la
> misma velocidad que otro de msdos, excepto la pequeña
> demora hasta que comienza la impresión.
>
> Espero que te sirva
> Saludos
> José Antonio Gracia
>
>
>  --- henry salcedo arriaran
> <henrysalcedoa@...> escribió:
> ---------------------------------
>  Hola amigos utilizo la siguente sentecia para imprimi
> directamente
> Printer.PrintQuality = -1
>    Printer.Font.Size = 9
>    Printer.Font.Name = "Courier New"
>    Printer.Print "algo"
> Printer.EndDoc 'terminar la impresion
>
> Pero se demora demasiado, como puedo hacer para
> imprimir en forma rápida sin necesidad de esperar
> demasiado
>
> Gracias y espero su respuesta
>
>
>
>
> ---------------------------------
> Las mejores tiendas, los precios mas bajos, entregas
> en todo el mundo, YupiMSN Compras:  Haz clic aquí...
>
> ------------------------------
> DesarrolloVB:
> Desarrollo de Software en Microsoft Visual Basic
> ------------------------------
> Direcciones de la lista:
> Publicar un mensaje: DesarrolloVB@...
> Suscribirse........:
> DesarrolloVB-Subscribe@...
> Desuscribirse......:
> DesarrolloVB-Unsubscribe@...
> Administrador......:
> DesarrolloVB-Owner@...
> Página de la lista.:
> http://www.gruposyahoo.com.ar/group/DesarrolloVB
> Página de la lista
>  de la plataforma
>  Microsoft .NET....:
> http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
> ------------------------------
> http://www.navegana.com/dinero/chanzes.html
>
>
>
> ---------------------------------
> Yahoo! Grupos Enlaces
>
>    Para visitar tu grupo en Internet, vé a:
> http://ar.groups.yahoo.com/group/DesarrolloVB/
>
>    Para cancelar tu suscripción a este grupo, enviá un
> mensaje a:
> DesarrolloVB-unsubscribe@...
>
>    El uso de Yahoo! Grupos se rige por las Condiciones
> del servicio de Yahoo!.
>
>
> =====
> Todos mis correos llevan un saludo y mi nombre y apellido al pie.
Desconfíe de cualquier correo que no lo lleve y de los adjuntos que pueda
contener.
> Mi página en: http://usuarios.lycos.es/jagrane/
>
> ___________________________________________________
> Yahoo! Messenger - Nueva versión GRATIS
> Super Webcam, voz, caritas animadas, y más...
> http://messenger.yahoo.es
>
>
> ------------------------------
> DesarrolloVB:
> Desarrollo de Software en Microsoft Visual Basic
> ------------------------------
> Direcciones de la lista:
> Publicar un mensaje: DesarrolloVB@...
> Suscribirse........: DesarrolloVB-Subscribe@...
> Desuscribirse......: DesarrolloVB-Unsubscribe@...
> Administrador......: DesarrolloVB-Owner@...
> Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB
> Página de la lista
>  de la plataforma
>  Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
> ------------------------------
> http://www.navegana.com/dinero/chanzes.html
> Yahoo! Grupos Enlaces
>
> Para visitar tu grupo en Internet, vé a:
>  http://ar.groups.yahoo.com/group/DesarrolloVB/
>
> Para cancelar tu suscripción a este grupo, enviá un mensaje a:
>  DesarrolloVB-unsubscribe@...
>
> El uso de Yahoo! Grupos se rige por:
>  http://ar.docs.yahoo.com/info/utos.html
>
>

Responder | Reenviar | Mensajes en este tema (5)

#13727 De: "Eduardo Rubinos" <erubinos@...>
Fecha: Vie, 27 de Feb, 2004 12:33 pm
Asunto: Manejo de un dbf ejradtec
Sin conexión
Enviar correo

Hola amigos listeros, tengo una pregunta para hacer, alguien sabe desde vb como puedo abrir y manejar una dbf, tengo que tomar datos registros y recorrer una dbf, y en el otro caso son varias dbf relacionadas.

Desde ya muchas Gracias.

Responder | Reenviar | Mensajes en este tema (1)

#13726 De: jose Antonio Gracia <jagrane@...>
Fecha: Vie, 27 de Feb, 2004 7:51 am
Asunto: Re: [VB] Imprimir con Printer.Print rapido jagrane
Sin conexión
Enviar correo

Henry

No imprimes directamente.

Dudo que utilizando el objeto printer (y por tanto la
cola de impresión), consigas imprimir con velocidad.

Ten en cuenta que windows no "escribe", sino que
"pinta" las letras, por eso puede imprimir tamaños y
fonts distintos.

Entiendo por "escribe" la utilización del juego de
caracteres de la impresora y la impresión enviando el
ascii de la letra, y por "pinta", la impresión en
formato gráfico, como cuando se imprime cualquier
dibujo.

Si utilizas un windows 98 o inferior (no se si
funciona en los demás), puedes utilizar la impresora
directamente, saltándote parte del sistema de
impresión, haciendo:

open "LPT1:" FOR OUTPUT AS #99
    Print #99, "algo"
    PRINT #99,CHR$(12); :' Fin de la impresión

pero no puedes utilizar ningún tipo de fonts ni tamaño
de letra que no sea normal, comprimida o expandida y
además no funciona con impresoras USB o con impresoras
Canon de tinta.  Con las Hp hay que utilizar códigos
de control distintos.

Yo tengo un progama con este sistema e imprime con la
misma velocidad que otro de msdos, excepto la pequeña
demora hasta que comienza la impresión.

Espero que te sirva
Saludos
José Antonio Gracia


  --- henry salcedo arriaran
<henrysalcedoa@...> escribió:
---------------------------------
  Hola amigos utilizo la siguente sentecia para imprimi
directamente
Printer.PrintQuality = -1
    Printer.Font.Size = 9
    Printer.Font.Name = "Courier New"
    Printer.Print "algo"
Printer.EndDoc 'terminar la impresion

Pero se demora demasiado, como puedo hacer para
imprimir en forma rápida sin necesidad de esperar
demasiado

Gracias y espero su respuesta




---------------------------------
Las mejores tiendas, los precios mas bajos, entregas
en todo el mundo, YupiMSN Compras:  Haz clic aquí...

------------------------------
DesarrolloVB:
Desarrollo de Software en Microsoft Visual Basic
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloVB@...
Suscribirse........:
DesarrolloVB-Subscribe@...
Desuscribirse......:
DesarrolloVB-Unsubscribe@...
Administrador......:
DesarrolloVB-Owner@...
Página de la lista.:
http://www.gruposyahoo.com.ar/group/DesarrolloVB
Página de la lista
  de la plataforma
  Microsoft .NET....:
http://www.gruposyahoo.com.ar/group/DesarrolloDotNET
------------------------------
http://www.navegana.com/dinero/chanzes.html



---------------------------------
Yahoo! Grupos Enlaces

    Para visitar tu grupo en Internet, vé a:
http://ar.groups.yahoo.com/group/DesarrolloVB/

    Para cancelar tu suscripción a este grupo, enviá un
mensaje a:
DesarrolloVB-unsubscribe@...

    El uso de Yahoo! Grupos se rige por las Condiciones
del servicio de Yahoo!.


=====
Todos mis correos llevan un saludo y mi nombre y apellido al pie.  Desconfíe de
cualquier correo que no lo lleve y de los adjuntos que pueda contener.
Mi página en: http://usuarios.lycos.es/jagrane/

___________________________________________________
Yahoo! Messenger - Nueva versión GRATIS
Super Webcam, voz, caritas animadas, y más...
http://messenger.yahoo.es

Responder | Reenviar | Mensajes en este tema (5)

#13725 De: "Adrian" <adrian_compu@...>
Fecha: Vie, 27 de Feb, 2004 1:44 am
Asunto: RE: [VB] Visual Basic y Palm...? adrian_compu
Sin conexión
Enviar correo

mobile access

Responder | Reenviar | Mensajes en este tema (4)

#13724 De: bernyshow@...
Fecha: Jue, 26 de Feb, 2004 8:20 pm
Asunto: Re: [VB] RV: Nombre de Campo bernyshow
Sin conexión
Enviar correo

En un mensaje con fecha 26/02/04 07:10:57 p.m. Hora estándar de México, fldinezza@... escribe:

Necesitaría saber como se llama el campo Autonumerico para el motor de Access.
Estoy haciendo un "ALTER TABLE Especialidad ADD COLUMN IdEspecialidad AutoNum"; y da error.

Desde Ya gracias

Fernando

Prof. Fernando L. Di Nezza

Intenta con " AUTOINCREMENT " . Busca informacion en http://www.soloasp.com.ar/vereje.asp?eje=37

ejemplo:

    SQL = "CREATE TABLE Tb_Prueba "
    SQL = SQL & "(Mi_Pk AUTOINCREMENT PRIMARY KEY, "
    SQL = SQL & " Prueba_Id INTEGER, Prueba_Nombre TEXT(20) ,"
    SQL = SQL & " Prueba_Memo MEMO, Prueba_Dt DATETIME )"

Saludos ,

Bernardo Pérez Barrera.
Desarrollo de Sistemas.

Responder | Reenviar | Mensajes en este tema (1)

#13723 De: "El Santus" <el_santus2003@...>
Fecha: Vie, 27 de Feb, 2004 1:10 am
Asunto: Re: [VB] Consulta impresora fiscal heiden666
Sin conexión
Enviar correo

Hola, yo desarrolle un sistema de facturacion q esta funcionando en la actualidad en el negocio donde trabajo, el impresor es marca Hasar, si es ese el q vas a usar preguntame, quizas te pueda dar una mano.

Saludos

Diego Heit

San Nicolas

Argentina

-------Mensaje original-------

De: DesarrolloVB@...

Fecha: jueves, 26 de febrero de 2004 14:50:57

A: DesarrolloVB@...

Asunto: [VB] Consulta impresora fiscal

hola amigos tengo desarrollado un sistema de facturacion pero el mismo no utilizaba impresoras fiscales, la cuestion es que tengo que pasar las impresiones a este tipo de impresoras; necesitaria saber si alguno de ustedes me puede facilitar alguna direccion o texto o codigo como para poder manejarlas _________________________________________________________________ Consigue aquí las mejores y mas recientes ofertas de trabajo en América Latina y USA: http://latam.msn.com/empleos/

------------------------------ DesarrolloVB: Desarrollo de Software en Microsoft Visual Basic ------------------------------ Direcciones de la lista: Publicar un mensaje: DesarrolloVB@... Suscribirse........: DesarrolloVB-Subscribe@... Desuscribirse......: DesarrolloVB-Unsubscribe@... Administrador......: DesarrolloVB-Owner@... Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloVB Página de la lista de la plataforma Microsoft .NET....: http://www.gruposyahoo.com.ar/group/DesarrolloDotNET ------------------------------ http://www.navegana.com/dinero/chanzes.html

_________________________________________________________________

IncrediMail - El E-mail ha evolucionado finalmente - Haga clic aquí

Responder | Reenviar | Mensajes en este tema (4)

#13722 De: "Fernando Di Nezza" <fldinezza@...>
Fecha: Vie, 27 de Feb, 2004 1:09 am
Asunto: RV: Nombre de Campo fldinezza
Sin conexión
Enviar correo

Necesitaría saber como se llama el campo Autonumerico para el motor de Access.
Estoy haciendo un "ALTER TABLE Especialidad ADD COLUMN IdEspecialidad AutoNum"; y da error.

Desde Ya gracias

Fernando

Prof. Fernando L. Di Nezza

fdinezza@...

http://www.winlaborat.com.ar

Cel.: 54-11-15-5327-3902

Responder | Reenviar | Mensajes en este tema (1)

#13721 De: "Rodrigo Villordo Solis" <rvsxp@...>
Fecha: Jue, 26 de Feb, 2004 8:04 pm
Asunto: Re: [VB] Re: Viculacion VB Access rvsxp
Sin conexión
Enviar correo

La vinculacion del dbcombo y el text al Data ya lo hice pero al momento de seleccionar los productos que aparecen en el DBcombo, quiero que aparezca el precio en el Textbox

el DBcombo esta viculado a los productos

el Textbox esta viculado a los precios,

espero que me alla explicado bien

_________________________________________________________________

IncrediMail - El Email ha evolucionado finalmente - Haga clic aquí

Responder | Reenviar | Mensajes en este tema (1)

#13720 De: "amgsoluciones" <gabrielraineri@...>
Fecha: Jue, 26 de Feb, 2004 7:46 pm
Asunto: Re: Viculacion VB Access amgsoluciones
Sin conexión
Enviar correo

Estimado Rodrigo:

Lo que tienes que hacer es vincular el Combo y el Textbox al data y a
las columnas.

¿Y Cómo hago eso?

Bien... a través de las siguientes propiedades de cada objeto:
DataSource ==> Nombre del DATA
DataField ==> Nombre del campo de la base que te interesa (EJ: Para
el textbox el campo sería precios)

Establecés esas dos propiedades para ambos objetos y ya está.

Cualquier cosa avisame.

Saludos.



--- En DesarrolloVB@..., Rodrigo Villordo Solis
<rvsxp@y...> escribió:
> Hola como estan todos, espero que bien, soy nuevo en esto de la
programacion en Visual basic y espero que puedan ayudarme con un
problema que tengo.
>
> quiero vincular una base detos en acces a visual basi, bueno en
realidad eso ya lo hice con un DATA, mi base de datos es muy sencilla
se compone de una sola tabla la cual contiene 2 columas una que dice
producto y otra con los precios del produto, en fin lo que yo quiero
hacer es lo siguiente.
>
> los productos los vincule a un dbcombo y el precio a un texbox, y
lo que quiero hace es que cuando yo seleccione un producto del
dbcombo automaticamente aparesca el precio del producto en el
textcombo, ejemplo:
>
>
> mi trabla esta asi:
>
> Producto              Precio
>
> Refresco              $ 7,00
> Cigarros               $22,00
> Sopa                    $7,50
>
> por lo que ven muy sencilla, espero que me puedan ayudar o que me
alla dado a enternder com mi pregunta, gracias.
>
>
>
> ---------------------------------
> Do You Yahoo!?
> Yahoo! Net: La mejor conexión a internet y 25MB extra a tu correo
por $100 al mes.

Responder | Reenviar | Mensajes en este tema (2)

#13719 De: Rodrigo Villordo Solis <rvsxp@...>
Fecha: Jue, 26 de Feb, 2004 7:30 pm
Asunto: Viculacion VB Access rvsxp
Sin conexión
Enviar correo

Hola como estan todos, espero que bien, soy nuevo en esto de la programacion en Visual basic y espero que puedan ayudarme con un problema que tengo.

quiero vincular una base detos en acces a visual basi, bueno en realidad eso ya lo hice con un DATA, mi base de datos es muy sencilla se compone de una sola tabla la cual contiene 2 columas una que dice producto y otra con los precios del produto, en fin lo que yo quiero hacer es lo siguiente.

los productos los vincule a un dbcombo y el precio a un texbox, y lo que quiero hace es que cuando yo seleccione un producto del dbcombo automaticamente aparesca el precio del producto en el textcombo, ejemplo:

mi trabla esta asi:

Producto Precio

Refresco $ 7,00

Cigarros $22,00

Sopa $7,50

por lo que ven muy sencilla, espero que me puedan ayudar o que me alla dado a enternder com mi pregunta, gracias.

Do You Yahoo!?
Yahoo! Net: La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.

Responder | Reenviar | Mensajes en este tema (2)

Consejos

¿Sabías que...?

Mensajes