|
453
|
Programación / Programación Visual Basic / Re: Restar una palabra a una frase enviada por winsock
|
en: 14 Octubre 2006, 14:35 pm
|
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
|
|
|
457
|
Programación / Programación Visual Basic / Re: utilizar sorted
|
en: 13 Octubre 2006, 14:46 pm
|
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
|
|
|
459
|
Programación / Programación Visual Basic / Re: Duda con API FindWindow
|
en: 13 Octubre 2006, 14:37 pm
|
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
|
|
|
460
|
Programación / Programación Visual Basic / Re: de imagen a string
|
en: 13 Octubre 2006, 14:32 pm
|
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.
|
|
|
|
|
|
|