Mensajes

Gracias amigo pero como aria para enviar los bytes junto a un texto es decir , si me harias un ejemplo mas detallado se me haria un poco mas facil :/

Seria algo como:

Desde el Servidor envio el siguiente mensaje:

Hola como estas? 

Quiero que en el Cliente se vea:


Hola como estas? 

Junto con el texto!, y como es un richtextbox acepta imagenes

Espero que ahora si hayas captado mi idea xD

Gracias... y un Saludo~!

Bueno como dice en el titulo, quiero enviar mediante winsock un texto que contenga imagenes, es decir que si del Servidor envio un mensaje con una imagen quiero que este en el cliente se muestre en un richtextbox?

Saludos~

Hola, Si lo que quieres es guardar y cargar los datos de usuario, puedes hacerlo con este ejemplo donde se usa un archivo "INI" con los datos que desees guardar!

http://www.recursosvisualbasic.com.ar/htm/listado-api/159-leer-grabar-archivo-ini.htm

Si tienes alguna duda o problema sime y te ayudare a resolverlo

Muchas Gracias amigo ya encontre el problema lo que pasa es que no pense en la funcion UBound(), era lo que necesitaba, muchas gracias!


Para los que tengan la misma duda o problema lo que ise fue lo siguiente:

Código (vb) [Seleccionar] Expandir


''Solo Agreguen un ListBox, y Denle un valor a la Variable "str" con separadores "/", sin comillas!
   Dim str as String
   Dim List() As String
    List = Split(str, "/")
     
    for i = 0 To UBound(List())
       List1.additem "Item #" & List(i)
    next


Hola amigo gracias por responder, pues como ver si lo he echo!

Aqui te paso el code:

Código (vb) [Seleccionar] Expandir




lstAwards.Clear

Dim List() As String
Dim i As Integer
Dim a As Integer
txtAwards.Text = RS(9)

a = Len(txtAwards.Text)


List = Split(RS(9), "/")
For i = 0 To Len(List(i))
lstAwards.AddItem List(i), i
Next


Y el txtAwards.Text = "0/0/0/0/0/0/0/0/0/0/0" y solo me devuelve 2 items
Espero me puedas ayudar!

Hola!,

Bueno ise este codigo:

Código (vb) [Seleccionar] Expandir


Dim List() As String
Dim i As Integer
Dim a As Integer

a = Len(txtAwards.Text)

lstAwards.Clear

txtAwards.Text = RS(7)
List = Split(RS(7), "||")
For i = 0 To Len(a)
lstAwards.AddItem List(i)
Next


Y o que intento hacer con esto es que me agreguen en un ListBox los Split de la variable List(), pero este solo me carga 3 datos y me gustaria que cargase todos los datos.

Para se mas espesifico es algo como esto:

Dim Texto as String
Dim Particion() as String


Texto = "0||0||0||0||0"       ''Son 5 Ceros separados por ||
Particion = Split(Texto, "||")
______
Lista    |
______|
#1| 0  |
#2| 0  |
#3| 0  |
#4| 0  |
#5| 0  |
=====

Podria alguien ayudarme con esto?

Hola amigos de ElHaker un saludo de mi parte!

Bueno como dice el titulo quiero saber como hacer para comprimir un directorio completo, es decir con todos los archivos y subcarptas que tenga este!

Ya busque en el Foro del Guille
http://www.elguille.info/colabora/vb/zip32dll.htm

Pero este me dice que ponga la variable OpcionesZip.fRecurse = 2 o 1

Pero aun haci no funciona.

Muchas gracias por leer!, Saludos!~

Hola amigo muchas gracias por el code, me funciono a la perfeccion, ahora la duda que tengo es que me gustaria que se pudiece guardar no que se printee en el formulario! , Es posible?

Bueno como dice el titulo solo quiero saber si es posible capturar lo que este dentro de un picturebox, al decir capturar es tirar un screenshot dentro de los objetos que esten en el picturebox es decir un ejemplo mas grafico:




Quisiera hacer una captura a todo lo que este en su interior, pero en forma de imagen

Gracias de antemano!
Un saludo!

Muchas gracias amigo , me has ayudado bastante .
Una ultima pregunta como hago para ejecutar varias lineas es decir, solo me permite hacerlo con una linea, y quiero ejecutar digamos una funcion?