|
|
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 ... 26 27 [28] 29 30 ... 43
676
« en: Martes 13 de Enero de 2004, 08:59 »
Hola SpeedCad.
El error número 7 indica que el pc se ha quedado sin memoria... Esto puede ocurrir por diversas causas, un excesivo número de componentes en un mismo proyecto, dimensionar una matriz a un número excesivo de dimensiones (dependería también del tipo de datos de la matriz) y cosas por el estilo.
Puede ser también que el programa esté metido en algún bucle, por ejemplo a causa de referencias circulares en algun evento...
Suerte.
677
« en: Lunes 12 de Enero de 2004, 17:52 »
Hola Jorge.
A ver si ahora...
Strqueryhora = "SELECT * FROM detalle WHERE " _
& "fecha_in >= #" & FECHADESDE & "# " _
& "AND fecha_in <= #" & FECHAFINAL & "# " _
& "AND hora_in >= #" & dhoramin & "# " _
& "AND hora_in <= #" & dhoramax & "#"
Con esto debería de funcionar.
Chao.
678
« en: Lunes 12 de Enero de 2004, 17:36 »
Hola de nuevo. A pesar de que la ayuda para el control indica que se puede establecer el valor para las propiedades RowIsVisible y ColIsVisible, acabo de comprobar que esto no es así... Para conseguir que una celda fuera del rango visualizado se vea haremos algo así: MSFlexGrid1.TopRow = NumeroFila MSFlexGrid1.LeftCol = NumeroColumna
Chao.
679
« en: Lunes 12 de Enero de 2004, 17:04 »
Hola valdriz.
Usa algo así:
MsFlexGrid1.RowIsVisible(Nro_Fila).Visible = True
Chao.
680
« en: Lunes 12 de Enero de 2004, 16:58 »
681
« en: Lunes 12 de Enero de 2004, 10:25 »
Hola AYCUL.
Lo más sencillo es incluir en el formulario un control ImageList en el que cargarás las imágenes que deseas mostrar.
En tiempo de diseño, abre la página de propiedades del ListView. En la pestaña 'Lista de imágenes' debes asignar el/los controles ImageList en el combo adecuado.
Si has asignado un ImageList a los encabezados de columna, podrás asignar a cada encabezado una imagen. En tiempo de diseño, mediante la página de propiedades y en tiempo de ejecución especificando el parámetro adecuado en la función Add de ColumnHeader, o usando la propiedad Icon de una existente.
Prácticamente lo mismo que lo anterior se puede aplicar para los ListItems, teniendo en cuenta que en si eliges como vista lvwReport, sólo podrás utilizar iconos del ImageList que hayas asignado a 'pequeño' en la pestaña 'Lista de imágenes'.
Suerte.
682
« en: Lunes 12 de Enero de 2004, 10:04 »
Hola tazdemon
Prueba poniendo antes de hacer el Refresh lo siguiente:
Me.Adodc4.RecordSource = "SELECT * from temporal"
Suerte.
683
« en: Lunes 12 de Enero de 2004, 09:55 »
Hola Jorge.
¿Podrías especificar el tipo de datos de los campos en los que almacenas la fecha y la hora... y un ejemplo de los valores por los que estás realizando la comparación?
Chao.
684
« en: Viernes 9 de Enero de 2004, 09:32 »
685
« en: Viernes 9 de Enero de 2004, 09:28 »
Hola Fernando_P.
Puedes elegir dos formas dependiendo de tus necesidades:
- Descargar el formulario. De esta forma lo descargas de la memoria. Es la mejor opción si no vas a utilizar de nuevo el formulario de forma inmediata.
Para descargar:
Unload Objeto
Si lo haces desde el mismo formulario, sería: Unload Me
Si lo haces desde otra parte del código: Unload ReferenciaFormulario
- Ocultar el formulario. Lo haces no visible pero sigue cargado en memoria. Si vas a volver a mostrar el formulario, te ahorras descargarlo y cargarlo.
Para ocultar:
Objeto.Hide
Si lo haces desde el mismo formulario: Me.Hide
Desde otra parte: ReferenciaFormulario.Hide
Para volver a mostrar:
Objeto.Show
En cuanto a lo de llamar al programa Shell debe funcionar perfectamente... prueba dejando un espacio en blanco antes del parámetro.
Suerte.
686
« en: Viernes 9 de Enero de 2004, 09:14 »
Hola Lainuxxx.
Puedes utilizar el api StrechBlt para reducir el tamaño de la imagen.
Suerte.
687
« en: Viernes 9 de Enero de 2004, 09:09 »
Hola Jorge. Si quieres que la consulta muestre los resultados de una fecha u otra fecha, debes utilizar un operador OR en lugar del AND que estas utilizando... tal como tienes la consulta sólo te mostrará resultados cuando la fecha inicial y la final coincidan. Para lo que quieres, hazlo así: Strqueryhora = "select * from detalle Where (" _ & "fecha_in = #" & Format(FECHADESDE, "mm/dd/yyyy") _ & "# and hora_in between #" & Format(dhoramin, "hh:mm:ss") _ & "# AND #" & Format(dhoramax, "hh:mm:ss") & "#) " _ & "OR (fecha_in = #" & Format(FECHAFINAL, "mm/dd/yyyy") _ & "# and hora_in between #" & Format(hhoramin, "hh:mm:ss") _ & "# AND #" & Format(hhoramax, "hh:mm:ss") & "#)"
A ver que tal... Chao.
688
« en: Jueves 8 de Enero de 2004, 17:45 »
Hola Jorge.
Creo que deberías obtener una cadena de este estilo:
Strqueryhora = "SELECT * FROM DETALLE " _
& "WHERE fecha_in = #" & fechadesde & "# " _
& "AND hora_in BETWEEN #07:00:00# AND " _
& "#00:00:00# AND fecha_sal = #" & fechafinal _
& "# AND hora_in BETWEEN #00:00:01# " _
& "AND #06:59:59#"
Esto suponiendo que los campos implicados en la cláusula where sean de tipo fecha/hora... en el caso de que fueran otro tipo de datos habría que sustituir o eliminar los delimitadores (en el ejemplo #).
Otro detalle que debes tener en cuenta es que la hora 24 del día no existe... cuando te quieras referir a las doce de la noche, usa las 0 horas o puede que tu consulta no muestre los resultados que esperados.
Espero que te vaya bien.
Chao.
689
« en: Jueves 8 de Enero de 2004, 15:47 »
Hola Hunter. Esto lo puedes conseguir de dos formas: 1 - Lee este enlace... http://foros.solocodigo.com/index.php?show...t=0&#entry160582 - En el evento Resize del MDIForm haz lo siguiente: Private Sub MdiForm_Resize() MiFormMDI.WindowState = 0 ' 0 = normal , 1 = minimizado, 2 = maximizado. . . .
Espero que te sirva. Chao.
690
« en: Jueves 8 de Enero de 2004, 15:36 »
Para que el resultado sea más satisfactorio (aparte de los gazapos del post anterior)... Private sngX As Single, sngY As Single Private Sub Image1_MouseDown( _ Button As Integer, Shift As Integer _ , X As Single, Y As Single) If Button = 1 Then sngX = X sngY = Y End If End Sub Private Sub Image1_MouseMove( _ Button As Integer, Shift As Integer _ , X As Single, Y As Single) If Button = 1 Then Image1.Left = Image1.Left + (X - sngX) Image1.Top = Image1.Top + (Y - sngY) End If End Sub
Abur.
691
« en: Jueves 8 de Enero de 2004, 14:58 »
Hola Daniel_Pc. Puedes probar con un código de este estilo : Dim itm1 As ListItem, int1 As Integer Dim sngY As Single, sngX() As Single ReDim sngX(1 To ListView1.ColumnHeaders.Count) sngX(1) = 10 For int1 = 1 To ListView1.ColumnHeaders.Count - 1 sngX(int1 + 1) = sngX(int1) + ListView1.ColumnHeaders(int1).Width Next int1 For Each itm1 In ListView1.ListItems sngY = Printer.CurrentY Printer.CurrentX = 10 Printer.Print itm1.Text Printer.CurrentY = sngY For int1 = 1 To ListView1.ColumnHeaders.Count - 1 Printer.CurrentX = sngX(int1 + 1) Printer.CurrentY = sngY Printer.Print itm1.SubItems(int1) Next int1 Next itm1
Ojo que el código está escrito al vuelo. No está probado ni depurado... es para que te hagas una idea. Abur.
692
« en: Jueves 8 de Enero de 2004, 12:57 »
Hola jorge.adell. No estaría mal supervisar los posibles errores que se produzcan de este otro modo... aunque es parecido a lo que tu haces Private Sub InsertData(cadena As String) Ejecutar: On Error GoTo Err_InsertData conn.Execute cadena Exit Sub Err_InsertData: On Error Resume Next Dim intCanal As Integer intCanal = FreeFile Open LOGERROR For Append As #intCanal Print #intCanal, Err.Number & " " & Err.Description Print #intCanal, cadena Close #intCanal If Err.Number = XXXX Then 'XXXX sería el número de error que te interese. 'En este caso no sé cual es, pero lo puedes averiguar 'forzando el error. If MsgBox("Error al insertar datos. ¿Intentar reconexión? ", _ vbCritical + vbRetryCancel, "Error de conexión") = vbCancel Then End conn.Close Set conn = Nothing Set conn = New ADODB.Connection conn.Open UdlString, , "osado" Resume Ejecutar Else MsgBox "(" & Err.Number & ") " & Err.Descriptionm, vbCritical, "Error inesperado" End If End Sub
Suerte.
693
« en: Jueves 8 de Enero de 2004, 12:44 »
Hola Daniel_PC. Cuando asignes el valor al listitem o subitem hazlo usando un formato para el valor. Por ejemplo: ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) _ = Format(Valor,"#,###,##0.00;-#,###,##0.00;;")
Abur.
694
« en: Jueves 8 de Enero de 2004, 12:40 »
Hola hitman47. Prueba con algo así: Private Sub AsociarApp(Byval Programa as string, Byval Extension as string) Dim lngRc As Long, lngLphKey As Long Const HKEY_CLASSES_ROOT = &H80000000 Const REG_SZ = 1 Const MAX_PATH = 260 Programa = Programa & " %1" lngRc = RegCreateKey(HKEY_CLASSES_ROOT, Extension, lngLphKey) lngRc = RegSetValue(lngLphKey, "", REG_SZ, "MiExtension_auto_file", 0) lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey) lngRc = RegSetValue(lngLphKey, "", REG_SZ, "Descripción de mi programa", 0) lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey) lngRc = RegSetValue&(lngLphKey, "DefaultIcon", REG_SZ, "C:\VíaDeAcceso\MiIcono.Ico", MAX_PATH) lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey) lngRc = RegSetValue&(lngLphKey, "shell\open\command", REG_SZ, Programa, MAX_PATH) End Sub
Suerte. Abur.
695
« en: Jueves 8 de Enero de 2004, 12:28 »
Hola MindEye. Una forma sencilla, prueba así: Private Sub Image1_MouseMove( _ Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.Left = Picture1.Left + X Picture1.Top = Picture1.Top + Y End If End Sub
Otra forma... Arrancando una operación de arrastrar/colocar: Abur.
696
« en: Martes 30 de Diciembre de 2003, 10:56 »
Hola Chinta Nemoto. Puedes sencillamente invocar el método que controle el evento en cuestión. Por Ejemplo imagina un formulario llamado Form1 con este código: Public Sub Form_Click() MsgBox "Has hecho click" End Sub
Desde el proyecto, cuando quieras simular un click sobre Form1, solamente has de hacer: Form1.Form_Click y ejecutarás el código asociado al evento. Eso sí, debes tener en cuenta el declarar el método como Public (o Friend si lo vas a invocar desde el mismo proyecto). La única posible complicación sería identificar sobre que control u objeto se encuentra el puntero del ratón... lo podrías solventar declarando una variable pública de objeto que se inicializaría desde el evento MouseMove de los distintos controles... Public MiObjeto as Object Private Sub Text1_MouseMove( _ Button As Integer, Shift As Integer, X As Single, Y As Single) Set MiObjeto = Text1 End Sub Public Sub Text1_Click() MsgBox "Click sobre Text1" End Sub
Y luego cuando quieras simular el evento... Private Sub ForzarClick CallByName MiObjeto _ , MiObjeto.Name & "_Click" , vbMethod End Sub
Espero que te sirva, Suerte.
697
« en: Martes 30 de Diciembre de 2003, 10:49 »
Hola Jose Arriaga.
Puedes realizar lo que deseas ejecutando las correspondientes instrucciones SQL del tipo ALTER TABLE , CREATE TABLE , DROP TABLE , etc.
Suerte.
699
« en: Lunes 29 de Diciembre de 2003, 17:40 »
Hola DaVId925.
Selecciona un nuevo proyecto vb. En la ventana de selección de tipo de proyecto, elige Aplicación DHTML...
Suerte.
700
« en: Lunes 29 de Diciembre de 2003, 17:35 »
El api GetShortPathName. Abur.
Páginas: 1 ... 26 27 [28] 29 30 ... 43
|
|
|
Mostrar Mensajes
