Mensajes

Para mostrar el Form2 también puedes usar:

Código [Seleccionar] Expandir

Form2.Show

Salu2 

FUENTE: http://www.elguille.info/vb/vb6/tiposDefinidos.htm

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

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 

Eso es por que es Command1 en vez de Command y wbr1 en vez de wb:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
On Error Resume Next
wbr1.GoBack
End Sub

salu2 

No tienes que hacer nada más. El último SP es el 6.

salu2 

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 

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 

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 

Al final lo solucioné usando este código:

Código [Seleccionar] Expandir

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

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 [Seleccionar] Expandir

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