|
|
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 ... 15 16 [17] 18 19 ... 26
401
« en: Martes 29 de Noviembre de 2005, 00:54 »
La siguientes rutinas, cambia de color al textbox, regresa al usuario al mismo TextBox y le permite solo se equivoque 2 veces, si esto sucede entonces en forma predeterminada escribe la fecha actual. Private Sub txtFechaDeLaHistoria_GotFocus() txtFechaDeLaHistoria.BackColor = &HC0FFFF End Sub Private Sub txtFechaDeLaHistoria_LostFocus() Static Cnt As Integer If Not IsDate(txtFechaDeLaHistoria.Text) Then gstrMsg = "La fecha de la nota de consulta no es válida. Ejemplo: 24/12/2005 (día/mes/año)" MsgBox gstrMsg, vbCritical, gstrAppTitle If txtFechaDeLaHistoria.Text = "" Then txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy") End If If Cnt >= 1 Then txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy") Cnt = 0 End If Cnt = Cnt + 1 txtFechaDeLaHistoria.SetFocus Exit Sub End If txtFechaDeLaHistoria.BackColor = &H80000005 End Sub
----------------------------------------------------------- 
402
« en: Viernes 25 de Noviembre de 2005, 22:17 »
En el control ImageList, del cual vas a tomar las imágenes para hacer el ToolBar, hay opciones para cambiar el tamaño de los íconos: 16x16, 32x32 y 48 x 48 ----------------------------------------------
403
« en: Martes 22 de Noviembre de 2005, 19:13 »
404
« en: Jueves 17 de Noviembre de 2005, 17:10 »
Ponlo en el mismo directorio que la aplicación. Con el objeto App puedes saber donde está el directorio de la aplicación. Por ejemplo: strMiFolder = App.Path  -------------------------------------------------
405
« en: Martes 15 de Noviembre de 2005, 23:31 »
Ahora si te explicaste, si se puede lograr meter todo en un archivo binario. Te adjunto un ejemplo de como trabajar con archivos binarios. Pero para lo que deseas, debes de hacer un código para saber el tamaño de cada uno de los archivos que introduces en archivo común (.txt), puedes introducir el tamaño en el mismo archivo binario, o en otro separado. Espero la información te sea de utilidad.
406
« en: Lunes 14 de Noviembre de 2005, 20:57 »
No te entiendo cuando dices que no aparece la función refresh. Pero en el código que muestras tienes errores en la línea: DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = ' " & Rubro & " ' "
Debe ser sin los espacios: después de las comillas simples, y antes de la misma al final del código. DataEnvironment2.rsCommand1.Source = "SELECT * FROM Proveedores WHERE Rubro = '" & Rubro & "'"
408
« en: Sábado 12 de Noviembre de 2005, 02:33 »
Haz explicado un poco mejor, pero de todo lo que dices parece ser que el problema es: "si de todas formas va a depender de un path". Si este es el caso, entonces no guardes los nombre de archivo con el path, guarda solo el nombre de archivo sin el path. Para hacer esto coloca este código en Form_load ó Form_Initialize gstrAppPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") Para abrir cada uno de los archivos usa: strNombreCompletoDeArchivo = gstrAppPath & strNombreDeArchivo ---------------------- Otra forma de lograrlo es hacer que el programa lea cualquier archivo que desees en el directorio de la aplicación, con estos comandos: Usa esto en Form_load ó Form_Initialize ChDrive CurDir(App.Path) ChDir App.Path Espero esto te sirva
409
« en: Viernes 11 de Noviembre de 2005, 22:28 »
Guardar en el mismo programa en forma práctica no es posible¿?. Ve pensando en una base de datos para guardar los mensajes.
410
« en: Viernes 11 de Noviembre de 2005, 22:24 »
Entonces usa algo así Dim lngReponse As Long lngReponse = Shell("Miprograma.exe", vbMaximizedFocus)
411
« en: Viernes 11 de Noviembre de 2005, 16:01 »
La pregunta la iniciaste en una discusión anterior, por favor dale siguimiento en la discusión anterior. 
412
« en: Jueves 10 de Noviembre de 2005, 23:17 »
Tal vez con ShellExecute pueda hacerse. El archivo es executable o archivo swf 
413
« en: Jueves 10 de Noviembre de 2005, 18:36 »
Lo que posiblemente es el problema son estas líneas. Set conteo = fso.createtextfile(App.Path & "\conteo.txt", True) conteo.writeline (j) conteo.Close
No entiendo la finalidad de esas líneas de código, te sugiero eliminarlas, pero si necesitas guardar el conteo, hazlo en una variable de array, numérica o de texto y después del LOOP la escribes al archivo conteo.txt.
414
« en: Miércoles 9 de Noviembre de 2005, 21:30 »
Lo mejor que puedes hacer es empaquetar primero la instalación con el empaquetador de VB6, en el fólder donde se hace la instalación (Paquete) encontrarás un fólder con nombre 'Support' ahí están todos los archivos que necesita el programa con excepción de los que son propios del paquete de instalación de vb6 como son: miprograma.bat, miprograma.ddf, Setup1.exe, Setup.exe, Setup.lst, St6unst.exe y Vb6stkit.dll
415
« en: Lunes 7 de Noviembre de 2005, 05:13 »
Cuando se hace una búsqueda por fecha en SQL el formato es "#mm/dd/yyyy#" --> Mes/día/año Uso las siguientes variables en un módulo: Public Const gstrFrmtforDBDate As String = "mm/dd/yyyy" 'Para búsqueda SQL Public Const gstrShowDate As String = "dd/mm/yyyy" 'Para mostrar a usuario
Y usaría algo así en SQL: "select * from pedidos where fecha = #" & Format(MiFecha, gstrFrmtforDBDate) & "#"
Cuando muestro algo en pantala, por ejemplo en un textbox lo muestro así: Text1.text = Format(MiFecha, gstrShowDate)
416
« en: Miércoles 2 de Noviembre de 2005, 21:13 »
 Va en Form_Initialize
417
« en: Miércoles 2 de Noviembre de 2005, 18:36 »
He estado trabajando mis aplicaciones red de la forma que describes en la segunda opción. Si deseas te ayudo con mi experiencia en ese caso. Por ejemplo tengo un archivo que es una presentación de PowerPoint que les doy a mis usuarios para que hagan este tipo de instalación. Lo coloco como adjunto, espero te sirva. Además siempre coloco en el evento Activate de la forma principal el siguiente código: ' Trabajar siempre en el directorio de la aplicación. On Error Resume Next ChDrive CurDir(App.Path) ChDir App.Path If Err > 0 Then gblnEnRed = True 'El programa está funcionando a través de la red End If
Siempre hago que el programa trabaje en el directorio de la aplicación, de modo que el programa siempre sabe donde están las bases de datos. Pero creo, según recuerdo, la línea ChDir App.Path es la genera un error solo cuando estás corriendo la aplicación desde otro equipo. De esta manera me doy cuenta cuando el programa corre desde otro equipo. Aún no sé como se puede detectar de otra manera cuando se está en red en esta opción. Espero esta información te sea útil.
418
« en: Miércoles 2 de Noviembre de 2005, 04:36 »
Intenta esto: SQL = "Delete * From registro Where clave='" & Text1.Text & "' AND carrera='" & Text2.Text & "'"
419
« en: Martes 1 de Noviembre de 2005, 22:23 »
Encontré la solución del problema. ScaleMode = vbPixels ' Coloca la escala a pixels. AutoRedraw = True ' AutoRedraw On Picture1.AutoRedraw = True Picture1.PaintPicture Image1.Picture, 0, 0 SavePicture Picture1.Image, gstrAppPath & "picture.bmp"
Fijate que en SavePicture cambias la propiedad de Picture1. de Picture a Image.
420
« en: Lunes 31 de Octubre de 2005, 23:36 »
He revisado la web en busca de código de convertidores, es poco probable que encuentres código para hace este tipode conversión. Es más fácil que busques un OCX, pero te va a costar. 
421
« en: Lunes 31 de Octubre de 2005, 23:03 »
1 .- Función LOF Sintaxis LOF(númeroarchivo) Devuelve un tipo Long que indica el tamaño, en bytes, de un archivo abierto mediante la instrucción Open. fIndex = FreeFile Open strFilename For Binary As #fIndex LenFile = LOF(fIndex) Close #fIndex
2. - FileLen (Función) Sintaxis FileLen(nombre_ruta) Devuelve un tipo Long que especifica la longitud de un archivo en bytes. LenFile =FileLen(Mi archivo_nombre_ruta)
422
« en: Lunes 31 de Octubre de 2005, 18:46 »
Puedes hacerlo cuando presionas enter o al perder el foco. Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 37 End If End Sub Private Sub Combo1_LostFocus() If Right$(Combo1.Text, 1) <> "%" Then Combo1.Text = Combo1.Text & "%" End If End Sub
423
« en: Lunes 31 de Octubre de 2005, 18:21 »
424
« en: Lunes 31 de Octubre de 2005, 17:54 »
Te equivocas en cuanto a que el código que coloqué Private Sub Command1_Click() Dim inctCnt As Integer Dim intSumaToTal As Integer Dim strTemp As String For inctCnt = 1 To Len(Text1.Text) intSumaToTal = intSumaToTal + Mid$(Text1.Text, inctCnt, 1) Next inctCnt strTemp = Trim(Str(intSumaToTal)) intSumaToTal = 0 For inctCnt = 1 To Len(strTemp) intSumaToTal = intSumaToTal + Mid$(strTemp, inctCnt, 1) Next inctCnt Text2.Text = intSumaToTal End Sub
Funciona con cualquier resultado que se tenga en la primer suma. No importa el número de cifras que se obtengan en el primer resultado. Esta en la línea que hace ese trabajo. For inctCnt = 1 To Len(strTemp)
Lo bueno es que las dos rutinas funcionan.
425
« en: Lunes 31 de Octubre de 2005, 01:24 »
Te hice la tarea: Private Sub Command1_Click() Dim inctCnt As Integer Dim intSumaToTal As Integer Dim strTemp As String For inctCnt = 1 To Len(Text1.Text) intSumaToTal = intSumaToTal + Mid$(Text1.Text, inctCnt, 1) Next inctCnt strTemp = Trim(Str(intSumaToTal)) intSumaToTal = 0 For inctCnt = 1 To Len(strTemp) intSumaToTal = intSumaToTal + Mid$(strTemp, inctCnt, 1) Next inctCnt Text2.Text = intSumaToTal End Sub
Páginas: 1 ... 15 16 [17] 18 19 ... 26
|
|
|
Mostrar Mensajes
