Print Teks ke Form dalam VB.NET

Pernahkah Anda dihadapkan pada kasus yang biasanya kita buat dengan mudah di Visual Basic 6, kemudian menjadi kendala dan susah kita terapkan di Visual Basic.Net? Nah ini terdapat salah satau masalah yaitu bagaimana jika kita ingin menuliskan teks ke dalam form langsung seperti perintah Me.Print “teks” atau Me.Print Tab(15);"Teks"  pada Visual Basic 6.0 ke dalam Visual Basic.Net. Nah dengan menggunakan Visual Studio 2012, saya coba buat yang hasilnya seperti pada Gambar 1 berikut;

 Gambar 1. Menulis Teks ke dalam Form di VB.NET

Kode programnya dibuat dalam sebuah prosedur sebagai berikut;

Public Class Form1

    Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click

        Dim i, j As Integer

        For i = 1 To 9

            PrintTextToForm(i & "  " & "Teks di Form VB.NET", 20, 20 * i)

        Next i

    End Sub

    'membuat procedure untuk mencetak teks dengan posisi pixel di (x,y)

    Private Sub PrintTextToForm(Text As String, x As Single, y As Single)

        Dim g As Graphics = Me.CreateGraphics()

        g.DrawString(Text, New Font("Arial", 16), New SolidBrush(Color.Black), New PointF(x, y))

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        End

    End Sub

End Class

Kode program dalam bentuk prosedur PrintTextToForm di dalamnya terdapat pengaturan jenis dan ukuran Font. Aturlah sesuai selera Anda. Semoga bermanfaat.