Mensajes

probando me salio:

Código [Seleccionar] Expandir


list2.selected(list1.listindex)=true


pero...
no es lo que hago ya??

Código [Seleccionar] Expandir


1.-el cliente envia el nomgre y ruta del archivo
2.-el server calcula el tamaño y se lo envia al client
3.-el cliente establece el maximo de la PB con los Bytes del archivo y pide iniciar descarga
4.-el server abre el archivo y lo envia
5.-el client lo recive y lo guarda


keda lo del PB pero deberia funcionar igual, no???
perdonarme pero sigo sin ver el fallo...

gracias por la ayuda!!

Hola a todos!!

Veamos, tengo dos listbox, y quiero que al seleccionar un elemento del list1 seleccione el elemento correspondiente en el list2 no se si me he explicado bien...
Es decir, cuando pinche en el 2º elemento de list1 se seleccione el 2º elemento del list2 yo habia pensado en algo asi:

Código (vb) [Seleccionar] Expandir


Private Sub List1_Click ()

'Msgbox List1.ListIndex
List1.ListIndex = List2.ListIndex

End Sub


Me da error y me dice que no es una matriz... He probado varias formas por mi mismmo pero no he llegado a nada aún, agradezco la ayuda!!!

Ya esta solucionado , tenia el modulo dañado, lo cambie y va como la seda.
Utilizo el comando dir /s {archivo}, sirve para enumerar todos los directorios donde este se encuentra, si por ejemplo pongo :

Código [Seleccionar] Expandir


dir /s *.jpg

Me mostraria todos los .jpg que hay en mi ordenador y su ubicacion.

Aver si me pueden ayudar:

Utilizo el módulo cStdIO.cls para ejecutar comandos en el cmd, pero hay comandos que no ejecuta correctamente.

Un ejemplo entre otros sería:

Código [Seleccionar] Expandir


C:\Documents and Settings\{miusuario}\Escritorio\vb6>dir /s hola.txt
El volumen de la unidad C no tiene etiqueta.
El n£mero de serie del volumen es: {minumerodeserie}
No se encuentra el archivo


Pero el archivo "hola.txt" SI existe, y pruebo el mismo comando con el cmd y funciona, ¿me podrían decir que pasa
o otra forma de hacerlo????

Gracias a to2!!!!!!!!

Hola a to2!! les cuento mi problema:

Estoy intentando descargar un archivo remoto y que me muestre su progreso en una progressbar. Pero algo debo
de hacer mal, y no tengo muy claro para poner el progreso la PB.
No puede ser muy dificil, lo que hago actualmente es:

Código [Seleccionar] Expandir



CLIENT

Private Sub Download_Click()  

   WS.SendData "download" & Ruta.Caption

End Sub


SERVER

   If Left(datos, 8) = "download" Then
   datos = Mid(datos, 9)

   tamaño = FileLen(datos)

   WS.SendData "dtam" & tamaño

   End If


CLIENT

   If Left(datos, 4) = "dtam" Then
   datos = Mid(datos, 5)

   PB.Max = datos
   'MsgBox PB.Max

  WS.SendData "dok" & Ruta.Caption

  End If


SERVER


   If Left(datos, 3) = "dok" Then
   datos = Mid(datos, 4)

  'aki debe de estar el fallo
  Dim filedata As String

  Open datos For Binary As #1
  filedata = Input(LOF(1), 1)
  Close #1

  WS.SendData "dongo" & filedata

   End If


CLIENT


   If Left(datos, 6) = "downgo" Then
   datos = Mid(datos, 7)

   Open App.path & "\miArchivo" For Binary As #1
   Put #1, , datos
   Close

   MsgBox "descarga completada"

   End If


Agradeceria mucho cualquier ayuda!!
Gracias amigos!!

mmmm
veamos, tengo un textbox con un scrollbar y un boton que añade 5 lineas, cada vez q doy al boton y añade esas 5 lineas pero me sube arriba del todo al principio del texto, y lo que quiero es q se kede abajo...
no tiene q er mu dificil....

gracias

hola me gustaria saber como hacer para que cada vez q aztualize mi textbox no me aparezca arriba del todo...(no se si me explico)

gracias

weno, esk en el proyecto de leandroA del escritorio remoto, funciona genial, y esta con vb6...

recuerdo que yo solo intento aprender, y q voy entendiendo todo lo que hago por ahora, y si no pregunto...

e nuevo gracias a to2!!

como hago programa q se borre a si mismo??
kizas es una pregunta tonta, pero intento borrame a mi mismo me da error puesto el programa se esta ejecutando...

muchasgracias a to2!!!!