Mensajes

HOLA!!!

MMM, no se si es una buena idea pero otra forma no seria:

CODIGO ORIGINAL:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
        MsgBox "hola"
End Sub


CODIGO OFUSCADO:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim hola As Boolean
    hola = False ' por las dudas XD
    If hola Then
hola:
        MsgBox "hola"
    End If
    GoTo hola
End Sub

Espero una respuesta para ver si sirvio o no.

GRACIAS POR LEER!!!

HOLA!!!

Gracias por comentar, pero este hilo es viejo solo que un chabon lo subio por que si.

Ya deje la base del programa en otro post que dice algo de reconocer contornos y marcar piel. [Agradecimiento a LeandroA]

Funciona rapido, ese era uno de los problemas que tenia con VB, no llegaba a una velocidad razonable, ahora si.

GRACIAS POR LEER!!!

HOLA!!!

Leí tu privado... esperaba ver un programa para hacer algo mas interesante que jugar al pool  ...

Con lo que te dijeron alcanza. Si tenes suerte cosa que como es un programa un poco precario puede ser tal ves guarda la info en un archivo... Ahí podrías usar un Administrador de tareas avanzado (conseguilo) el cual se fija que archivos y entradas de registro verifican (abren) los programas.
No doy mas info.


GRACIAS POR LEER!!!

HOLA!!!

Yo siempre le creo a todos, pero ¿Txuy es tu nombre? WOW

En el ejecutable no me anda la Function2

GRACIAS POR LEER!!!

HOLA!!!

...

Bin-Brain v2 By Txuy2011

Tal ves Ignorante 1.1 Tiene otro nick y es Txuy .



GRACIAS POR LEER!!!

HOLA!!!

En mi opinion .NET, Java, Php, mysql, sqlserver, html (obvio  ) y Delphi.

Son los que mas me gustan, igual amo VB6 (pero esta obsoleto).

GRACIAS POR LEER!!!

HOLA!!!

XD Es cierto, ahora ya funciona perfecto .

GRACIAS POR LEER!!!

HOLA!!!

Este efecto hace que el formulario se vaya agrandando hasta llegar a su tamaño original, buen efecto, para lograr un acabado diferente se puede quitar la linea que dice Me.Visible = False y la linea que dice Me.Visible = True asi queda otro efecto.

Recomiendo poner StartUpPosition = 2 antes de Ejecutar

Código (vb) [Seleccionar] Expandir

Private Alto as integer
Private Largo as integer
Private Aux as Double

Private Sub Form_Initialize()
   Me.Visible = False
   Alto = Me.Height
   Largo = Me.Width
   Aux = 10
   Timer1.interval = 10
End Sub

Private Sub Timer1_Timer()
   Me.Visible = True
   Aux = Aux - (Aux / 10)
   Me.Height = Alto / Aux
   Me.Width = Largo / Aux
   If Aux < 1 Then
       Me.Height = Alto
       Me.Width = Largo
       Timer1.Interval = 0
       Timer1.Enabled = False
   End If
End Sub

GRACIAS POR LEER!!!

HOLA!!!

En realidad si, pero era para que se enteren los que frecuentan el foro de VB6 Igual ya lo movieron XD.

GRACIAS POR LEER!!!

HOLA!!!

Mirate esto, Planet Source Code casiNUNCA falla:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66490&lngWId=1

GRACIAS POR LEER!!!