none
al entrar el mouse y al salir rapido del picturebox pasa esto RRS feed

  • Debate general

  • Buenas 

    Al entrar con el raton y salir rapiodo de un picturebox me pasa esto

    se queda el picturebox activado 

    gracias 

     Private Sub PBT_Notas_MouseEnter(sender As Object, e As EventArgs) Handles PBT_Notas.MouseEnter
            PBT_Notas.BorderStyle = BorderStyle.FixedSingle
            PBT_Notas.Size = New Size(67, 107)
            PBT_Notas.BackColor = Color.DarkOrange
        End Sub
        Private Sub PBT_Notas_LostFocus(sender As Object, e As EventArgs) Handles PBT_Notas.LostFocus
            PBT_Notas.BorderStyle = BorderStyle.None
            PBT_Notas.Size = New Size(65, 105)
            PBT_Notas.BackColor = Color.Transparent
        End Sub
        Private Sub PBT_Notas_MouseLeave(sender As Object, e As EventArgs) Handles PBT_Notas.MouseLeave
            PBT_Notas.BorderStyle = BorderStyle.None
            PBT_Notas.Size = New Size(65, 105)
            PBT_Notas.BackColor = Color.Transparent
        End Sub
    
        Private Sub PBT_Notas_Paint(sender As Object, e As PaintEventArgs) Handles PBT_Notas.Paint
            Dim drawFont As New System.Drawing.Font("Microsoft Sans Serif", 12, FontStyle.Bold), drawBrush As New SolidBrush(Color.Black)
            Dim drawFont1 As New System.Drawing.Font("Microsoft Sans Serif", 28, FontStyle.Bold), drawBrush1 As New SolidBrush(Color.Red)
            Dim Total_w As String
            Dim Total_h As String
            Dim Total1_w As String
            Dim Total1_h As String
            Total1_w = e.Graphics.MeasureString(Co_Notas, drawFont1).Width
            Total1_h = e.Graphics.MeasureString(Co_Notas, drawFont1).Height
            Total_w = e.Graphics.MeasureString("Notas", drawFont).Width
            Total_h = e.Graphics.MeasureString("Notas", drawFont).Height
            e.Graphics.DrawString(Co_Notas, drawFont1, Brushes.Red, (PBT_Notas.Width - Total1_w) / 2, PBT_Notas.Height - (Total1_h + 38))
            e.Graphics.DrawString("Notas", drawFont, Brushes.Black, (PBT_Notas.Width - Total_w) / 2, PBT_Notas.Height - Total_h)
    
        End Sub

    domingo, 17 de diciembre de 2017 19:22

Todas las respuestas

  • Talves se requiera forzar el respirando del control al salir el Mouse de este, prueba haciendo un invalidate () en el leave

    Marvin E. Pineda

      ComboBoxMultiColumns

     NetBarControl

      TextEditor

    domingo, 17 de diciembre de 2017 21:48
  • Gracias por responder Marvin

    No me a funcionado lo que mencionas

    pero lo he solucionado con mouse enter en el grupo panel donde estan los pictures

    1000 gracias por la ayuda

    lunes, 18 de diciembre de 2017 9:14
  • Asi lo he solucionado 

    Sub Recursivo_Picture(c As Control)
            For Each ctrl As Control In c.Controls
                If TypeOf ctrl Is PictureBox Then
    
                    AddHandler (ctrl.MouseEnter), AddressOf MouseEnter_All_Picture
                    AddHandler (ctrl.MouseLeave), AddressOf MouseLeave_All_Picture
    
                Else
                    Recursivo_Picture(ctrl)
                End If
            Next
        End Sub
    
        Private Sub MouseEnter_All_Picture(sender As Object, e As System.EventArgs)
            Dim ctrl As Control = DirectCast(sender, Control)
            If TypeOf ctrl Is PictureBox Then
                If ctrl.Name.Contains("PBT_") = True Then
                   
                    ctrl.Size = New Size(67, 107)
                    ctrl.BackColor = Color.DarkOrange
    
                   
                End If
            End If
    
        End Sub
    
        Private Sub MouseLeave_All_Picture(sender As Object, e As System.EventArgs)
            Dim ctrl As Control = DirectCast(sender, Control)
            If TypeOf ctrl Is PictureBox Then
                If ctrl.Name.Contains("PBT_") = True Then
                  
                    ctrl.Size = New Size(65, 105)
                    ctrl.BackColor = Color.Transparent
                End If
            End If
    
        End Sub

    lunes, 18 de diciembre de 2017 10:33
  • Entiendo, para algunos casos donde el evento level no se ejecuta se utiliza TrackMouseEvent function, yo lo he usado mucho con los textbox y controles personalizados

    Si me esperas te preparo un ejemplo


    Marvin E. Pineda

      ComboBoxMultiColumns

     NetBarControl

      TextEditor

    lunes, 18 de diciembre de 2017 13:13