• Viernes 4 de Julio de 2025, 18:50

Mostrar Mensajes

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 - cpmario

Páginas: 1 ... 16 17 [18] 19 20 ... 26
426
Visual Basic 6.0 e inferiores / Re: Crear Archivos De Ayuda (*.hlp)
« en: Sábado 29 de Octubre de 2005, 05:11 »
Si lo que desean es construir un archivo *.hlp  formato antiguo.
Les doy el enlace de la última versión del programa que uso, "Help Precompiler".

http://www.acordero.org/projects/hlppcp/index.htm

Pero yo uso una versión más antigua que modifiqué, no me pregunten como.
Les adjunto un zip con un archivo HLP a manera de demostración de lo que se puede hacer con este programa.


---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://www.igmario.com/index2.html

427
Visual Basic 6.0 e inferiores / Re: Compactar Mdb
« en: Domingo 23 de Octubre de 2005, 23:28 »
Esta es la línea que hace el trabajo

Código: Text
  1.  DBEngine.CompactDatabase strBakDb, strDbase, dbLangGeneral, dbDecrypt + dbVersion30, ";Pwd=" & gstrPG
  2.  

 :comp:

428
Visual Basic 6.0 e inferiores / Re: Error Al Llamar Reporte Crystal
« en: Sábado 22 de Octubre de 2005, 15:26 »
Gracias por la información.

 :kicking:

429
Visual Basic 6.0 e inferiores / Re: Error Al Llamar Reporte Crystal
« en: Sábado 22 de Octubre de 2005, 02:01 »
Trata lo siguiente, en el Crystal Report, con el reporte abierto, busca en menú 'Base de datos' la opción 'Establecer ubicación' y en el cuadro que aparece elige 'La misma que el informe'

 <_<

430
Visual Basic 6.0 e inferiores / Re: Objeto Timer
« en: Viernes 21 de Octubre de 2005, 20:41 »
Pues parece que no va aquí en VB6, ya que el contol Timer no tiene un evento -> Elapsed.

 <_<

431
Visual Basic para principiantes / Re: Cerrar Formulario Hijo
« en: Viernes 21 de Octubre de 2005, 00:26 »
Lo que dices es lo que pasa si colocas un Unload a mitad de un bucle.
Mejor debes de salir primero de bucle y después hace un Unload.
Por ejemplo:

Código: Text
  1.  
  2. Sub TrabajandoBucle()
  3.     Dim cnt As Long
  4.     Dim Salida As Boolean
  5.     Salida = False
  6.     Do
  7.         ' aqui va tu código
  8.         If cnt = 500 Then
  9.             Salida = True
  10.             Exit Do
  11.         End If
  12.         cnt = cnt + 1
  13.     Loop Until cnt = 1000
  14.     'Esto va en la última línea de la subrutina
  15.     If Salida = True Then
  16.         Unload Me
  17.     End If
  18. End Sub
  19.  


Espero esto te sirva.

 :comp:

432
Visual Basic 6.0 e inferiores / Re: Error En Empaquetador Del Visual Studio
« en: Jueves 20 de Octubre de 2005, 00:29 »
Trata eliminando el archivo con el nombre de tu proyecto y que tiene la extensión PDM que se encuentra en el mismo fólder que tu proyecto.
Compila tu proyecto previamente y vuelve a intentar hacer el paquete de instalación, a ver si con esto descubres cual es el error.

 :comp:

433
Visual Basic 6.0 e inferiores / Re: Mas Inno Setup
« en: Jueves 20 de Octubre de 2005, 00:19 »
Revisa las diferencias que existe entre el archivo Setup.lst y el de Inno Setup.
Si muestras el Setup.lst del empaquetado de tu programa estaremos en posibilidad de ayudarte.

 :comp:

434
Visual Basic para principiantes / Re: Impresion Rapida Tipo Draft
« en: Jueves 20 de Octubre de 2005, 00:06 »
No tengo una impresora como la tuya para hacer pruebas, pero intenta lo siguiente:
Deja la impresora EPSON LX300 como predeterminada.

Abre Word de Microsoft y en la barra de herramientas revisa donde está el listado de fuentes. Revisa este listado de fuentes, notarás que a la izquierda del nombre hay un símbolo que es TT para fonts True Type, los que debes buscar son los que tienen una figura de una pequeña impresora.  Coloca la fuente que tenga este tipo de figura y prueba la impresión. Por ejemplo:  Draft 12cpi, Roman 10cpi ó Roman 12cpi

Espero esta información te sea de utilidad.

 :comp:

435
Visual Basic 6.0 e inferiores / Re: Cierre Indeseado Del Programa
« en: Miércoles 19 de Octubre de 2005, 14:55 »
Verifica que tengas actualizado Visual Basic 6 con el Service Pack 6.
En caso contrario en el siguiente enlace lo puedes descargar.

http://www.microsoft.com/downloads/details...&displaylang=es

 :comp:

436
Visual Basic 6.0 e inferiores / Re: Visual Basic T Crystal Repor
« en: Miércoles 19 de Octubre de 2005, 05:08 »
Busca en el menú archivo del Cristal Report una opción que se llama "Guardar datos con el informe" y asegurate que NO esté seleccionada esta opción. A veces es la causa de este problema.

 <_<

437
Visual Basic 6.0 e inferiores / Re: Error En Empaquetador Del Visual Studio
« en: Miércoles 19 de Octubre de 2005, 04:59 »
En este enlace hay información sobre el problema que tienes

http://support.microsoft.com/?scid=kb%3Bes%3B305558&x=7&y=10

 :comp:

438
Visual Basic 6.0 e inferiores / Re: Problemas Con Fecha
« en: Miércoles 19 de Octubre de 2005, 00:25 »
Yo también me quebré la cabeza con esto, ya que la fecha en las bases de datos da este problema.
La mejor solución que encontré es cambiar en la configuración regional de Win98 la fecha, para que quede "dd/mm/aaaa", puedes hacerlo manualmente o con el código que te adjunté anteriormente.

 :whistling:

439
Visual Basic 6.0 e inferiores / Re: Block De Notas Tabulado
« en: Miércoles 19 de Octubre de 2005, 00:19 »
Para tabular registros se requiere de Chr$(9) por ejemplo:

Código: Text
  1. Text1.text = Nombre$ & Chr$(9) & Apellido1$ & Chr$(9) & Apellido2$
  2.  

  :comp:

440
Visual Basic 6.0 e inferiores / Re: Problemas Con Fecha
« en: Martes 18 de Octubre de 2005, 03:23 »
El problema se presenta principalmente en Windows 98.
Tengo una rutina que encontré en la red y la adapté para mis programas. Te la adjunto.
En un pequeño programa que demuestra como elaborar por medio de programación una base de datos en dao. La rutina que te interesa se encuentra en el módulo modSystem.
Espero te sirva.

 :comp:  :smartass:

441
Visual Basic 6.0 e inferiores / Re: Almacenar Datos En List
« en: Martes 18 de Octubre de 2005, 02:27 »
Revisa el código, tienes una instrucción END en la penúltima línea. Retira esta instrucción.

Te recomiendo estructures más tu código, este tipo de error que tienes podrías evitarlo, ya que es más fácil de leer y revisar cuando está estructurado.
Ejemplo:
Código: Text
  1. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  2.     For i = 0 To List3.ListCount - 1
  3.         If i = List3.ListCount - 1 Then
  4.             Text5.Text = Text5.Text & List3.List(i)
  5.         Else
  6.             Text5.Text = Text5.Text & List3.List(i) & Chr(13) + Chr(10)
  7.         End If
  8.     Next i
  9.  
  10.     Open App.Path & "\save.dat" For Output As #1
  11.     Print #1, Text5
  12.     Close #1
  13.  
  14.     If StopSearch = False Then
  15.         StopSearching
  16.     End If
  17.     StopSearch = True
  18. End Sub
  19.  
  20.  

Revisa las últimas líneas del código ya que a lo mejor quisiste escribir ENDIF en lugar del END.

 :comp:

442
Visual Basic 6.0 e inferiores / Re: Mas Inno Setup
« en: Martes 18 de Octubre de 2005, 02:08 »
Tanto el instalador del VB como Inno Setup colocan los archivos que antes te mencioné de manera autómatica.
El instalador de VB crea la instrucción que hace que los archivos como el DAO350.DLL se coloquen en un fólder especial. Por ejemplo, en Setup.lst aparece así:

En el Setup.Lst es como esto
Código: Text
  1. File31=@DAO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/28/98 12:00:00 AM,570128,3.51.1608.0
  2.  
En el Inno Setup aparece así:
Código: Text
  1. Source: dao350.dll; DestDir: {dao}; Flags:  regserver restartreplace sharedfile
  2.  
Afortunadamente no hay muchos tipos de esos archivos especiales. Si usas programas como el que elaboró Sagutxo o el InnoScript no tendrás dificultad ya que te trasforman el SETUP.LST a Inno Setup script sin problemas.

Por otro lado revisa las dos líneas anteriores, notas algunas similitudes. Por ejemplo MSDAOPath=DestDir: {dao} , DLLSelfRegister=regserver , Shared=sharedfile

 :)

443
Visual Basic 6.0 e inferiores / Re: Un Buen Instalador Para Mis Sistemas De Vb6.0
« en: Martes 18 de Octubre de 2005, 01:46 »
Revisa las discuciones recientes de Inno Setup, pueda ser que te sirva.

 :comp:

444
Visual Basic para principiantes / Re: Cerrar Formulario Hijo
« en: Martes 18 de Octubre de 2005, 01:45 »
En el código que muestras no está la causa del error.
Te aconsejo que con las herramientas de la barra de depuración sigas 'paso a paso' lo que hace el código hasta que descubras cual es la línea que hace que se cargue nuevamente la forma hija.

 :comp:

445
Visual Basic 6.0 e inferiores / Re: Hacer Una Imagen .wmf Para Un Formmdi
« en: Lunes 17 de Octubre de 2005, 21:41 »
Puedes hacerlo con Microsoft PowerPoint y guardar la imagen en formato emf que es el formato de Metarchivo de Windows mejorado.
Debes conocer como manejar edición de objetos, líneas y curvas.
A mi se le haría más fácil hacerlo con CorelDraw y grabarlo después en formato emf
También el Corel trae un programa adjunto llamado CorelTrace que trasformaría la imagen bitmap en líneas y curvas.

 :comp:

446
Visual Basic 6.0 e inferiores / Re: Mas Inno Setup
« en: Lunes 17 de Octubre de 2005, 21:15 »
A mi criterio, lo mejor que puedes hacer es basarte en el el archivo SETUP.LST
Si aparece en el listado una instrucción 'DLLSelfRegister' debe registrarse.
Si el archivo DLL u OXC sabes que es exclusivo de tu aplicación y ninguna otra lo usará, puedes dejarlo en el fólder de tu programa.
Si el archivo aparece con la instrucción Shared, debe de ir en System32.
Existen sus excepciones en archivos muy especiales como por ejemplo:

Código: Text
  1. File31=@DAO350.DLL,$(MSDAOPath),$(DLLSelfRegister),$(Shared),4/28/98 12:00:00 AM,570128,3.51.1608.0
  2.  
  3.  

Ya que existe en un fólder especial (MSDAOPath) para este tipo de archivos en C:\Archivos de programa\Archivos comunes\Microsoft Shared\DAO y si no colocas el archivo en su lugar puede haber conficto entre las distintas versiones que existen.

 :comp:

447
Visual Basic 6.0 e inferiores / Re: "" Insertar Un Ejecutable Dentro De Otro ""
« en: Sábado 15 de Octubre de 2005, 01:48 »
Te elaboré un pequeño programa para demostrate como se toma cualquier archivo y se coloca en una variable de cadena de texto y después se puede volver a guardar.
Te adjunto el código fuente.

 :comp:

448
Visual Basic para principiantes / Re: Cambiar Foco Del Dtpicker
« en: Sábado 15 de Octubre de 2005, 01:06 »
La información que proporcionas es muy escasa para saber cual es el problema.

El método Setfocus es el que debes usar en cualquier evento, sea Keypress o algún otro, por ejemplo

    txtNameID.SetFocus

Revisa que el control al que le vas a pasar el foco esté visible y tenga la propiedad Enabled=true
Indica si aparece algún error al mover el foco de un objeto a otro.

 <_<

449
Visual Basic 6.0 e inferiores / Re: Convertir Varchar A Integer
« en: Sábado 15 de Octubre de 2005, 00:57 »
Disculpa la ignorancia, ¿que es un 'primary key varchar' ?

 ;)

450
Visual Basic 6.0 e inferiores / Re: Generar Un Rango De X A Y Numero
« en: Viernes 14 de Octubre de 2005, 21:22 »
Esto funciona

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3.     Dim i As Double
  4.     For i = 999999300406651 To 999999300406701
  5.        Text1 = Text1 & i & vbCrLf
  6.     Next i
  7. End Sub
  8.  
  9.  
:)

Páginas: 1 ... 16 17 [18] 19 20 ... 26