|
|
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 ... 22 23 [24] 25 26
576
« en: Sábado 12 de Junio de 2004, 16:19 »
La agenda me parece bastante buena, pero para iniciar marca un error de no encontrar las bases de datos, te sugiero lo siguiente para evitar ese error, además puedas colocar la agenda en cualquier directorio sin que se generen errores. Coloca esto en el inicio del evento Form_Initialize, antes de cargar los primeros datos de la agenda. ' Para que no se genere un error cuando la aplicación se abre en una red local On Error Resume Next ' Siempre tener como directorio de trabajo, en donde está la aplicación ChDrive CurDir(App.Path) ChDir App.Path
Retira la ruta de acceso de la propiedad DatabaseName de los dos DataControl para que en lugar de: D:\Temp\basura\a\Agenda.mdb Quede así: Agenda.mdb Con lo anterior solo debes asegurarte que la base de datos se encuentre en el mismo directorio que la aplicación. Además cuando revises el proyecto y quieras agregar o cambiar enlaces con los DataControl debes correr la aplicación, al menos una vez, para que el directorio de trabajo sea el del proyecto, o te marcará error por no encontrar la base de datos. --------------------- "Corrector Ortográfico de Notas", freeware, utilidad para programadores. Programado en VB6, con diccionario propio. http://geocities.com/igmario/index2.html
577
« en: Lunes 17 de Mayo de 2004, 21:58 »
Revisar Versiones Es probable que el problema sen las diferentes versiones que existen de MSCAL.OCX Verifica en los siguientes directorios: C:\WINDOWS\SYSTEM32 C:\Archivos de programa\Microsoft Office\Office Al instalar MS Office cambia la ruta de la cual se toma el archivo, en este caso a: C:\Archivos de programa\Microsoft Office\Office Cuando instalas tu programa se instala el archivo MSCAL.OCX en: C:\WINDOWS\SYSTEM32 Lo que debes hacer es que la versión sea la misma en los 2 directorios. 
578
« en: Domingo 16 de Mayo de 2004, 02:02 »
Estas son rutinas para CommonDialog 'Abrir archivo gstrDialogTitle = "Abriendo documento..." gstrFilter = "Todos los archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt|RTF arch. (*.rtf)|*.rtf|" gintFilterIndex = 1 gstrFilename = "*.*" gintDlgAction = 1 Call FileSelecter
'Guardar archivo gstrDialogTitle = "Guardando documento como" gstrFilter = "Todos los archivos (*.*)|*.*|Docs. de texto (*.txt)|*.txt|RTF arch. (*.rtf)|*.rtf|" gintDlgAction = 2 gintFilterIndex = 2 gstrFilename = LCase$(gstrFilename) Call FileSelecter
'Seleccionar archivo Sub FileSelecter() On Error GoTo ErrorFileSelecter gstrFullFilename = "" frmMainMDI.cdlgMain.CancelError = True frmMainMDI.cdlgMain.Filter = gstrFilter frmMainMDI.cdlgMain.DialogTitle = gstrDialogTitle frmMainMDI.cdlgMain.FilterIndex = gintFilterIndex frmMainMDI.cdlgMain.FileName = gstrFilename frmMainMDI.cdlgMain.InitDir = gstrWorkDir frmMainMDI.cdlgMain.DefaultExt = "txt" frmMainMDI.cdlgMain.Action = gintDlgAction gstrFullFilename = frmMainMDI.cdlgMain.FileName gstrCurrentPath = CurDir gstrFilename = ExtractFilename(gstrFullFilename) Exit Sub ErrorFileSelecter: If Err <> cdlCancel Then GenErrorHandler "modFile/FileSelecter() ", Err.Number, Err.Description End If Exit Sub End Sub
Cambia las variables con las que tienes.
579
« en: Sábado 15 de Mayo de 2004, 19:25 »
Para que una instalación de InnoSetup funcione en Win200, XP debes colocar esto en sección Setup [Setup] PrivilegesRequired=admin Para que el Package and Deployment Wizard de V6 funcione en Win200 debes de colocar archivos de la misma versión de los que estén instalados en el ordenador donde se instala la aplicación. En el siguiente enlace hay una explicación más detallada de la manera de hacerlo, pero no es fácil de implementar. http://foros.solocodigo.com/viewthread.php?tid=4850 
580
« en: Jueves 13 de Mayo de 2004, 23:58 »
InnoSetup En este instalador (InnoSetup) debes colocar las mismas dll que se colocan en el instalador de VB, bueno casi todas, hay excepciones como VB6STKIT.DLL y MSVCRT.DLL que no deben colocarse. En todo caso el convertidor de la instalación de VB desde VBP o de LST que encuentras en: http://www.randem.com/innoscript.htmllo hace de manera automática, retirando estos dll, te recomiendo mejor elijas la opción de convertir desde setup.lst. Noté que aparece errores de archivos que faltan pero al compilar el script con InnoSetup no aparece como error. Adjunto un ejemplo de de una conversión de la instalación de una aplicación que maneja Bases de Datos y Cristal Report, para que se den una idea de como queda. Hay que leer la ayuda para entender las opciones, el único problema es que está en inglés. También en el sitio de InnoSetup encuentras información útil.
581
« en: Jueves 13 de Mayo de 2004, 05:27 »
Estoy revisando Inno Setup y las instalaciones han funcionado bien, sin problemas. En la página siguiente encuentras un convertidor de la instalación de VB desde VBP o de LST http://www.randem.com/innoscript.htmlPara que los textos sean en español necesitas el archivo de lenguaje 'SpanishStd.isl' para la última versión de Inno Setup y se coloca en fólder Languages. Les adjunto el archivo. También tienen que colocar lo siguiente en el script de Inno Setup [Languages] Name: nl; MessagesFile: "compiler:Languages\SpanishStd.isl"
582
« en: Lunes 10 de Mayo de 2004, 02:06 »
Para que funcione con Access 2000, debes tener la última actualización de VB6 (SP5) En propiedad Connect debe aparecer esta opción "Access 2000;" Esto funciona en DAO Define estas variables en la forma, como variables de módulo. Dim mdbConsulta As Database Dim mrsHist As Recordset
Coloca esto en Form_Load() Set mdbConsulta = DBEngine.OpenDatabase(strDBFilename, False, False, ";Pwd=MyPwd" ) Set mrsHist = mdbConsulta.OpenRecordset(strSqlQry, dbOpenDynaset) Set datHist.Recordset = mrsHist
Cámbialo de acuerdo a tus variables. datHist es el control data Esto funciona con Access 97 y 2000,
583
« en: Sábado 8 de Mayo de 2004, 19:44 »
Gracias por el ejemplo, pero no funcionaría en un sistema que no tenga Vb6 y Access instalado. 
584
« en: Viernes 7 de Mayo de 2004, 23:28 »
Blag Podrías proporcionarnos un exemplo de un archivo script del programa como Example1.iss que viene con el programa Inno Setup, pero como ejemplo de instalación de algún programa de Visual Basic. Gracias de antemano por la ayuda. 
585
« en: Martes 13 de Abril de 2004, 05:17 »
Yo uso este código para evitar abrir la aplicación 2 veces Private Sub Form_Activate() If App.PrevInstance = True Then Dim SaveTitle As String SaveTitle = App.Title App.Title = "... programa duplicado." frmMain.Caption = "... programa duplicado." Text = "Actualmente está abierta -Título-." Text = Text + vbCrLf + "Sólo es necesario abrir una a la vez." MsgBox Text, vbExclamation, "Advertencia..." AppActivate SaveTitle SendKeys "% R", True End End If End Sub
586
« en: Viernes 9 de Abril de 2004, 00:08 »
Default (Propiedad): Devuelve o establece un valor que determina qué control CommandButton es el botón de comando predeterminado de un formulario. Revisa tu forma, lo más probable es que se trate de que un CommandButton tiene la propiedad Default = true, cambia esta caracteristica en la ventana de propiedades. La propiedad Default del CommandButton es el equivalente a hacer un clic en el botón al presionar INTRO. Visualmente se nota que el CommandButton tiene default cuando su borde es un poco más obscuro.
587
« en: Domingo 4 de Abril de 2004, 01:57 »
En DAO con Control Data los comodines son ? y * para varios 
588
« en: Sábado 27 de Marzo de 2004, 05:40 »
Usa Format Format(expresión, formato) Ejemplo Private Sub Text1_LostFocus() Text1.Text = Format(Text1.Text , "$###.###,##") End Sub
589
« en: Domingo 21 de Marzo de 2004, 03:45 »
Usa FileCopy
Ejemplo
FileCopy source, destination
590
« en: Martes 16 de Marzo de 2004, 23:28 »
En las propiedades del proyecto escribe el nombre del archivo de ayuda o en su caso también coloca esto al iniciar el programa... App.HelpFile = App.Path & "Ayuda.chm"
Lo siguiente va en un menú. Asegurate de que en el Editor de Menús el shortcut sea F1 Private Sub mnuHelpContenido_Click() Dim h As Long On Error Resume Next h = HtmlHelp(Me.hwnd, "Ayuda.chm", HH_DISPLAY_TOPIC, 0&) End Sub
Lo siguiente puede ir en un módulo Bas... Option Explicit 'En Microsoft TechNet puedes encontrar este artículo: 'HOWTO: Use HTML Help API in a Visual Basic 5.0 Application 'PSS ID Number: Q183434 ' 'Aunque la definición de la Enumeración y la primera declaración 'es de las news ' 'Htmlhelp consts Enum HH_COMMAND HH_DISPLAY_TOPIC = &H0 HH_HELP_FINDER = &H0 ' WinHelp equivalent HH_DISPLAY_TOC = &H1 ' not currently implemented HH_DISPLAY_INDEX = &H2 ' not currently implemented HH_DISPLAY_SEARCH = &H3 ' not currently implemented HH_SET_WIN_TYPE = &H4 HH_GET_WIN_TYPE = &H5 HH_GET_WIN_HANDLE = &H6 HH_GET_INFO_TYPES = &H7 ' not currently implemented HH_SET_INFO_TYPES = &H8 ' not currently implemented HH_SYNC = &H9 HH_ADD_NAV_UI = &HA ' not currently implemented HH_ADD_BUTTON = &HB ' not currently implemented HH_GETBROWSER_APP = &HC ' not currently implemented HH_KEYWORD_LOOKUP = &HD HH_DISPLAY_TEXT_POPUP = &HE ' display string resource id ' or text in a popup window HH_HELP_CONTEXT = &HF ' display mapped numeric value ' in dwData HH_TP_HELP_CONTEXTMENU ' Text pop-up help, similar to ' WinHelp's HELP_CONTEXTMENU. HH_TP_HELP_WM_HELP = &H11 ' text pop-up help, similar to ' WinHelp's HELP_WM_HELP. HH_CLOSE_ALL = &H12 ' close all windows opened directly ' or indirectly by the caller HH_ALINK_LOOKUP = &H13 ' ALink version of HH_KEYWORD_LOOKUP End Enum 'HtmlHelp api call 'NOTA: Si se usa esta forma, hay que indicar el último parámetro ' con la palabra ByVal delante... 'Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, ByVal pszFile As String, _ ByVal uCommand As HH_COMMAND, dwData As Any) As Long 'Con esta funciona perfectamente Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, ByVal pszFile As String, _ ByVal uCommand As HH_COMMAND, ByVal dwData As Long) As Long
Lo último lo dejo tal como lo encontré en la red.
591
« en: Martes 16 de Marzo de 2004, 22:59 »
Trim()
If (Trim(Text1.Text) = "play") Then
Text2.Text = "Jugar"
End If
592
« en: Jueves 11 de Marzo de 2004, 05:39 »
Más fácil es usar la funcion StrReverse("") Text2.text = StrReverse(Text1.text ) --------------------- "Corrector Ortográfico de Notas", útil para revisar los textos en los programas. Escrito en Visual Basic, con diccionario propio. http://geocities.com/igmario/index2.html
593
« en: Jueves 11 de Marzo de 2004, 05:27 »
En lugar de usar un comando SQL para buscar, usa esta rutina en el evento clic del dbCombo y no perderás los datos en Data1 Private Sub DBCombo1_Click(Area As Integer) If Area = dbcAreaList Then If DBCombo1.Text <> "" Then If Not Data1.Recordset.BOF And Not Data1.Recordset.EOF Then Data1.Recordset.Bookmark = DBCombo1.SelectedItem End If End If End If Area = 0 End Sub
594
« en: Martes 2 de Marzo de 2004, 05:22 »
El error lo genera Microsoft Calendar Control (MSCal.ocx) para resolver el problema: Haz una búsqueda del siguiente archivo MSCal.dep En Notepad.exe (block de notas) abre el archivo y modifícalo: Retira las letras "Ex" Register=$(DLLSelfRegisterEx) Debe quedar así: Register=$(DLLSelfRegister) Guarda el archivo y nuevamente elabora el paquete de distribución de tu aplicación. --------------------- "Corrector Ortográfico de Notas", útil para revisar los textos en los programas. Escrito en Visual Basic, con diccionario propio. http://geocities.com/igmario/index2.html
595
« en: Viernes 23 de Enero de 2004, 04:56 »
Hay formas más precisas de limitar los caracteres a escribir, este ejemplo solo permite que escribas letras mayúsculas en un textbox, también puedes escribir letras acentuadas. Private Sub txtNombre_KeyPress(KeyAscii As Integer) Dim letters As String Dim strChar As String letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZÑÁÉÍÓÚÜ " strChar = UCase(Chr$(KeyAscii)) If KeyAscii = 8 Then ElseIf InStr(letters, strChar) Then KeyAscii = Asc(strChar) Else KeyAscii = 0 End If End Sub --------------------- "Corrector Ortográfico de Notas", útil para revisar los textos en los programas. Escrito en Visual Basic, con diccionario propio. http://geocities.com/igmario/index2.html
596
« en: Miércoles 21 de Enero de 2004, 04:46 »
Mid$ incompleto
Te hace falta el tercer parámetro de Mid$
Mid(string, start[, length])
If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Len(txtstepp.Text) = 3 Then
lblproci.Caption = "Athlon XP Palomino"
End If
If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Mid(txtstepp.Text, 3, 1) = "d" And Mid(txtstepp.Text, 4, 1) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If
597
« en: Sábado 3 de Enero de 2004, 05:08 »
Usa la instrucción InStr([start, ]string1, string2[, compare]) Dim lngPos As Long Dim strWord As String strWord = "Palabra" 'lngPos posición de la palabra en TextBox lngPos = InStr(1, Text1.Text, strWord)
598
« en: Viernes 19 de Diciembre de 2003, 01:51 »
El error lo genera Microsoft Calendar Control (MSCal.ocx) para resolver el problema: Haz una búsqueda del siguiente archivo MSCal.dep En Notepad.exe (block de notas) abre el archivo y modifícalo: Retira las letras "Ex" Register=$(DLLSelfRegisterEx) Debe quedar así: Register=$(DLLSelfRegister) Guarda el archivo y nuevamente elabora el paquete de distribución de tu aplicación.
599
« en: Sábado 6 de Diciembre de 2003, 05:11 »
 Limitante Me pasó algo parecido y encontré una limitante de tamaño de cadena de 210 caracteres en el SQL. No sé si esto pase en todas las versiones de las bases de datos.
600
« en: Martes 11 de Noviembre de 2003, 02:23 »
Usa IsDate()
Ejemplo:
IF IsDate(txtFechaCaptura.Text) then
Msgbox "Esta es una fecha"
Endif
Páginas: 1 ... 22 23 [24] 25 26
|
|
|
Mostrar Mensajes
