Mensajes

Es mejor el uso de un módulo que del control winsock

nunca use un modulo como socket :S
vi algo en el foro preo no lo encuentro xD
si lo tenes a mano lo podes postear a ver q onda ??

graciaz ^^

salu2

buen resumen  8)

we que no de las gracias ¬¬'
pero puede que ayude a mas de uno ^^

un abraz0

thx ^^
ahora lo pruebo Numerito xD

un abraz0


-------- EDIT --------

Observacion:
Cambiar este code por

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Static C As Long
    C = C + 1
    ProgBar Picture1, CLng(Porciento(C, T)), vbWhite, vbBlue, vbBlack, True, 0
End Sub

este otro, asi si llega a 100 no sigue sumando ^^

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Static C As Long
    If C < 100 Then
    C = C + 1
    End If
    ProgBar Picture1, CLng(Porciento(C, T)), vbBlue, vbRed, vbYellow, True, 0
End Sub



che gracias x el code
ta bastante bueno y me viene de 10 (yo que odio las progress del vb xD)

cya

gracias x la correccion

en fin se entendio lo que kise decir xD

Alguien me podria decir como hacer un generador de numeros y letras

para generar letras aleatoriamente, podrias asignarle una letra a cada numero
aca hice una pequeña demostracion

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim Num As Long
Dim Letra As String
Randomize 'para que no nos de siempre la misma cadena
Num = Rnd * 3 'al 3 lo tenes que cambiar por la cantidad de letras que hay
Select Case Num
   Case "1" 'si el numero aleatorio (Num) es 1
   Letra = "A" 'la Letra es A
   Case "2"
   Letra = "B"
   Case "3"
   Letra = "C"
End Select
Text1.Text = Letra 'Pone la letra aleatoria en un TextBox
End Sub


espero que te sirva :

quisiera saber com puedo llenar una grilla con numeros aleatorios

soy de Argentina, a que te referis con grilla ?? XD
si lo que keres es llenar un textbox siempre con la misma cantidad de numeros seria asi:

Código [Seleccionar] Expandir


Dim Num As Long
Math.Randomize
Num = Int(1000 - 100) * Rnd + 100
Text1.Text = Num


solo saldran numeros de 3 sifras
si no aclare tu duda, por favor postea de vuelta ^^

un abraz0

G0nz4

ak te hice un pekeño programita:

en 1 Form:
Controles: -Text1
                -Text2

Código [Seleccionar] Expandir


Private Sub Text1_Change()
Dim Letra As String
Letra = Text1.Text
Select Case Letra
      Case "01" 'Si se ingreso el 01
      Text2.Text = Text2.Text + "A" 'le agregas la letra A al texto
      Case "02"
      Text2.Text = Text2.Text + "B"
      Case "03"
      Text2.Text = Text2.Text + "C"
      '... sigue iwal para abajo
End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 1 Then 'esto borra el text1 cuando ya tiene 2 caracteres
Text1.Text = ""
End If
End Sub


-----
y bueno con lo del ALT la verdad que no se xD
postea lo que keres lograr con dejarla apretada, a ver si hay alguna forma de hacer eso que keres hacer, de otra forma :
espero que te sirva

un abraz0

no encuentro la forma de ir agregandole valores...

es solo un efecto grafico o sirve pa algo ???

xD

a ver si te puedo ayudar:

con este codigo, te envia el ip apenas el servidor se conecte a tu cliente

SERVIDOR:
en el evento CONNECT del Winsock pones

Dim IP as long
IP = winsock1.localip
winsock1.senddata IP

CLIENTE:
en el evento DATA ARRIVAL del Winsock pones
Dim IP as long
winsock1.getdata IP
text1.text = IP

ahi te mostraria el IP del servidor en el Text1
espero que te sirva

si tenes otra duda postea en el foro
o abajo de mi foto tenes mi msn xD

un abraz0

la respuesta de GoodBye es valida
no hace falta tener un icono vacio

luego ves a la propiedad Icon, la veras (Icono), arrastrale el cursor por encima y lo seleccionas, acto seguido presiona la tecla Delete. Dale F5 y pruebalo!

NOTA: no es lo mismo la apretar SUPRIMIR (DEL) que borrar con el Backspace (la flechita para atras xD), ya que de este modo, no te funcionara

un abraz0