none
Visual Basic (Windows form) RRS feed

  • Pregunta

  • Tengo este código que lo construí con mucha dificultad, ahora lo que necesito es que lo que se imprime se imprima en un TextBox2 y con lo que tengo lo imprime directamente en el Form y fuera del área que se ve.

    Public Class tpej
        Private Function Factoriel(ByVal n As Integer) As Long
            If n = 0 Then
                Return 1
            Else
                Return n * Factoriel(n - 1)
            End If
        End Function

        Private Sub btnPascal_Click(ByVal sender As System.Object,
                                    ByVal e As System.EventArgs) _
                                    Handles Button1.Click
            Me.Refresh()
            Dim g As Graphics = Me.CreateGraphics
            Dim w As Integer = Me.Width
            Dim x As Long
            For i As Integer = 0 To Me.TextBox1.Text
                For j As Integer = 0 To i
                    x = Factoriel(i) / (Factoriel(j) * Factoriel(i - j))
                    g.DrawString(x, New Font("Arial", 10, FontStyle.Regular),
                                 Brushes.Black, w / 2 - 20 * i + 40 * j, i * 20)
                Next
            Next
        End Sub
        Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
            Me.Visible = False
            tp.Show()
        End Sub

        Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
            End
        End Sub

        Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
            Label1.Parent = PictureBox1
            Label1.Visible = True
        End Sub

        Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        End Sub
    End Class

    Ayuda por favor!! Gracias de antemano.

    miércoles, 4 de mayo de 2016 22:53

Respuestas

  • Hola,

    [-] .... con lo que tengo lo imprime directamente en el Form y fuera del área que se ve.

    Lo imprime en el Form, porque estás creando el Graphics del Me (osea del Formulario)

    Dim g As Graphics = Me.CreateGraphics

    Cambia a esto :

            Dim g As Graphics = TextBox2.CreateGraphics
            Dim w As Integer = TextBox2.Width

    En este caso quiero que lo muestre en mi TextBox2.

    Resultado :

    Nota : Cabe resaltar que solo me limité a decirte donde tenías el problema, más no revisé el código.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    jueves, 5 de mayo de 2016 5:16