[RESOLVED] [2008] Main Form Shown Event and Draw in a textbox

[Lasering]

Hi!!

I have several textboxes on my only form in my project. And inside the Shown event of my form I have a piece of code that Draws numbers into each every textbox using this (only part of the code is here):

        If NumerosPossiveis.Contains("1") Then g.DrawString("1", Me.Font, New SolidBrush(Me.ForeColor), 3, 1)
        If NumerosPossiveis.Contains("2") Then g.DrawString("2", Me.Font, New SolidBrush(Me.ForeColor), 13, 1)
        If NumerosPossiveis.Contains("3") Then g.DrawString("3", Me.Font, New SolidBrush(Me.ForeColor), 23, 1)
        If NumerosPossiveis.Contains("4") Then g.DrawString("4", Me.Font, New SolidBrush(Me.ForeColor), 3, 13)
        If NumerosPossiveis.Contains("5") Then g.DrawString("5", Me.Font, New SolidBrush(Me.ForeColor), 13, 13)
        If NumerosPossiveis.Contains("6") Then g.DrawString("6", Me.Font, New SolidBrush(Me.ForeColor), 23, 13)
        If NumerosPossiveis.Contains("7") Then g.DrawString("7", Me.Font, New SolidBrush(Me.ForeColor), 3, 25)
        If NumerosPossiveis.Contains("8") Then g.DrawString("8", Me.Font, New SolidBrush(Me.ForeColor), 13, 25)
        If NumerosPossiveis.Contains("9") Then g.DrawString("9", Me.Font, New SolidBrush(Me.ForeColor), 23, 25)

So when I run the program I should see all the drawn strings, instead I get this (See attachment)
Its like he draw the strings correctly but then something draw over the strings.
Why does this happen?

[stanav]

1. All drawings need to be done in the Paint event of the control.
2. If you want to draw on a particular control, you need to use the graphics object of that control.
So now the question is, what event are you doing the drawing and what graphics object are you using? I hope you're drawing in the Shown event of the form

[JuggaloBrotha]

1. All drawings need to be done in the Paint event of the control.
2. If you want to draw on a particular control, you need to use the graphics object of that control.
So now the question is, what event are you doing the drawing and what graphics object are you using? I hope you're drawing in the Shown event of the form

I hope he's not drawing in the form's shown event, I'd hope it's in the textbox's overridden on paint event

[Lasering]

I'm using the graphics object of the textbox I'm currently drawing in.

I hope he's not drawing in the form's shown event, I'd hope it's in the textbox's overridden on paint event

Actually I'm drawing inthe form's shown event, because if I draw in the textbox's overridden on paint event I have to create a class that inherits form Textbox to do that, and I simply dont want to, unless there is no other option.

[stanav]

No, you don't have to create any class that inherits the TextBox class. You can just handle your TextBox.Paint event and doing the drawing there instead of doing it in the Form.Shown event as you're doing now.

[Lasering]

Well, didnt work

    Private Sub A2_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles A2.Paint
        Dim NumerosPossiveis As String = A2.Tag.ToString
        If NumerosPossiveis = Nothing Then Exit Sub
        Dim g As Drawing.Graphics = A2.CreateGraphics
        If NumerosPossiveis.Contains("1") Then g.DrawString("1", Me.Font, New SolidBrush(Me.ForeColor), 3, 1)
        If NumerosPossiveis.Contains("2") Then g.DrawString("2", Me.Font, New SolidBrush(Me.ForeColor), 13, 1)
        If NumerosPossiveis.Contains("3") Then g.DrawString("3", Me.Font, New SolidBrush(Me.ForeColor), 23, 1)
        If NumerosPossiveis.Contains("4") Then g.DrawString("4", Me.Font, New SolidBrush(Me.ForeColor), 3, 13)
        If NumerosPossiveis.Contains("5") Then g.DrawString("5", Me.Font, New SolidBrush(Me.ForeColor), 13, 13)
        If NumerosPossiveis.Contains("6") Then g.DrawString("6", Me.Font, New SolidBrush(Me.ForeColor), 23, 13)
        If NumerosPossiveis.Contains("7") Then g.DrawString("7", Me.Font, New SolidBrush(Me.ForeColor), 3, 25)
        If NumerosPossiveis.Contains("8") Then g.DrawString("8", Me.Font, New SolidBrush(Me.ForeColor), 13, 25)
        If NumerosPossiveis.Contains("9") Then g.DrawString("9", Me.Font, New SolidBrush(Me.ForeColor), 23, 25)
    End Sub

What I did wrong?