Mensajes

para saber cuanto tiempo lleva prendido la PC creo que se usa la api "timeGetSystemTime"

El usar DoEvents en los bucles no resuelve el problema, la aplicación de todas maneras se colgaria. Recuerden que DoEvents solo alterna el control del entorno del sistema operativo

mira lo que puedes es hacer lo siguiente


private function RestsarPalabra(Cadena, Palabra)
    dim i as integer
   
    i = instr(1, cadena,palabra, vbTextCompare)
    if i > 1 then
         RestarPalabra = mid(cadena, 1,i-1) & mid(cadena,i+len(palabra), len(cadena))
    else
         RestarPalabra = mid(cadena,i+len(palabra), len(cadena))
     end if
end function



con esto no importa si la palabra que quieres quitar esta al inicio, enmedio o al final de la cadena, espero te sirva aunque no voy muy de acuerdo con eso de estar haciendo virus

si tienes instalado el VB checate el ejemplo que viene, el de RedTop.vbp, hay viene como manejar un control PictureClip, que creo que es por el que estas preguntando

ya intentaste usar un Richt text box a ver si en ese si te carga el archivo, usa sus metodos para abrir y guardar.

puedes hacer una consula SQL usando el LIke

SELECT * FROM Tabla Where campo LIKE ' & text1.text & *'

si estas usando el ListBox, solo tienes que poner a True la propiead Sorted, ahora que si los datos bienen de una BD pues puedes ordenarlos desde tu consulta SQL, para agregar el control ListView a tu aplicacion entra Proyecto-> Componenetes y agregas el "Microsoft Windows Common Controls" y te agrega el ListView, TreeView, e Imagelist

"sacarle el controlbox"?????

te refieres a habilitar/deshabilitar?, si es asi el MDIForm no tiene esa propiedad, desconozco si se pueda hacer con alguna API

si lo que quieres hacer es esperar a que tu aplicacion espere a que termine la ejecucion de la ventana del DOS, te paso un tip, que aqui mismo me dieron:


en tu programa en lugar de usar el shell
usa esta funcion

ExeEspera "comando ms-dos"

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function

mira originalmente para guardar una imagen en la base de datos (access) era todo un circo, pero con la actialuzacion del SP4 del visual se modificaron algunos componentes, la forma más facil de hacerlo es agregando un datacontrol a tu proyecto, un picurebox y luego lo enlazas al datacontrol, para guardar la imagen solo tienes que cargar la imagen al pictuebox

    Data1.Recordset.AddNew
    Picture1.Picture = LoadPicture("imagen")
    Data1.Recordset.Update

y de la misma forma lo recuperas

    data1.recodset!Imagen = Picture1.Picture

esto lo hice en alguna ocasion ya hace algun tiempo, la verdad desisti de hacerlo porque hay un gran inconveniente, la base de datos crece de manera exagerada, mira si insertas una imagen de 5kb, el tamaño del campo se ajusta a 5Kb, pero si despues agregas una imagen de 2mb el campo de todos los registros de tu bd aumentan a 2mb, por lo que se desperdicia muchisimo espacio, yo opte por crear un directorio dentro del path de la aplicacion y alli guardar todas las fotos, y el la BD solo guardaba el path.