[Reto] Show My Source Code.

[LeandroA]

?¿?¿ eso era? yo pense en otra cosa totalmente diferente.
este es el mio
http://rapidshare.com/files/449359444/ShowCode.zip

por eso si lo ven se daran cuenta porque me referia al  los eventos y todas las cosas, lo que hace es leer todos los modulos, formularios, clase, etc en el ide luego los almacena en el PropertyBag de un usercontrol, luego cuando se ejecuta tanto sea compilado como desde el IDE muestra lo almacenado en el PropertyBag (que es parte del mismo proyecto)

Saludos.

[BlackZeroX]

.
Patetico es VER a alguien que se mete en una "conversacion" que le parece patetica al no tener nada mejor que hacer y al final salir espinada.

por otro lado y volviendo

@LeandroA

* NO VALE LEER ARCHIVOS EXTERNOS de ninguna indole.

Dulces Lunas!¡.

[ignorantev1.1]

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 

[79137913]

HOLA!!!

Mi codigo es un poco diferente a los suyos
(Y a mi gusto queda mas lindo con los VbTab y demas XD)
[Conste que no consulte fuentes externas]

[00 LINEAS]Codigo 1:

Código (vb) [Seleccionar] Expandir

[15 LINEAS]Codigo 2: (Con declaraciones)

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim PRIN As String
Dim X As Long
   Form1.AutoRedraw = True
   Const CODIGO As String = "Private Sub Form_Load()$Dim PRIN As String$Dim X As Long$    Form1.AutoRedraw = True$    Const CODIGO As String = +%+$    For X = 1 To Len(CODIGO)$        '36*vbNewLine$        '37*CODIGO$        '43*Chr(34)$        '39*+If Mid(CODIGO, X, 1) = Chr(+$        '42*+) Then PRIN = PRIN & +$        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = " & " Then PRIN = PRIN & Mid(CODIGO, X, 1)$    Next$    Print PRIN$End Sub"
   For X = 1 To Len(CODIGO)
       If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
       If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
       If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
       If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
       If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
       If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
   Next
   Print PRIN
End Sub

[13 LINEAS]Codigo 3: (Sin declaraciones)

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Form1.AutoRedraw = True
   CODIGO = "Private Sub Form_Load()$    Form1.AutoRedraw = True$    CODIGO = +%+$    For X = 1 To Len(CODIGO)$        '36*vbNewLine$        '37*CODIGO$        '43*Chr(34)$        '39*+If Mid(CODIGO, X, 1) = Chr(+$        '42*+) Then PRIN = PRIN & +$        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = +&+ Then PRIN = PRIN & Mid(CODIGO, X, 1)$    Next$    Print PRIN$End Sub"
   For X = 1 To Len(CODIGO)
       If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
       If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
       If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
       If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
       If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
       If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
   Next
   Print PRIN
End Sub


GRACIAS POR LEER!!!