Contoh Program Copy Textbox ke Label Di Visual Basic [Pertemuan: III]

Kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET Kali ini saya akan berbagi tentang bagaimana cara mengcopykan text yang kita tuliskan di Textbox ke Label yang kita inginkan Berikut ini adalah contoh pembuatan programnya.



Seperti biasa buat project baru dan Form baru Kemudian desain form anda seperti ini Maksud dari txtUsername, lblGreeting, btnShowGreeting, btnClear, dan btnExit ini adalah adalah penamaan pada Properties masing-masing Toolbox yang kita pakai, kaya gini contoh di Propertiesnya Di bagian Name lah kita gunakan penulisan seperti txtKm, txtTank dan lain-lain tadi. Bila desain sudah anda desain seperti di atas, sekarang kita lanjut unutk mengcoding program tersebut Seperti ini lah contoh sintaks yang digunakan Sintaks untuk mengcopy dari txtUserName ke lblGreeting

Public Class Form1

   
 Private Sub btnShowGreeting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowGreeting.Click

        lblGreeting.Text = "Hello " & txtUserName.Text
    End Sub


Berikut ini Sintaks yang digunakan untuk btnExit

   
 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

Dan yang ini adalah Sintaks untuk btnClear yang berfungsi untuk mengosongkan textbox kita.

  
  Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtUserName.Clear()
        lblGreeting.Text = String.Empty
    End Sub
End Class

Dan untuk yang sedikit lebih bagus, sekaligus bisa sedikit mengasah kemampuan kita cobalah buat program berikut ini. Dan berikut ini contoh sintaksnya : Public Class Form2

    Private Sub btnShowDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDate.Click
        lblDateString.Text = txtDayOfWeek.Text & " , " & txtMonth.Text & " " & txtDayOfMonth.Text & " , " & txtYear.Text
    End Sub

    Private Sub ctnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctnClear.Click
        txtDayOfMonth.Clear()
        txtDayOfWeek.Clear()
        txtMonth.Clear()
        txtYear.Clear()
        lblDateString.Text = String.Empty
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Seperti itulah sedikit tutorial yang dapat saya bagikan, semoga dapat bermanfaat bagi yang membutuhkan Aamiin.