|
|
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 ... 6 7 [8] 9 10 ... 26
176
« en: Domingo 15 de Julio de 2007, 00:34 »
Tengo un proyecto que muestra como adaptar el tamaño de una imagen al tamaño del PictureBox. Te lo adjunto.. 
177
« en: Miércoles 11 de Julio de 2007, 06:49 »
178
« en: Viernes 29 de Junio de 2007, 22:50 »
Es normal que se generen ese tipo de archivos temporales. No creo que puedas deshacerte de ellos.
179
« en: Lunes 25 de Junio de 2007, 19:53 »
181
« en: Miércoles 20 de Junio de 2007, 19:29 »
No tengo modo de comprobar el código, espero te de una idea. La rapidez que tiene la notarás enseguida. Dim FSO As New Scripting.FileSystemObject Dim fich As Scripting.File Dim ts As Scripting.TextStream Dim sArchivo As String Dim sAux As String '---------------------------- Dim strArray() As String Dim lngCnt As Long '--------------------------- 'Busca el archivo a depurar Set fich = FSO.GetFile(sRuta) 'Abre el archivo en modo lectura Set ts = fich.OpenAsTextStream(ForReading) 'Lee una por una todas las lineas del archivo de texto Do While Not ts.AtEndOfStream sAux = ts.ReadLine If Trim(sAux) <> "" Then If CDate(Mid(sAux, 1, 10)) >= (CDate(Mid(Now, 1, 10)) - iDiasConservados) Then If Len(sArchivo) = 0 Then sArchivo = sAux Else 'sArchivo = sArchivo & vbCrLf & sAux '---------------------------- strArray(lngCnt) = sAux lngCnt = lngCnt + 1 If lngCnt >= UBound(strArray) Then ReDim Preserve strArray(UBound(strArray) + 1000) As String End If '---------------------------- End If Else iEntradasDepuradas = iEntradasDepuradas + 1 End If End If Loop '--------------------------- ReDim Preserve strArray(lngCnt) As String sArchivo = Join(strArray, vbCrLf) '---------------------------
Me comentas si te sirvió.
182
« en: Miércoles 20 de Junio de 2007, 16:45 »
Explica como grabas en un string. Posiblemente el programa se cuelgue cuando concatenas cadenas de texto como el siguiente ejemplo: strAlmacena = strAlmacena & strTexto Muestra algo del código que cuelga el equipo. Para saber de que hablas.
183
« en: Domingo 17 de Junio de 2007, 03:20 »
Muchas gracias, puede adaptar el código. Funciona bien.
184
« en: Sábado 16 de Junio de 2007, 20:12 »
Podrías decirnos como lo hiciste. Yo no he encontrado como hacer que no aparezca el menú, solo he podido hacerle Lock. 
185
« en: Viernes 15 de Junio de 2007, 16:21 »
El Crystal Report 8 lo puedes manejar como un reporte externo como el que mencionas, o como un reporte que se elabora dentro de VB con ADO. Manejo los reportes como archivos externos ya que la versión 8 de Crystal Report se bloquea frecuentemente cuando se maneja como reporte dentro del VB. El parámetro SelectionFormula lo manejo como si fuera un Query, si explicas un poco más lo que deseas, tal vez pudiera ayudarte.
187
« en: Lunes 4 de Junio de 2007, 17:20 »
Primero verifica que tengas el último Service Pack de VB6, SP6.
188
« en: Martes 22 de Mayo de 2007, 17:05 »
Si te gusta Visdata para hacer las bases de datos, en esta página se indica que hacer para que Visdata pueda leer y escribir bases de datos Access 2000. http://support.microsoft.com/kb/252438/esTambién puedes hacer lo que necesitas con el Access de Office 2000, 2003 o 2007
189
« en: Lunes 21 de Mayo de 2007, 23:56 »
Otra forma: LbTotalHrs.Caption = DateDiff("h", dtmHoraEntrada, dtmHorasalida)
190
« en: Domingo 20 de Mayo de 2007, 17:04 »
En las propiedades del label: en DataSource selecciona el nombre de DataControl y en propiedad DataField el nombre del campo.
191
« en: Sábado 19 de Mayo de 2007, 18:08 »
¿En donde vas a guardarlas? ¿En una variable? ¿En el registro? ¿En un archivo?
192
« en: Miércoles 16 de Mayo de 2007, 22:39 »
Hay dos formas texto & vbCrLf & texto texto & vbNewLine & texto
193
« en: Sábado 12 de Mayo de 2007, 07:01 »
Te hace falta la referencia "Microsoft Word XX Object Library" Las XX es la versión según el Office que tengas.
194
« en: Viernes 4 de Mayo de 2007, 00:49 »
Haz tratado en Excel de "Guardar como" texto (delimitado por tabulaciones), texto (delimitado por comas) o Texto con formato (delimitado por espacios), para posteriormente tomar los datos en VB. Con VB puedes elaborar una base de datos Access e introducir los datos importándolos del archivo que exportes de Excel.
195
« en: Lunes 30 de Abril de 2007, 02:37 »
El problema es el siguiente, en la línea que tiene: Dim x, y, z As Integer VB declara a X y Y como variantes y a Z como integer. Suponiendo que los valores de Text1 sea =1 Text2=2 y Text3=3 En esta línea a = (x + y + z) / 3 Sucede lo siguiente: Se concatena X y Y como texto y el resultado es una cadena con valor de "12" a la cual se le suma 3 (el valor de z) que da como resultado 15 y si lo divides entre 3 el resultado es A=5 La declaración múltiple la debes hacer así: Dim x As Integer, y As Integer, z As Integer
196
« en: Miércoles 18 de Abril de 2007, 16:04 »
197
« en: Jueves 12 de Abril de 2007, 22:50 »
Si te refieres al control Data, entonces debes de usar la siguiente línea de código en el Form_Load Data1.DatabaseName = App.Path & "\Inventariolibros.mdb"
En el cuadro de propiedades del Data control, en la propiedad DatabaseName puedes dejar vacío o colocar "Inventariolibros.mdb" (sin las comillas).
198
« en: Jueves 12 de Abril de 2007, 21:23 »
Otro tip: Siempre uso en el Form_load el siguiente código: ChDrive CurDir(App.Path) ChDir App.Path
Estas instrucciones hacen que el directorio de trabajo de tu aplicación sea el directorio donde se encuentra la aplicación. Si colocas el código anterior, entonces no necesitarás App.Path y el código del comentario anterior quedaría así: Open "Dia.dat" For Input As #1
Pero con este método pudiera presentarse problemas si tu aplicación maneja otros directorios.
199
« en: Jueves 12 de Abril de 2007, 21:15 »
Open App.path & "\Dia.dat" For Input As #1
200
« en: Martes 10 de Abril de 2007, 01:11 »
Páginas: 1 ... 6 7 [8] 9 10 ... 26
|
|
|
Mostrar Mensajes
