Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form3
- Private uktValue As Integer
- Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- ' Tampilkan UKT di Label atau TextBox
- 'lblUKT.Text = "Rp " & uktValue.ToString("N0")
- Dim query As String = "SELECT * FROM jurusan"
- LoadDataToDataGridView(query, DataGridView1)
- End Sub
- Private Sub btnBatal_Click(sender As Object, e As EventArgs) Handles btnBatal.Click
- Application.Exit()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- lblUKT.Text = "Rp " & UktTerpilih.ToString("N0")
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement