elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11
31  Programación / Programación Visual Basic / Re: Duda en vb 6.0 en: 13 Diciembre 2007, 16:33 pm
Para mostrar el Form2 también puedes usar:

Código:
Form2.Show

Salu2  ;)
32  Programación / Programación Visual Basic / Re: Funcion Friend? Como Funciona? en: 8 Diciembre 2007, 16:52 pm
FUENTE: http://www.elguille.info/vb/vb6/tiposDefinidos.htm
Citar
Un procedimiento declarado como Friend es "casi" público, pero sólo dentro del propio proyecto, ya que si realmente fuesen públicos podrían ser accesible desde otro proyecto, cosa que no ocurre con los procedimientos "amigos"...

Osea que se usan de igual forma que los ejemplos mostrados para usar en un módulo BAS, salvo que en lugar de declararse como Public se declaran como Friend, además en un módulo de clase NO se puede declarar un Tipo Definido de forma pública, siempre tienen que ser Privados.

Por tanto las funciones quedarían así:

Friend Function Edad2(elColega As tColega) As Long
    'Devuelve la edad del colega que se ha pasado como parámetro
    'y actualiza la fecha de modificación.

    Dim tEdad As Long

    tEdad = Year(Now) - elColega.AñoNac
    elColega.Modificado = Now

    Edad2 = tEdad
End Function


Friend Function NuevoColega2( _
        ByVal sNombre As String, ByVal lngAñoNac As Long, _
        ByVal sEmail As String, ByVal sUrl As String) As tColega
    'Devuelve un elemento del tipo tColega,
    'que es el declarado en el módulo BAS.
    'Se usan los datos pasados como parámetro

    'Usamos una variable temporal para asignar los datos
    Dim tmpColega As tColega

    With tmpColega
        .Nombre = sNombre
        .AñoNac = lngAñoNac
        .email = sEmail
        .Url = sUrl
        .Modificado = Now
    End With

    'Devolver el dato
    NuevoColega2 = tmpColega
End Function

Para usarlo desde un formulario habría que hacerlo así:

'
'Declaración de la clase de prueba
Private m_colega As ctestUDT


'En el Form_Load:

    'Creamos el objeto...
    Set m_colega = New ctestUDT


    'Crear un par de colegas para tenerlos en el listBox

    'Es conveniente que antes de hacer el Redim Preserve
    'el array esté ya dimensionado...
    'ya que he leido en algún sitio que puede dar ERROR
    numColegas = numColegas + 1
    ReDim Preserve variosColegas(0 To numColegas)
    'Usando el método de la clase:
    variosColegas(numColegas) = _
                        m_colega.NuevoColega2( _
                        "Guille", 1957, "mensaje@elguille.info", _
                        "http://www.elguille.info/")


            'Usamos el método de la clase
            Label1(5) = " Edad:" & m_colega.Edad2(variosColegas(queColega)) & " tacos"


'Mostrar el colega número "i"

        With variosColegas(i)
            List1.AddItem .Nombre & vbTab & .AñoNac & vbTab & _
                          .email & vbTab & _
                          Left$(.Url & Space$(64), 64) & vbTab & _
                          Format$(.Modificado, "dd/mmm/yyyy hh:mm:ss")
        End With
33  Programación / Programación Visual Basic / Re: SMTP en: 6 Diciembre 2007, 16:17 pm
Con el de gmail seguro que no te va ir porque pide conexión segura y creo que además necesitas loguearte.

Los de hotmail los probé hace años y ya no iban... prueba a buscar otros smtps publicos o para probar create un servidor de smtp en localhost.

salu2  ;)
34  Programación / Programación Visual Basic / Re: Web Browser en: 2 Diciembre 2007, 16:27 pm
Eso es por que es Command1 en vez de Command y wbr1 en vez de wb:

Código:
Private Sub Command1_Click()
On Error Resume Next
wbr1.GoBack
End Sub

salu2  ;)
35  Programación / Programación Visual Basic / Re: Actualizar microsoft visual studio 6.0(vb 6.0) en: 2 Diciembre 2007, 16:26 pm
No tienes que hacer nada más. El último SP es el 6.

salu2  ;)
36  Foros Generales / Foro Libre / Hoy cumplo 16 años, q harian si tuvieran esta edad? en: 10 Abril 2007, 22:16 pm
Pues eso, que solo me quedan 2 días de cumpleaños (10-04). Cumplo 16y quería saber que harían ustedes para aprovexar la vida a esta edad y eso.

Salu2  :D

37  Programación / Programación Visual Basic / Re: Ayuda Dll en: 29 Enero 2007, 16:51 pm
Aquí tienes la solución a la segunda pregunta, para solucionar lo de las dependencias:


http://foro.elhacker.net/index.php/topic,76284.msg350505.html#msg350505


Salu2  ;)
38  Programación / PHP / ¿Adsense prohibido en foros? en: 28 Enero 2007, 22:08 pm
He estado buscando pero no encuentro nada sobre que este prohibido. Alguien sabe algo claro sobre este tema? sobre si está prohibido o no?

Salu2  ;)
39  Programación / PHP / Re: Integrando Adsense en SMF - Pequeño fallo en: 28 Enero 2007, 14:18 pm
Al final lo solucioné usando este código:

Código:
// Show the post itself, finally!
echo '
</td>
</tr></table>
<hr width="100%" size="1" class="hrcolor"/>';

      if ($message['id'] == $context['first_message'])
{
echo '
         <div align="center">
         <script type="text/javascript"><!--
         google_ad_client = "pub-codigoadsense";
         google_alternate_color = "FFFFFF";
         google_ad_width = 728;
         google_ad_height = 90;
         google_ad_format = "728x90_as";
         google_ad_type = "text_image";
         google_ad_channel ="";
         google_color_border = "FFFFFF";
         google_color_bg = "FFFFFF";
         google_color_link = "0000FF";
         google_color_text = "000000";
         google_color_url = "B3B3B3";
         //--></script>
         <script type="text/javascript"
           src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
         </script>
         </div>
<br/><br/>'



  , $message['body'], '

</td>
</tr>';
}
else
{
echo $message['body'];
}

Salu2  ;)
40  Programación / PHP / Integrando Adsense en SMF - Pequeño fallo en: 27 Enero 2007, 15:10 pm
Hola! Tengo un foro SMF 1.1.1 y quería meter la publicidad de Adsense en el primer post de cada tema. Estuve buscando códigos por internet para integrarlo.
Al final modifique el archivo Display.template.php con este trozo de código:

Código:
// Show the post itself, finally!
echo '
</td>
</tr></table>
<hr width="100%" size="1" class="hrcolor"/>';

      if ($message['id'] == $context['first_message'])
echo '
         <div align="center">
         <script type="text/javascript"><!--
         google_ad_client = "pub-codigoadsense";
         google_alternate_color = "FFFFFF";
         google_ad_width = 728;
         google_ad_height = 90;
         google_ad_format = "728x90_as";
         google_ad_type = "text_image";
         google_ad_channel ="";
         google_color_border = "FFFFFF";
         google_color_bg = "FFFFFF";
         google_color_link = "0000FF";
         google_color_text = "000000";
         google_color_url = "B3B3B3";
         //--></script>
         <script type="text/javascript"
           src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
         </script>
         </div>
<br/><br/>'



  , $message['body'], '

</td>
</tr>';

Funcionar funciona porque se muestra dentro del primer post la publicidad y a continuación su contenido. El problema es que los post siguientes salen en blanco, como si el que hubiera escrito el post lo hubiera dejado en blanco.

¿Podrían decirme como solucionar esto? Supongo que sera con un else... pero yo he probado y no lo he conseguido.

Salu2 y gracias  ;)
Páginas: 1 2 3 [4] 5 6 7 8 9 10 11
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines