|
|
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 - Brroz
Páginas: 1 ... 27 28 [29] 30 31 ... 43
701
« en: Lunes 29 de Diciembre de 2003, 17:32 »
Fíjate:
1 cm. = 567 Twips
1 mm. = 56.7 Twips
1 '' = 1440 Twips
Luego... 1 mm = 56.7 / 1440 '' = 0,039375 ''.
Chao.
702
« en: Viernes 26 de Diciembre de 2003, 12:28 »
Bo Nadal para ti también Jorge.
Chao.
703
« en: Viernes 26 de Diciembre de 2003, 12:24 »
No comprendo lo que quieres (y no precisamente porque piense que es complicado...), pero si necesitas controlar intervalos de tiempo, lo más sencillo es usar un control Timer.
Suerte.
704
« en: Viernes 26 de Diciembre de 2003, 12:20 »
Sí, Data1.Recordset.FindFirst "Contrato='" &Text1.Text & "'"
Suerte.
705
« en: Viernes 26 de Diciembre de 2003, 12:16 »
Prueba con un SQL de este estilo:
INSERT INTO [C:\RutaDb\HEMPLEADOS.mdb].hora SELECT * FROM hora
Por supuesto que este sql habría que ejecutarlo en la base de datos 'Empleados'.
Suerte.
706
« en: Lunes 22 de Diciembre de 2003, 10:06 »
Hola hunter. Podrías usar una función de este estilo para conocer los procesos activos: Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long) Public Sub GetProcesos(Procesos() As Variant) Dim lngSnapShot As Long lngSnapShot = CreateToolhelpSnapshot(2&, 0&) If lngSnapShot <> 0 Then Dim Proceso As PROCESSENTRY32 Proceso.dwSize = Len(Proceso) Dim lngRc As Long, lngCta As Long lngRc = ProcessFirst(lngSnapShot, Proceso) Do While lngRc lngCta = lngCta + 1 ReDim Preserve Procesos(2, lngCta) Procesos(0, lngCta - 1) = Proceso.th32ProcessID Procesos(1, lngCta - 1) = Left(Proceso.szExeFile, InStr(Proceso.szExeFile, Chr(0)) - 1) lngRc = ProcessNext(lngSnapShot, Proceso) Loop CloseHandle lngSnapShot End If End Sub
Suerte.
707
« en: Lunes 22 de Diciembre de 2003, 09:50 »
Hola diegomarpla.
Lo más sencillo para visualizar la imagen sería utilizar un control Image que cuenta con una propiedad Stretch mediante la cual y estableciéndola a True puedes ajustar el tamaño de la imagen a la del control.
Para imprimirla puedes utilizar la instrucción PaintPicture indicando en sus parámetros el tamaño de la imagen.
Otra posibilidad pasa por utilizar el api StretchBlt para reducir la imagen desde un hDc a otro hDc.
Suerte.
708
« en: Jueves 18 de Diciembre de 2003, 20:58 »
Hola Jose Arriagada.
Supongo que estás usando el asistente de empaquetado y distribución de VB.
A grandes rasgos debes hacer lo siguiente:
Una vez seleccionado el proyecto, pulsa en el botón Empaquetar. Selecciona una secuencia de comandos anterior o ninguna y elige Archivo de dependencia. Continúa y elige la carpeta en la que se creará el archivo de dependencia (*.dep). A continuación aparecen las dependencias para tu proyecto. Pulsa el botón Agregar y ve seleccionando los archivos que deseas incluir en el paquete y márcalos sin dependencias, elige el destino para instalar esos archivos (normalmente AppPath).
A continuación ya puedes volver a usar la opción de Empaquetar. Selecciona la última secuencia de comandos y ahora ya puedes elegir el Paquete de instalación estándar y continuar con lo de siempre.
Todo esto te lo digo así de memoria al vuelo, por lo que puede ser que alguna cosa esté equivocada, pero a grandes rasgos debe ser lo que hace falta.
Suerte.
709
« en: Jueves 18 de Diciembre de 2003, 18:53 »
Hola Sabrina77.
Mu fácil, ejecutando PKZIP.EXE / PKUNZIP.EXE de (casi) toda la vida con los parámetros adecuados... por ejemplo:
Shell "C:\Ruta\PKZIP Comprimido.Zip SinComprimir.xxx"
Eso sí, ten en cuenta que con shell ejecutas la compresión de forma asíncrona, si quisieras un proceso síncrono, deberías usar el api OpenProcess.
Abur.
710
« en: Miércoles 17 de Diciembre de 2003, 16:06 »
Prueba con un control INet.
711
« en: Miércoles 17 de Diciembre de 2003, 16:05 »
Hola Cesar M.C.
No sé a que se debe el error, pero por si te sirve de pista:
En el archivo SETUP.LST de tu instalación, en la sección BOOTSTRAP existe la clave TmpDir que tiene el valor msftqws.pdw que curiosamente parece ser un archivo con nombre parecido al que aparece en tu error, pero con otra extensión.
A lo mejor es dar palos de ciego y estoy diciendo una burrada, pero yo comprobaría el valor para TmpDir en tu archivo SETUP.LST y si aparece msftqws.pcw lo cambiaría por msftqws.pdw y probaría a ver que pasa.
Ya nos contarás...
Suerte.
712
« en: Miércoles 17 de Diciembre de 2003, 14:45 »
Hola Sabrina77.
Prueba así:
oSheet.Cells(1, 4).EntireColumn.NumberFormat = "mm/dd/yyyy"
Chao.
713
« en: Martes 16 de Diciembre de 2003, 19:43 »
Fíjate en el valor de UnloadMode, indica el motivo de descarga del formulario:
0 - El usuario a pulsado en la X.
1 - El formulario se ha descargado por código (Unload Objeto).
2 - Windows se está cerrando.
3 - Se cerró desde el administrador de tareas.
4 - El form MDI Child se cierra porque su 'padre' se cierra.
5 - Un form se cierra porque su formulario propietario se cierra.
Cuando detectes que UnloadMode = 0 (es igual a cero), entonces das al parámetro Cancel que se pasa por referencia el valor 1, cancelando la operación de descarga.
Te aseguro que esto funciona así en cualquier plataforma o versión de windows que utilices.
De todas formas me acabo de fijar en un gazapo en el código que te escribí, seguro que no funciona por esto:
Don dije...
If vbCancel = MsgBox( "¿Desea realmente salir?",vbOkCancel,"Salir") = vbCancel Then
Debería decir...
If MsgBox( "¿Desea realmente salir?",vbOkCancel,"Salir") = vbCancel Then
Pero hoooombre...hay que se fijar maaaaás.
Chao.
714
« en: Martes 16 de Diciembre de 2003, 19:12 »
Hola Sonia Rodri El código de tu anterior post es válido para lo que quieres... Private Sub DataCombo1_Click(Area As Integer)
If DataCombo1.DataChanged Then
Adodc1.Recordset.Bookmark = DataCombo1.SelectedItem
End If
End Sub
Por si acaso, lo que haría es quitar lacondición de DataCombo1.DataChanged. El control adodc debe estar asignado a la propiedad RowSource y en ListField selecciona el campo cuyo valor quieres que se muestre en la lista. Suerte.
715
« en: Martes 16 de Diciembre de 2003, 18:40 »
Hola chryobcn.
Utiliza el método TransferText del objeto DoCmd de access.
Abur.
716
« en: Martes 16 de Diciembre de 2003, 18:37 »
Hola Sonia Rodri
Prueba a utilizar el método ReFill del datacombo para actualizar su contenido después de que hagas cambios en los datos.
Refresca también el recordset del control data con Requery.
Suerte.
717
« en: Martes 16 de Diciembre de 2003, 18:22 »
Hola pacegar.
Esta es una pregunta recurrente...
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
If vbCancel = MsgBox( "¿Desea realmente salir?",vbOkCancel,"Salir") = vbCancel Then Cancel = 1
End If
End Sub
Suerte.
718
« en: Lunes 15 de Diciembre de 2003, 15:33 »
Hola Crazy Foxy.
Lo más sencillo es que añadas un control ADO data control. Crees la correspondiente cadena de conexión y selecciones un origen para los registros. Añade a continuación un DataGrid y asígnale a la propiedad DataSource el control ADOdc. Y listo.
Suerte.
719
« en: Lunes 15 de Diciembre de 2003, 15:30 »
Hola Jorge López.
Puedes usar DateDiff tal que así:
WHERE DateDiff( "h" , CDate(Detalle.fecha_in & " " & Detalle.hora_in) , Format(Now, "yyyy,mm,dd") & " 7:00pm") <=24
Haber que tal te va.
Chao.
720
« en: Lunes 15 de Diciembre de 2003, 15:16 »
721
« en: Lunes 15 de Diciembre de 2003, 15:12 »
Hola MindEye.
Después de cada método gráfico (line, print,... ) que uses en el objeto printer, puedes utilizar sus propiedades CurrentX y CurrentY para definir las coordenadas para el siguiente método. Tal vez necesites conocer también el ancho o el alto de algun texto que vayas a imprimir: utiliza las funciones del printer TextWidth y TextHeight.
Suerte.
722
« en: Lunes 15 de Diciembre de 2003, 15:05 »
Algo así había visto en algun sitio... pero ¿sabes de que proyecto son miembros las clases Reference y References?
Agur.
723
« en: Lunes 15 de Diciembre de 2003, 14:58 »
Hola. También puedes utilizar IsDate(Expresión). Dim MiFecha, TuFecha, SinFecha, MiPrueba MiFecha = "12 febrero 1969": TuFecha = #2/12/69#: SinFecha = "Hola" MiPrueba = IsDate(MiFecha) ' Devuelve True. MiPrueba = IsDate(TuFecha) ' Devuelve True. MiPrueba = IsDate(SinFecha) ' Devuelve False.
Chao.
724
« en: Lunes 15 de Diciembre de 2003, 14:52 »
Hola sabrina77.
No sé si habrás tenido en cuenta lo siguiente.
Estás utilizando como parámetros dos expresiones acExport y acSpreadsheetTypeExcel9 que puede ser que no tengan el valor que se debería esperar. Me explico: estas dos expresiones son dos constantes (con valor 1 y 8 respectivamente) que están definidas por el access, por lo que si no tienes una referencia a access, vb tomará estas dos palabras como variables, que si no son inicializadas a ningún valor, tendrán valor 0 (si son numéricas) u otro valor dependiendo del tipo de datos (si no las has declarado, presupongo que no has utilizado la instrucción Option Explicit y si no has utilizado ninguna del tipo DEFxxx A-Z, pues serán variant).
Me imagino que tu problema es algo de esto, ya que para exportar una tabla no se debería necesitar escribir en la base de datos.
Si esto es como te cuento, entonces asigna los valores que le corresponderían a las expresiones, o sencillamente haz lo siguiente:
objDb.DoCmd.TransferSpreadsheet 1, 8, "tablaventas", App.Path & "\ventas.xsl", True
Suerte
725
« en: Sábado 13 de Diciembre de 2003, 11:47 »
Hola malen.
Si te refieres a como obtener el historial del internet explorer, prueba a hacer con lo siguiente: las urls se van almacenando en algun sitio del registro (no sé cual), pero saberlo debe ser tan sencillo como visitar unas cuantas páginas y anotar/copiar sus url, editar el registro con regedit (ojo) y buscar (menú edición) alguna de las url de las páginas que visitaste. Miras en que clave-subclave están almacenadas y listo.
Porque si te refieres a que quieres código de ejemplo para 'no sé que cosa en no sé donde de historiales que pueden aparecer en internet explorer'... pues me parece que lo llevas claro.
Aunque puede ser que te refieras a otra cosa, y entonces puede que tengas que concretar algo más.
Sorte. Biquinhos.
Páginas: 1 ... 27 28 [29] 30 31 ... 43
|
|
|
Mostrar Mensajes
