RE:PoPup Messenger
Publicado por
benjamin (1 intervención) el 28/04/2005 03:13:27
hola q tal sabes amigo? yo quise hacer lo mismo pero no es libreria aunque este codigo lo puedes hacer ( midificandolo un poco ) para que lo generes como libreria es decir con este codigo que te voy a pasar
creas tu libreria aunque yo lo ocupo de otra manera seria mas facil ponerlo como libreria ahhora que lo estoy pensando :P jejeje ahi te va el codigo jeje bueno nos vemos bye
'este codigo lo tengo yo en un boton de comando
' el mensaje aparece por medio de una llamada a otro formulario que
'tiene el tamaño del cuadro del mensaje
'el formulario lo posicione en la parte inferior izquierda del
'primer 'formulario : P espero que no te haya confundido
Private Sub Command1_Click()
Dim a As Long
For q = 1 To 10
Next q
If a1 = 0 Or b1 = 0 Then
a1 = Me.Top
b1 = Me.Height
GoTo aqui
End If
Me.Top = a1
Me.Height = b1
aqui:
Me.Left = 9180
Dim i As Long
Dim cas As Long
For i = 1 To 83
If Me.Top = 7000 Then GoTo yatop
For q = 1 To 10
Next q
Me.Top = Me.Top - i + 1
yatop:
If Me.Height = 500 Then GoTo yaheig
For q = 1 To 10
Next q
Me.Height = Me.Height + 100
Next i
yaheig:
Timer2.Enabled = True
End Sub
si quieres el ejemplo de mi codigo ya completo mandame tu correo y te lo mando ;)