Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. Public Class Form1
  2. ' tên label là
  3. ' tên của Listbox Danh là list_
  4. ' tên nút thoát là btn_thoat
  5. Private Sub btn_thoat_Click(sender As Object, e As EventArgs) Handles btn_thoat.Click
  6. If (MessageBox.Show("Bạn có muốn thoát?", "Thông báo", MessageBoxButtons.YesNo).Equals(DialogResult.Yes)) Then
  7. Application.Exit()
  8. End If
  9. End Sub
  10.  
  11. Private Sub btn_lamlai_Click(sender As Object, e As EventArgs) Handles btn_lamlai.Click
  12. txt_a.Text = ""
  13. txt_b.Text = ""
  14. txt_c.Text = ""
  15. txt_ketqua.Text = ""
  16. End Sub
  17.  
  18. Private Sub rad_ptbacnhat_CheckedChanged(sender As Object, e As EventArgs) Handles rad_ptbacnhat.CheckedChanged
  19. txt_c.Enabled = False
  20.  
  21. End Sub
  22.  
  23. Private Sub rad_ptbac2_CheckedChanged(sender As Object, e As EventArgs) Handles rad_ptbac2.CheckedChanged
  24. txt_c.Enabled = True
  25. End Sub
  26.  
  27. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement