HOLA!!!

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

CODIGO ORIGINAL:

Private Sub Form_Load()
        MsgBox "hola"
End Sub

CODIGO OFUSCADO:

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!!!


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

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!!!