Mensajes

Ya pasamos por eso los mexicanos y creeme no es nada bueno, aunque no estoy seguro si "pasamos" o en eso andamos pero ya de eso hace como 15 años mas o menos... 

Código (vb) [Seleccionar] Expandir


private sub command1_click()
     on error goto huboerror
     ws.connect x, x
     exit sub
huboerror:
     call ws_Error(x,x,x,x,x)
end sub


mas o menos es tu codigo asi?

[Mi post 300!]

Emmm pues creo que necesitan mas informacion de tu problema (mas codigo) para que te puedan ayudar. Te sugiero muestres la parte donde haces la deteccion del error...

---------------------------------------------------------------------------------
Mi post 300!  quiero agradecer principalmente a...y es todo lo que tengo que decir gracias!

Ta bien, es un buen aporte para nosotros los que no entendemos mucho o nos cuesta entender 

hay alguna manera de que el web browser sea de firefox?

Y ya quisiera que ese mentado 1mb me llegara completo!, ni los videos en youtube se pueden ver de corrido, la taza de descarga que deberia estar a 107kbts/seg se pone a 30! 

a) emm por lo menos 20 ejecuciones diarias en mi estado. Hay quienes te reprenden si no estafas a alguien. uuuuuu y muchisimas otras cosas mas...

b) Cuando recibo ayuda desinteresada cuando menos lo espero. Cuando se que hay personas que tienen los mismos ideales. Cuando se que hay alguien que se preocupa por mi. Cuando veo la cara o escucho la voz de ELLA.  ... y otras cosas mas....

En fin, Slim, Azcarraga, Salinas(Pliego y De Gortari) son unos desgraciados, al igual que toda la bola de peleles parasitos. Aprendamos de los errores del pasado y hay que  aplicarse para tumbar el sistema(y no precisamente con un DDoS)... Claro que se puede y debemos hacerlo...

Código (vb) [Seleccionar] Expandir


        For i = 0 To List1.ListCount - 1
                 arreglo(i)  = list1.list(i)
        Next


[@BlackZeroX]

pues que se autoajuste, que no?
o no se puede?

Bastante bueno el proyecto

@BlackZeroX
En la direccion que diste no viene nada de Topoyiyo, que paso ahi pues?

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim n1 As Long
Dim n2 As Long
Dim e As Boolean
Dim i

   n1 = Text1.Text

While n1 > 0
   e = True
   n2 = n1 - 1
   i = 2
   While i <= n2 And e '<----- Lo cambie a while para que no siga comprobando despues de saber que el numero no es primo
       If n1 Mod i = 0 Then e = False '<----- el error, no se por que pero aqui era, no tengo mucho tiempo ya que me estan informando que ya estan listas las tortillas de harina
       i = i + 1
   Wend

   If e = True Then
       List1.AddItem (n1)
   End If

   n1 = n1 - 1
Wend
End Sub



Hola, que hay?!

bueno pues tengo una duda al quere utilizar el "copyMemory":
Lo que necesito es copiar los pixeles de una imagen cargada en un pictureBox, de una manera alternativa a usar ".point y ciclos".

Lo que no logro entender(o no se hacer), es averiguar cual es la direccion de memoria fuente correcta. No tengo la menor idea, he buscado la estructura de un pictureBox y no encuentro nada. Digamos:

Código (vb) [Seleccionar] Expandir


dim pixeles(0 to 10) as long
call CopyMemory(ByVal VarPtr(pixeles(0)), ByVal VarPtr(pic.Point(0, 0)), 44)


pero "pic.point(0,0)" o "pic.point(N,N)" no corresponde a la direccion de memoria que necesito...

Gracias eh!!

Código (vb) [Seleccionar] Expandir


Sub main(): a = "Sub main(): a = ": b = ": MsgBox a & Chr$(34) & a & Chr$(34) & Chr$(58) & Chr$(32) & Chr$(98) & Chr$(32) & Chr$(61) & Chr$(32) & Chr$(34) & b & Chr$(34) & b: End Sub": MsgBox a & Chr$(34) & a & Chr$(34) & Chr$(58) & Chr$(32) & Chr$(98) & Chr$(32) & Chr$(61) & Chr$(32) & Chr$(34) & b & Chr$(34) & b: End Sub


Bueno ese era el mio... mas largo