none
Como posso crear uma label control com uma picturebox em vb.net RRS feed

  • Pergunta

  • estou desenvolvendo uma aplicacao que usa seus proprios controls , este software e um editor visual para desenvolver outros addons para o meu software , eu ja tentei fazer a label com o picturebox mas depois de fazer o Build e por o control no meu form

    so aparece a label mesmo quando eu defino a imagem por default

    E se por inerit system.windows.forms.label aparece a imagem no centro da label i nao consigo ler as letras do label pois a picture fica por cima dela.

    este e o meu codigo actual do control

    Public Class label_picture
    
        Public Sub New()
    
            ' This call is required by the designer.
            InitializeComponent()
            Label1.ForeColor = Color.Black
            Me.ForeColor = Color.DeepSkyBlue
    
            ' Add any initialization after the InitializeComponent() call.
    
        End Sub
        Public Property image As Image
            Get
                Return image
            End Get
            Set(image As Image)
                PictureBox1.BackgroundImage = image
                PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
                Me.Invalidate()
            End Set
        End Property
        Public Property text_labelpic_text As String
            Get
                Return text_labelpic_text
            End Get
            Set(text_labelpic_text As String)
                Label1.Text = text_labelpic_text
                Me.Invalidate()
            End Set
        End Property
    
        Private Sub Label1_TextChanged(sender As Object, e As EventArgs) Handles Label1.TextChanged
            Label1.Text = text_labelpic_text
            Me.Invalidate()
        End Sub
    
        Private Sub label_picture_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
            Label1.Location = New Point(CInt(Me.Width / 2 - Label1.Width / 2), CInt(Me.Height / 2 - Label1.Height))
            Label1.Top = (Label1.Parent.Height \ 2) - (Label1.Height \ 2)
            PictureBox1.Location = New Point(CInt(Me.Width / 2 - PictureBox1.Width / 2), CInt(Me.Height / 2 - PictureBox1.Height))
            PictureBox1.Top = (PictureBox1.Parent.Height \ 2) - (PictureBox1.Height \ 2)
            PictureBox1.Left = (PictureBox1.Parent.Width \ 2) - (PictureBox1.Width \ 2)
        End Sub
    End Class
    

    sexta-feira, 22 de fevereiro de 2019 12:14