Rabu, 25 Februari 2015
Contoh Program Pengcopyan dari Textbox ke Label
Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, 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.
