• Viernes 8 de Noviembre de 2024, 10:30

Mostrar Mensajes

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 - lois_

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Abrir Una Pagina Web Desde Visual
« en: Viernes 1 de Diciembre de 2006, 13:16 »
Otra opción sería abrirla en un objeto WebBrowser, de esta forma la visualizarías en tu formulario:
Código: Text
  1. WebBrowser1.Navigate "http://mipagina.com/archivo.htm"
  2.  
Un saludo :)

2
PHP / Re: Archivos Remotos Con Nombres Diferentes
« en: Sábado 18 de Noviembre de 2006, 22:01 »
Prueba esto a ver si te sirve:
Código: Text
  1. <?php
  2. $ruta = 'ruta/a/directorio/';
  3. if ($gestor = opendir($ruta)) {
  4.    while (false !== ($archivo = readdir($gestor))) {
  5.        if ($archivo != "." && $archivo != "..") {
  6.            echo "<a href=\"" . $ruta . $archivo . "\">" . $archivo . "</a><br>";
  7.        }
  8.    }
  9.    closedir($gestor);
  10. }
  11. ?>
  12.  
Un saludo.

3
Visual Basic para principiantes / Re: Mis Primeros Vb
« en: Sábado 18 de Noviembre de 2006, 21:44 »
Pues está muy bien para ser tus primeros programas, animo y suerte :)

Un saludo.

4
Visual Basic 6.0 e inferiores / Re: Ratón Con Rueda
« en: Sábado 18 de Noviembre de 2006, 21:30 »
Cuantas veces habré necesitado esto y no sabía la solución :)

Gracias y un saludo.

5
HTML / Re: Galeria De Imagenes
« en: Lunes 6 de Noviembre de 2006, 04:16 »
Esa está muy bien también, aunque lo de las licencias no queda claro porque la página no tiene derechos sobre las imágenes de los usuarios, pero tampoco les da opción a ellos de ofertarlas bajo licencias no restrictivas, con lo cual se sobreentiende que los derechos petenecen plenamente al autor, aunque no creo que nadie nos vaya a decir nada por usar fotos de esa página  :whistling:

6
HTML / Re: Galeria De Imagenes
« en: Lunes 6 de Noviembre de 2006, 03:41 »
Yo uso el buscador de flickr para imagenes con licencia Creative Commons, no son de alta resolucion normalmente, pero para web llega bien:

http://www.flickr.com/creativecommons/

P.D.: Ya tengo la de yotophoto en favoritos, gracias :)

7
PHP / Re: Bajar Archivo
« en: Lunes 6 de Noviembre de 2006, 03:32 »
Pues en Windows puedes hacerlo con javascript y AJAX, pero el explorador le pedirá permiso al usuario para hacerlo:
Código: Text
  1. function CreaHTTP(){
  2.     var http_request;
  3.     if (window.XMLHttpRequest) { // Mozilla, Safari, Opera ...
  4.       http_request = new XMLHttpRequest();
  5.     } else if (window.ActiveXObject) { // IE
  6.       http_request = new ActiveXObject("Microsoft.XMLHTTP");
  7.     }
  8.     return http_request;
  9. }
  10.  
  11. function handleHttpResponse() {
  12.     if (http.readyState == 4) {
  13.       var text = http.responseText
  14.       var fso = new ActiveXObject("Scripting.FileSystemObject");
  15.       var a = fso.CreateTextFile("c:\\archivo.txt", true);
  16.       a.Write(text);
  17.       a.Close();
  18.     }
  19. }
  20. var url = "http://mipagina.com/archivo.txt"; //el archivo que quieres descargar
  21. var http = CreaHTTP();
  22. http.open("GET", url, true);
  23. http.onreadystatechange = handleHttpResponse;
  24. http.send(null);
  25.  
Si me he confundido en algo que me corrijan :P

Un saludo :)

8
PHP / Re: Historial De Fechas Con Php
« en: Lunes 6 de Noviembre de 2006, 02:48 »
Puede que sea por que no te concatena bien el texto de las variables en la consulta, sería mejor que usaras puntos, de la siguiente manera:

$SQL="SELECT fecha_llamado,tecnico FROM tabla WHERE fecha_llamado >= '" . $fecha_desde . "' AND fecha_llamado <= '" . $fecha_hasta . "' AND tecnico='" . $trabajo . "'";

Si aún así no te va es posible que sea por que hay demasiados registros en la base de datos, como apuntabas tú, access no aguanta mucho :P

Espero que te sirva de ayuda :)

9
Visual Basic 6.0 e inferiores / Re: Aspecto "de Xp"
« en: Lunes 16 de Octubre de 2006, 02:24 »
Que buena, no sabia que que se podían aplicar el tema XP a lo programas en VB6, gracias por la info :)

10
Dudas informáticas / Re: Control Remoto
« en: Lunes 16 de Octubre de 2006, 02:14 »
Pues yo tengo instalada kubuntu en uno de mis ordenadores y trae ya preinstalado el KRDC, y la verdad es que me gusta mucho como funciona, la pena es que no es compatible con un escritorio Windows :P

11
Visual Basic 6.0 e inferiores / Re: Mostrar Que Un Archivo Ha Sido Creado
« en: Lunes 16 de Octubre de 2006, 02:05 »
Hola, usando el FileSystemObject tienes un método que es FileExists para lo que dices tú, puedes usar algo parecido a esto:

Código: Text
  1.  
  2. Dim FSO As Object
  3. Set FSO = CreateObject(&#34;Scripting.FileSystemObject&#34;)
  4.  
  5. If FSO.FileExists(&#34;C:&#092;ruta&#092;hacia&#092;archivo.xls&#34;) Then
  6.     MsgBox &#34;¡El archivo exste!&#34;
  7. End if
  8.  
  9.  

Espero que te sirva de ayuda, un saludo.

12
Visual Basic 6.0 e inferiores / Re: ¿como Saber Si Una Bd Está Corrupta?
« en: Sábado 7 de Octubre de 2006, 19:42 »
Bastante más simple y útil que lo que se me había ocurrido a mi  :P

13
Visual Basic 6.0 e inferiores / Re: ¿como Saber Si Una Bd Está Corrupta?
« en: Viernes 6 de Octubre de 2006, 17:36 »
Puedes usar el checksum del archivo, almacenandolo con cada registro y comparandolo antes de cada registro. La suma se puede obtener de muchas formas, yo te pasteo aquí una función:
Código: Text
  1.  
  2. Private Function ObtenerMD5(ByVal fichero As String) As String
  3.         Dim cadenaMD5 As String = &#34;&#34;
  4.         Dim cadenaFichero As FileStream
  5.         Dim bytesFichero As [Byte]()
  6.         Dim MD5Crypto As New MD5CryptoServiceProvider
  7.         cadenaFichero = File.Open(fichero, FileMode.Open, FileAccess.Read)
  8.         bytesFichero = MD5Crypto.ComputeHash(cadenaFichero)
  9.         cadenaFichero.Close()
  10.         For Each datos As Byte In bytesFichero
  11.             If datos &#60; 16 Then
  12.                 cadenaMD5 &= &#34;0&#34; & datos.ToString(&#34;X&#34;)
  13.             Else
  14.                 cadenaMD5 &= datos.ToString(&#34;X&#34;)
  15.             End If
  16.         Next
  17.         Return cadenaMD5
  18. End Function
  19.  
  20.  
  21.  

Un saludo.

14
Visual Basic 6.0 e inferiores / Re: Referer En Webbrowser
« en: Viernes 6 de Octubre de 2006, 16:46 »
Mira este código.

15
Visual Basic 6.0 e inferiores / Re: Flash En Vb
« en: Miércoles 4 de Octubre de 2006, 17:40 »
Muchas gracias, la verdad parece bastante interesante eso, yo había optado por meter un objeto webbrowser hacia un documento html con el flash, pero esto parece tener mejor pinta.

Un saludo.

16
Visual Basic 6.0 e inferiores / Re: Añadir Y Borrar En Un Grid
« en: Martes 3 de Octubre de 2006, 21:07 »
De nada, espero haberte servido de ayuda  :hola:

17
Visual Basic 6.0 e inferiores / Re: Añadir Y Borrar En Un Grid
« en: Martes 3 de Octubre de 2006, 19:24 »
Lo que puedes hacer es un bucle for que recorra, desde 1 hasta el total de nombres que tenga el grid, comparando el nombre y si hay coincidencia, el valor de la variable del for será el indice que buscas.

18
Visual Basic 6.0 e inferiores / Re: Envio De Consulta De Excell
« en: Martes 3 de Octubre de 2006, 19:11 »
A ver si esto te vale, primero añade una referencia al proyecto a Microsoft Excel Object Library:

Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet

Set XL = New Excel.Application
Set WB = XL.Workbooks.Open("C:\archivo.xls")
Set WS = WB.Worksheets("Hoja1")

y luego para meter valores en celdas:

WS.Range("B1").Value = 23.5
WS.Range("B2").Value = 17.6

despues guardar y salir:

WB.Save
XL.Quit

Espero que te seirva para lo que quieres.

19
Visual Basic 6.0 e inferiores / Flash En Vb
« en: Martes 3 de Octubre de 2006, 18:38 »
Hola, estoy buscando alguna forma de meter una animacion en flash en un programa hecho en VB, si me pudierais orientar o darme algun link de referencia ya me llegaria :)

Gracias por adelantado.

Páginas: [1]