|
|
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 ... 4 5 [6] 7 8 ... 26
126
« en: Martes 27 de Noviembre de 2007, 00:13 »
Hay dos cosas que hace falta que digas. Si tienes en el script del Inno Setup el MDAC(MDAC_TYP.EXE). Y de donde tomaste la información de los .ocx y .dll que se registran con tu aplicación. La información más fidedigna de los .ocx y .dll se toma del Setup.lst después de empaquetar con el VB6. 
127
« en: Lunes 26 de Noviembre de 2007, 18:10 »
Con un control Timer y con un DateDiff (Función), aquí en el foro encontrarás discusiones del cálculo de tiempo en minutos.
128
« en: Domingo 25 de Noviembre de 2007, 23:35 »
No conozco ninguna instrucción en VB que permita hacer lo que dices. Si alguien más lo sabe, espero nos lo diga.
129
« en: Domingo 25 de Noviembre de 2007, 23:32 »
Si tu aplicación maneja base de datos y es tipo ADO. Probablemente te hace falta instalar Microsoft Data Access Components (MDAC) la última versión es la 2.8 En este sitio la puedes descargar. http://www.microsoft.com/downloads/details...&displaylang=esEs difícil ayudarte ya que proporcionas pocos datos de lo que hace tu aplicación, que controles usa y lo que has intentado hacer para resolver el problema.
130
« en: Viernes 23 de Noviembre de 2007, 06:18 »
131
« en: Martes 20 de Noviembre de 2007, 17:14 »
Este código lo encontré en PSC, y le agregué el código del Path. Option Explicit
'This code is developed by Ivan Uzunov
'e-mail: kicheto@goatrance.com
'Just add this code on a form add a Command1 and press F5
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Sub Command1_Click()
Dim WallPaper As Long
Dim strAppPath As String
' Always set working directory to directory containing the application.
ChDrive CurDir(App.Path)
ChDir App.Path
strAppPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "")
'Just change "C:\REDCAP.bmp" with a existing bitmap on your computer
WallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strAppPath & "REDCAP.bmp", 0)
End Sub
Te recomiendo que no escribas "Pero gracias de todas formas" porque das a entender que ya no te interesa otra contestación y cierras la discusión.
133
« en: Martes 20 de Noviembre de 2007, 07:43 »
Dale una revisada al capítulo 8 de este curso de VB http://www.telecable.es/personales/jrubi/index.htm?curso.htmEs un ejemplo muy sencillo. El uso que yo le doy es para abrir, con un doble clic, un archivo de texto que se muestre en el explorador de Windows. Para esto hay que asociar tu aplicación con la extensión del archivo. Te adjunto además el código de un proyecto que me encontré en Internet a modo de ejemplo de lo que te digo. Las explicaciones del código fuente están en inglés, espero las entiendas.
134
« en: Lunes 19 de Noviembre de 2007, 01:08 »
La siguiente rutina muestra como puede detenerse otra rutina en el programa. Coloca en una forma 2 botones y una etiqueta y coloca el siguiente código. Option Explicit Dim blnStop As Boolean Private Sub Command1_Click() Dim lngCnt As Long For lngCnt = 1 To 10000000 Label1.Caption = lngCnt DoEvents If blnStop Then blnStop = False Exit For End If Next lngCnt End Sub Private Sub Command2_Click() blnStop = True End Sub
135
« en: Viernes 16 de Noviembre de 2007, 18:41 »
Solo se me ocurre que calcules la resolución de la pantalla y cambies el tamaño de la forma para ocupe toda la pantalla excepto el área de la barra de tareas.
136
« en: Viernes 16 de Noviembre de 2007, 01:07 »
Es probable que no puedas hacerle modificaciones a la instalación efectuada con el empaquetador del VB6. Mejor cambia de instalador, el Inno Setup es un muy buen instalador. Haz una búsqueda en este foro con la palabra Inno Setup para que te enteres de todas la discusiones que existen al respecto de este instalador.
137
« en: Miércoles 14 de Noviembre de 2007, 04:26 »
Esto es lo que dice el sitio Planet Source Code: ¿Que es Visual Basic?
Visual Basic (VB) es una herramienta para Desarrollo Rápido de Aplicaciones que permite a los programadores crear aplicaciones para Windows en muy poco tiempo. Es el lenguaje de programación más popular en el mundo y existen más programadores y líneas de código que cualquiera de sus más cercanos competidores.
138
« en: Miércoles 14 de Noviembre de 2007, 02:16 »
Puede ser posible colocar 2 programas en un mismo fólder de instalación. Se puede con Inno Setup. No se si es posible hacer 2 instalaciones independientes con un solo instalador.
139
« en: Miércoles 14 de Noviembre de 2007, 02:11 »
No sé porqué estás revisando el setup1, para poder finalizar el instalador. El archivo que mencionas 'c:\winnt\st6unst.001' pertenece al desinstalador y no al instalador. Esta es una explicación detallada de como activar la opción en VB6 para hacer un paquete de instalación.
En VB6 y tu proyecto abierto, localiza en el menú 'Complementos' la opción que se llama 'Administrador de complementos' verás aparecer una ventana con Título 'Administrador de complementos'. Haz un clic en 'Asistente de distribución y empaquetado' y después en el Frame 'Comportamiento de carga' selecciona 'Cargado/Descargado' y 'Cargar al iniciar' y después haz clic en botón 'Aceptar'.
Ahora en el menú 'Complementos' de VB aparece la opción 'Asistente de distribución y empaquetado' con lo que podrás hacer tu instalación, solo sigue las instrucciones.
Si lo anterior no es lo que buscabas, entonces necesitas darnos más detalles del porqué estas tratando de modificar el setup1.
140
« en: Miércoles 14 de Noviembre de 2007, 01:58 »
141
« en: Martes 13 de Noviembre de 2007, 06:26 »
Te recomiendo que cuando hagas una pregunta de otro tema, abras una nueva discusión. También debes de indicar que tipo de controles estás usando.
142
« en: Domingo 4 de Noviembre de 2007, 16:05 »
En lugar de usar vbModal usa vbModeless Private Sub Command1_Click() Form2.Show vbModeless End Sub
Private Sub Command1_Click() Form3.Show vbModeless End Sub
143
« en: Domingo 4 de Noviembre de 2007, 02:06 »
El siguiente código te sirve para grabar lo existente en una caja de texto en donde tengas todo el currículum. intFreeFile = FreeFile Open App.Path & "\MiCurriculum.txt" For Output As intFreeFile Print #intFreeFile, CurriculumCompleto.Text Close intFreeFile
Si tienes el currículum en una variable cambia lo siguiente: Print #intFreeFile, MiVariable
144
« en: Sábado 3 de Noviembre de 2007, 04:17 »
Difícil para mi saber que hace esta función, sin tener el resto del código. Pero te doy algunas ideas. Primero, debes de formatear el código para que sea fácil de revisar por ejemplo: Public Function RECIBOSXCATEGORIA(idcat As Integer, numeroinicial As Long, dia As Integer, mes As Integer, año As Integer) As Collection Dim COLFAMILIAR As Collection Dim COLTITULAR As Collection Set COLFAMILIAR = clpAfiliado2.CargarTodos Set COLTITULAR = clpAfiliado1.CargarTodos Dim i, j, X As Long For i = 1 To COLFAMILIAR.Count For j = 1 To COLTITULAR.Count If idcat = COLTITULAR.Item(j).IdCategoria And idcat = COLFAMILIAR.Item(i).IdCategoria Then X = 0 If COLFAMILIAR.Item(i).ID = COLTITULAR.Item(j).ID Then Set clreciboCat1 = New cReciboCat1 X = 1 If X = 1 Then X = 2 clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre End If ElseIf X = 2 Then X = 3 clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre End If ElseIf X = 3 Then X = 4 clreciboCat1.NombreFamiliar3 = COLFAMILIAR.Item(i).nombre End If If X = 4 Then X = 5 clreciboCat1.NombreFamiliar4 = COLFAMILIAR.Item(i).nombre End If If X = 5 Then X = 6 clreciboCat1.NombreFamiliar5 = COLFAMILIAR.Item(i).nombre End If If X = 6 Then X = 7 clreciboCat1.NombreFamiliar6 = COLFAMILIAR.Item(i).nombre End If If X = 7 Then X = 8 clreciboCat1.NombreFamiliar7 = COLFAMILIAR.Item(i).nombre End If If X = 8 Then X = 9 clreciboCat1.NombreFamiliar8 = COLFAMILIAR.Item(i).nombre End If If X = 9 Then X = 10 clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre End If If X = 10 Then X = 11 clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre End If If X = 11 Then X = 11 clreciboCat1.NombreFamiliar11 = COLFAMILIAR.Item(i).nombre Set CLCAT = CLDCAT.Cargarxid(COLFAMILIAR.Item(i).IdCategoria) clreciboCat1.ID = CLDCAT.NuevoID clreciboCat1.numeroinicial = numeroinicial clreciboCat1.Numero = cldrecibocat.Nuevonumero clreciboCat1.nombre = COLTITULAR.Item(j).nombre clreciboCat1.Valor = CLCAT.Valor clreciboCat1.Iva = CLCAT.Iva clreciboCat1.Total = CLCAT.Iva + CLCAT.Valor clreciboCat1.Categoria = CLCAT.nombre clreciboCat1.Direccion = COLTITULAR.Item(j).Direccion clreciboCat1.Telefono = COLTITULAR.Item(j).Telefono clreciboCat1.mes = mes clreciboCat1.año = año clreciboCat1.dia = dia clreciboCat1.IdCategoria = CLCAT.ID RECIBOSXCATEGORIA.Add clreciboCat1 cldrecibocat.Alta (clreciboCat1) End If Set clrecibocat = Nothing Next Next End Function
Segundo, revisa paso a paso el código o coloca interrupciones y ejecuta el código con F5 hasta que encuentres el problema.
145
« en: Sábado 3 de Noviembre de 2007, 03:50 »
Tendrías que unir los texto de todos los TextBox con algo parecido a esto: CurriculumCompleto.Text = Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
146
« en: Martes 30 de Octubre de 2007, 21:43 »
El Win XP tiene los archivos del RunTime del VB6, por lo que programas pequeños funcionan sin problema, tal y como lo dices. Pero para programas con base de datos y archivos OCX adicionales, necesitas el instalador.
147
« en: Lunes 29 de Octubre de 2007, 16:25 »
Hacer un ejecutable y pasarlo a otra máquina no funciona. Debes de hacer un instalador para que además del ejecutable se instalen todo los demás archivos necesarios .OCX y DLLs. En la siguiente discusión se indica como hacer un instalador. http://foros.solocodigo.com/index.php?show...57&hl=asistente
148
« en: Lunes 29 de Octubre de 2007, 16:13 »
Posiblemente tengas un VB6 incompleto o de demostración. Consigue un VB6 completo.
149
« en: Sábado 27 de Octubre de 2007, 06:32 »
También tengo VB6 y Crystal Report 8 Primero elaboro el reporte en el Crytal Report, lo guardo y después lo llamo desde VB con una rutina como la siguiente: ' Reporte de CP Reparaciones Sub PrintInReport(strNumBoleta As String) Dim strReport As String Dim strReportFilename As String Dim strTitle As String On Error GoTo ErrorPrintReport strReport = "Entrada.rpt" strReportFilename = gstrAppPath & strReport If Not FileExists(strReportFilename) Then gstrMsg = "No es posible mostrar el reporte." & _ "Falta el archivo de Reporte: " & strReport & vbCrLf & _ "Debe estar en el mismo directorio que " & gstrAppTitle MsgBox gstrMsg, vbCritical End If strTitle = "Reporte de Entrada" 'open and fill report With CrystalReport .ReportFileName = strReportFilename '.Password = gstrPG .Password = Chr(10) & gstrPG .ReportTitle = strTitle .DataFiles(0) = gstrDBMainLargeFName .SelectionFormula = "{Identificacion.NumBoleta}='" & strNumBoleta & "'" .PrinterCopies = 1 .PrinterCollation = crptDefault .WindowControls = True .WindowBorderStyle = crptSizable .WindowControlBox = True '.WindowState = crptNormal .WindowState = crptMaximized .WindowTitle = .ReportFileName .Destination = crptToWindow Screen.MousePointer = vbDefault .PrintReport If .LastErrorNumber > 0 Then gstrMsg = "Error en Reporte: " & .LastErrorString & .LastErrorNumber MsgBox gstrMsg End If End With Exit Sub ErrorPrintReport: GenErrorHandler "frmMain/PrintMainReport", Err.Number, Err.Description Debug.Print "Error en Crystal: " & CrystalReport.LastErrorString & CrystalReport.LastErrorNumber End Sub
Espero te sirva.
150
« en: Sábado 27 de Octubre de 2007, 06:25 »
También tengo VB6 y Crystal Report 8 Te adjunto el archivo completo de instalación de Inno Setup de mi programa de "CP Reparaciones". Notarás que tengo un listado reducido de archivos de Crystal Report ya que no uso todas las opciones de exportación que aparecen al momento de imprimir el reporte. Para saber todos los archivos que pueden ir en el archivo de instalación debes hacer un paquete de distribución con el VB6 y revisar el archivo Setup.lst para orientarte mejor en Inno Setup, revisa las siguientes discusiones: http://foros.solocodigo.com/index.php?show...6&hl=inno+setuphttp://foros.solocodigo.com/index.php?show...3987&hl=sagutxo
Páginas: 1 ... 4 5 [6] 7 8 ... 26
|
|
|
Mostrar Mensajes
