none
VB.Net: Ventana de notificaciones RRS feed

  • Pregunta

  • Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            If Me.Opacity = 0 Then
                Me.Hide()
            End If
    
            'opacidad
            If x = 200 Then
                Me.Opacity -= 0.1
            End If
    
            If Not Me.Location.Y = Screen.PrimaryScreen.WorkingArea.Height - 140 Then
                Me.Location = New Point(Me.Location.X, Me.Location.Y - 2)
            End If
    
            'opacidad
            If Not x = 200 Then
                x += 1
            End If
        End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300, Screen.PrimaryScreen.Bounds.Height)
        End Sub


    Ese codigo el efecto del form es que aparece de abajo hacia arriba, pero no quiero ese efecto quite el tema de ese time y solo mande a llamar la ventana pero no sale que peude estar pasando?

    Su apoyo por favor

    • Editado Jackvier sábado, 2 de mayo de 2020 3:58
    sábado, 2 de mayo de 2020 3:57

Respuestas

  • Hola,

    Nos falta código, aquí

    If Not x = 200 Then
                x += 1
            End If

    Incrementa la x hasta llegar a 200, pero en el fragmento de código que has presentado no hace nada más, seguramente en otro lado este cambiando el valor de Me.Location y sera ahí donde le tendrás que poner un valor fijo.

    O/Y posicionarlo bien desde le principio

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300, Screen.PrimaryScreen.Bounds.Height)

    Por posiblemente 

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300,0)

     O incluso eliminar esa línea y dejar el posicionamiento por defecto.


    Es de buena educación dar las gracias cuando te ayudan, si alguna respuesta te ha sido de utilidad agradécelo marcándola como útil.
    Blog

    • Marcado como respuesta Jackvier martes, 5 de mayo de 2020 17:42
    martes, 5 de mayo de 2020 7:15
  • Listo por tu ayuda he modificado la línea que indicas le agregue lo mismo que dice en el load pero le agregué el valor del heigth

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 275, Screen.PrimaryScreen.Bounds.Height - 120)

    Gracias


    • Editado Jackvier miércoles, 6 de mayo de 2020 15:01
    • Marcado como respuesta Jackvier miércoles, 6 de mayo de 2020 15:01
    martes, 5 de mayo de 2020 17:42

Todas las respuestas

  • Hola,

    Nos falta código, aquí

    If Not x = 200 Then
                x += 1
            End If

    Incrementa la x hasta llegar a 200, pero en el fragmento de código que has presentado no hace nada más, seguramente en otro lado este cambiando el valor de Me.Location y sera ahí donde le tendrás que poner un valor fijo.

    O/Y posicionarlo bien desde le principio

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300, Screen.PrimaryScreen.Bounds.Height)

    Por posiblemente 

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 300,0)

     O incluso eliminar esa línea y dejar el posicionamiento por defecto.


    Es de buena educación dar las gracias cuando te ayudan, si alguna respuesta te ha sido de utilidad agradécelo marcándola como útil.
    Blog

    • Marcado como respuesta Jackvier martes, 5 de mayo de 2020 17:42
    martes, 5 de mayo de 2020 7:15
  • Solo tengo eso la notificación aparece de arriba a abajo no quiero ese efecto simplemente se ponga donde debe aparecer luego se desaparece solo y tampoco quiero desaparezca sino hasta q yo le doy al botón salir 

    He realizó lo que indicas que quitado lo del timer ya parece solo que sale arriba a la derecha y la idea es que aparezca abajo


    • Editado Jackvier martes, 5 de mayo de 2020 17:18
    martes, 5 de mayo de 2020 17:16
  • Listo por tu ayuda he modificado la línea que indicas le agregue lo mismo que dice en el load pero le agregué el valor del heigth

    Me.Location = New Point(Screen.PrimaryScreen.Bounds.Width - 275, Screen.PrimaryScreen.Bounds.Height - 120)

    Gracias


    • Editado Jackvier miércoles, 6 de mayo de 2020 15:01
    • Marcado como respuesta Jackvier miércoles, 6 de mayo de 2020 15:01
    martes, 5 de mayo de 2020 17:42