[RESOLVED] How to use the control on label

[mark108]

Hi guys,

I would like to know which method that I could use the code to control on label?


Here it is the code:

Public Class Form1
    Private Const FADESPEED As Integer = 20
    Private Structure FadeLabel
        Dim Color As Color
        Dim Alpha As Byte
        Dim X, Y As Integer
        Dim Text As String
        Dim Font As Font
        Public Sub New(ByVal text As String, ByVal color As Color, ByVal x As Integer, ByVal y As Integer, ByVal font As Font)
            Me.Text = text
            Me.Color = color
            Me.Alpha = 255
            Me.X = x
            Me.Y = y
            Me.Font = font
        End Sub
    End Structure
    Dim lbl As FadeLabel = New FadeLabel("Test label", Color.Blue, 20, 20, New Font("Verdana", 15))
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If lbl.Alpha - FADESPEED >= 0 Then lbl.Alpha -= FADESPEED Else FadeDone()
        Me.Invalidate()
    End Sub
    Private Sub FadeDone()
        Me.Timer1.Stop()
        lbl.Alpha = 0
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim g As Graphics = e.Graphics
        g.DrawString(lbl.Text, lbl.Font, New SolidBrush(Color.FromArgb(lbl.Alpha, lbl.Color)), lbl.X, lbl.Y)
        MyBase.OnPaint(e)
    End Sub
End Class

I hope that it is still possible to use the code to control on label. If so, please could you tell me what I need to replace with.



Thanks,
Mark

[jmcilhinney]

I don't understand what "control on label" means. That code looks like it's intended to fade some text in and/or out. is that what you're trying to do? Have you tried the code? Does it do what you want? If so then you have your answer. If not then what happened that you didn't want or what didn't happen that you did want? Please provide a full and clear explanation of the problem.