Kỹ thuật lập trình trong VB NET

1 1 Windows Form programming with VB.Net 2005. Bu Bu ổ ổ i 5: K i 5: K ỹ ỹ thu thu ậ ậ t l t l ậ ậ p tr p tr ì ì nh trong VB.NET nh trong VB.NET  Hàm (Function) - Thủ tục (Procedure)  Khái niệm lập trình hướng đối tượng (OOP: Object Orientation Programming)  Lập trình theo sự kiện (Event) và lập trình Thuộc tính (Property) 2 Windows Form programming with VB.Net 2005.   H H à à m (Function) m (Function) [Public, Protected, Private] Function <Tên hàm> _ [(Danh sách các tham số)] AS <ReturnType> _ [Handles eventlist] [Khai báo biến thuộc tầm vực của hàm] [Các câu lệnh …] [Exit Fucntion] Return <ReturnType> End Fucntion - - M M ộ ộ t H t H à à m m l l à à dãy c dãy c á á c câu l c câu l ệ ệ nh đ nh đ ể ể th th ự ự c thi m c thi m ộ ộ t công t công vi vi ệ ệ c, m c, m ộ ộ t ch t ch ứ ứ c năng đ c năng đ ặ ặ c th c th ù ù n n à à o đ o đ ó ó - - H H à à m m đư đư ợ ợ c g c g ọ ọ i đ i đ ể ể thi h thi h à à nh th nh th ông ông qua tên th qua tên th ủ ủ t t ụ ụ c c - - H H à à m m th th ư ư ờ ờ ng ng c c ó ó gi gi á á tr tr ị ị tr tr ả ả v v ề ề 2 3 Windows Form programming with VB.Net 2005. Private Function Max(ByVal a As Integer, ByVal _ b As Integer) As Integer If a > b Then Return a Else Return b End If End Function Dim C as Integer Dim C as Integer C = Max(a,b) C = Max(a,b) VD: H VD: H à à m m 4 Windows Form programming with VB.Net 2005.   Th Th ủ ủ t t ụ ụ c (Procedure) c (Procedure) [Public, Protected, Private] Sub [Public, Protected, Private] Sub <Tên Th <Tên Th ủ ủ t t ụ ụ c> _ c> _ [(Danh s [(Danh s á á ch c ch c á á c tham s c tham s ố ố )] [ )] [ Handles Handles eventlist eventlist ] ] [Khai b [Khai b á á o bi o bi ế ế n thu n thu ộ ộ c t c t ầ ầ m v m v ự ự c c c c ủ ủ a th a th ủ ủ t t ụ ụ c] c] [C [C á á c câu l c câu l ệ ệ nh nh … … ] ] [Exit Sub] [Exit Sub] End Sub End Sub - - Ch Ch ứ ứ c năng c c năng c ủ ủ a th a th ủ ủ t t ụ ụ c gi c gi ố ố ng như H ng như H à à m, m, nhưng nhưng Th Th ủ ủ t t ụ ụ c c không không c c ó ó gi gi á á tr tr ị ị tr tr ả ả v v ề ề 3 5 Windows Form programming with VB.Net 2005. Private Sub bntAn_Click( , ) Handles bntAn.Click AnGioiTinh() End Sub 6 Windows Form programming with VB.Net 2005. Private Sub AnGioiTinh() Dim rdb As RadioButton For Each Ctrl As Control In GroupBox1.Controls On Error Resume Next 'Cólỗi bỏ qua rdb = CType(Ctrl , RadioButton) ' chuyển kiểu rdb.Visible = False Next GroupBox1.Text = "Sở thích:“ End Sub VD: Th VD: Th ủ ủ t t ụ ụ c c 4 7 Windows Form programming with VB.Net 2005. Public Public Function Function GetCommand() GetCommand() As As OleDbCommand OleDbCommand Dim Dim cn cn As New As New OleDbConnection OleDbConnection Dim Dim cmd cmd As New As New OleDbCommand OleDbCommand Dim Dim strConnection strConnection As String = As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D: Source=D: \ \ QLNhanSu.mdb" QLNhanSu.mdb" cn.ConnectionString cn.ConnectionString = = strConnection strConnection cn.Open() cn.Open() cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = cmd.CommandText = “ “ sp_NhanVien sp_NhanVien ” ” cmd.Connection = cn cmd.Connection = cn return return cmd cmd End Function End Function VD: H VD: H à à m tr m tr ả ả v v ề ề 1 1 đ đ ố ố i tư i tư ợ ợ ng Command ng Command 8 Windows Form programming with VB.Net 2005. VD: DataAdapter & Fill cho DataTable VD: DataAdapter & Fill cho DataTable p p ublic ublic f f unction unction G G et et D D ata ata T T able able () () a a s s D D ata ata T T able able Dim Dim da da As New As New OleDbDataAdapter() OleDbDataAdapter() Dim Dim tb tb As New As New DataTable DataTable () () Tr Tr y y ‘ ‘ Cmd đ Cmd đ ố ố i tư i tư ợ ợ ng đã đư ng đã đư ợ ợ c khai b c khai b á á o & kh o & kh ở ở i t i t ạ ạ o o da. da. SelectCommand SelectCommand = = C C md md ‘ ‘ = GetCommand() = GetCommand() da.Fill(tb) da.Fill(tb) Return Return tb tb Catch Catch ex ex As As Exception Exception MsgBox(ex.Message) MsgBox(ex.Message) Return Nothing Return Nothing End Try End Try End Function End Function 5 9 Windows Form programming with VB.Net 2005. VD: DataAdapter & Fill cho DataSet VD: DataAdapter & Fill cho DataSet P P ublic Function ublic Function GetData GetData Set Set () () a a s s D D ata ata Set Set Dim Dim da da As New As New OleDbDataAdapter() OleDbDataAdapter() Dim Dim ds ds As New As New Data Data Set() Set() Try Try ‘ ‘ Cmd đ Cmd đ ố ố i tư i tư ợ ợ ng đã đư ng đã đư ợ ợ c khai b c khai b á á o & kh o & kh ở ở i t i t ạ ạ o o da. da. SelectCommand SelectCommand = = C C md md ‘ ‘ = GetCommand() = GetCommand() da.Fill( da.Fill( ds ds ) ) ‘ ‘ da.Fill( da.Fill( ds, ds, “ “ TableName TableName ” ” ) ) Return Return ds ds Catch Catch ex ex As As Exception Exception MsgBox(ex.Message) MsgBox(ex.Message) Return Nothing Return Nothing End Try End Try End Function End Function 10 Windows Form programming with VB.Net 2005. Public Function GetDataReader(ByVal StoreProceureName As String, Optional ByVal arrParams() As String = Nothing, Optional ByVal arrValues() As Object = Nothing) As OleDbDataReader Dim rd As OleDbDataReader Dim Dim cmd cmd As New As New OleDbCommand OleDbCommand cmd = me.GetCommand() cmd = me.GetCommand() If Not (arrParams Is Nothing) Then For nIndex As Integer = 0 To (arrParams.Length - 1) cmd.Parameters.AddWithValue(arrParams(nIndex), arrValues(nIndex)) Next End If rd = cmd.ExecuteReader() Return rd ‘cmd.ExecuteReader() End Function 6 11 Windows Form programming with VB.Net 2005. L L ậ ậ p tr p tr ì ì nh hư nh hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng l ng l à à g g ì ì ? ? ¾ ¾ Trong th Trong th ế ế gi gi ớ ớ i th i th ự ự c, c, đ đ ố ố i tư i tư ợ ợ ng l ng l à à th th ự ự c th c th ể ể t t ồ ồ n t n t ạ ạ i như i như con ngư con ngư ờ ờ i, xe, m i, xe, m á á y t y t í í nh, v.v nh, v.v … … ¾ ¾ Trong ngôn ng Trong ngôn ng ữ ữ l l ậ ậ p tr p tr ì ì nh, nh, đ đ ố ố i tư i tư ợ ợ ng c ng c ó ó th th ể ể l l à à m m à à n h n h ì ì nh, nh, mouse, c mouse, c á á c control v.v c control v.v … … ¾ ¾ L L ậ ậ p tr p tr ì ì nh hư nh hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng l ng l à à ki ki ể ể u l u l ậ ậ p tr p tr ì ì nh nh nh nh ằ ằ m v m v à à o o s s ự ự tương t tương t á á c gi c gi ữ ữ a c a c á á c đ c đ ố ố i tư i tư ợ ợ ng ng ¾ ¾ M M ộ ộ t đ t đ ố ố i tư i tư ợ ợ ng c ng c ó ó c c á á c đ c đ ặ ặ c đi c đi ể ể m sau: m sau: - - Nh Nh ữ ữ ng thu ng thu ộ ộ c t c t í í nh: nh: x x á á c đ c đ ị ị nh c nh c á á c đ c đ ặ ặ c đi c đi ể ể m c m c ủ ủ a đ a đ ố ố i tư i tư ợ ợ ng ng - - Nh Nh ữ ữ ng phương th ng phương th ứ ứ c: c: x x / / đ đ ị ị nh c nh c á á c ch c ch ứ ứ c năng c c năng c ủ ủ a đ a đ ố ố i tư i tư ợ ợ ng ng - - C C á á c s c s ự ự ki ki ệ ệ n n ph ph á á t sinh khi thay đ t sinh khi thay đ ổ ổ i thu i thu ộ ộ c t c t í í nh, th nh, th ự ự c hi c hi ệ ệ n n m m ộ ộ t phương th t phương th ứ ứ c hay b c hay b ị ị đ đ ố ố i tư i tư ợ ợ ng kh ng kh á á c t c t á á c đ c đ ộ ộ ng v ng v à à o o L L ậ ậ p tr p tr ì ì nh hư nh hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng ng 12 Windows Form programming with VB.Net 2005. ¾ ¾ Abstraction: Abstraction: T T í í nh tr nh tr ừ ừ u tư u tư ợ ợ ng ng ¾ ¾ Encapsulation: Encapsulation: T T í í nh bao b nh bao b ọ ọ c c ( ( đ đ ó ó ng g ng g ó ó i) i) ¾ ¾ Inheritance: Inheritance: T T í í nh k nh k ế ế th th ừ ừ a a ¾ ¾ Polymorphism: Polymorphism: T T í í nh đa h nh đa h ì ì nh nh Đ Đ ặ ặ c đi c đi ể ể m trong L m trong L ậ ậ p tr p tr ì ì nh hư nh hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng: ng: 7 13 Windows Form programming with VB.Net 2005. Trong thế giới thực tồn tại các đối tượng có cùng các thuộc tính cần quản lý như: Nhân viên, sinh viên, hàng hóa… MaSV HoTen NgaySinh Ví dụ: A001 Lê Văn A 1/1/1979 A002 TrầnVăn B 1/6/1979 Từ những đối tượng có các thuộc tính giống nhau, ta trừu tượng hóa thành một lớp đối tượng Ví dụ : từ hai đối tượng trên ta trừu tượng hóa thành lớp (class) SinhVien có các thuộc tính: . MaSV . HoTen . NgaySinh Abstraction: Abstraction: T T í í nh tr nh tr ừ ừ u tư u tư ợ ợ ng ng 14 Windows Form programming with VB.Net 2005. ¾ ¾ C C ó ó th th ể ể g g ọ ọ i c i c á á c phương th c phương th ứ ứ c c c c ủ ủ a c a c á á c đ c đ ố ố i i tư tư ợ ợ ng đ ng đ ể ể th th ự ự c hi c hi ệ ệ n m n m à à không quan tâm bên không quan tâm bên trong c trong c á á c phương th c phương th ứ ứ c n c n à à y c y c ó ó c c á á c l c l ệ ệ nh x nh x ử ử lý n lý n à à o o ¾ ¾ Ch Ch ỉ ỉ quan tâm đ quan tâm đ ế ế n d n d ữ ữ li li ệ ệ u đ u đ ầ ầ u v u v à à o v o v à à k k ế ế t t qu qu ả ả tr tr ả ả v v ề ề c c ủ ủ a phương th a phương th ứ ứ c c ¾ ¾ Khi ta ch Khi ta ch ỉ ỉ nh s nh s ử ử a l a l ạ ạ i c i c á á c x c x ử ử lý trong lý trong phương th phương th ứ ứ c m c m à à không ch không ch ỉ ỉ nh s nh s ử ử a d a d ữ ữ li li ệ ệ u u v v à à o v o v à à k k ế ế t qu t qu ả ả tr tr ả ả v v ề ề th th ì ì không c không c ầ ầ n ch n ch ỉ ỉ nh nh s s ử ử a a ở ở nơi g nơi g ọ ọ i i Encapsulation: Encapsulation: T T í í nh bao b nh bao b ọ ọ c c 8 15 Windows Form programming with VB.Net 2005. ¾ ¾ L L à à kh kh ả ả năng cho ph năng cho ph é é p ta xây d p ta xây d ự ự ng m ng m ộ ộ t l t l ớ ớ p p m m ớ ớ i d i d ự ự a trên c a trên c á á c đ c đ ị ị nh ngh nh ngh ĩ ĩ a c a c ủ ủ a m a m ộ ộ t l t l ớ ớ p đã c p đã c ó ó ¾ ¾ L L ớ ớ p đã c p đã c ó ó g g ọ ọ i l i l à à l l ớ ớ p Cha, l p Cha, l ớ ớ p m p m ớ ớ i ph i ph á á t sinh t sinh g g ọ ọ i l i l à à l l ớ ớ p Con p Con ¾ ¾ L L ớ ớ p con k p con k ế ế th th ừ ừ a t a t ấ ấ t c t c ả ả c c á á c th c th à à nh ph nh ph ầ ầ n c n c ủ ủ a l a l ớ ớ p p Cha, c Cha, c ó ó th th ể ể m m ở ở r r ộ ộ ng ch ng ch ứ ứ c năng c c năng c á á c th c th à à nh nh ph ph ầ ầ n k n k ế ế th th ừ ừ a c a c ũ ũ ng như b ng như b ổ ổ sung thêm c sung thêm c á á c c th th à à nh ph nh ph ầ ầ n m n m ớ ớ i. i. Inheritance: Inheritance: T T í í nh k nh k ế ế th th ừ ừ a a 16 Windows Form programming with VB.Net 2005.   K K ế ế t n t n ố ố i tr i tr ễ ễ : : ¾ ¾ Ta c Ta c ó ó th th ể ể gi gi á á n gi n gi á á tr tr ị ị m m ộ ộ t đ t đ ố ố i tư i tư ợ ợ ng c ng c ủ ủ a l a l ớ ớ p cha p cha b b ằ ằ ng m ng m ộ ộ t đ t đ ố ố i tư i tư ợ ợ ng thu ng thu ộ ộ c l c l ớ ớ p con p con ¾ ¾ Khi g Khi g ọ ọ i m i m ộ ộ t phương th t phương th ứ ứ c c c c ủ ủ a đ a đ ố ố i tư i tư ợ ợ ng thu ng thu ộ ộ c l c l ớ ớ p p cha, t cha, t ù ù y th y th ờ ờ i đi i đi ể ể m g m g ọ ọ i, i, đ đ ố ố i tư i tư ợ ợ ng n ng n à à y đư y đư ợ ợ c g c g á á n l n l à à đ đ ố ố i tư i tư ợ ợ ng thu ng thu ộ ộ c l c l ớ ớ p con n p con n à à o th o th ì ì phương th phương th ứ ứ c c c c ủ ủ a a l l ớ ớ p con đ p con đ ó ó đư đư ợ ợ c g c g ọ ọ i. i.   N N ạ ạ p ch p ch ồ ồ ng ng : : L L à à kh kh ả ả năng m năng m ộ ộ t l t l ớ ớ p c p c ó ó nhi nhi ề ề u phương u phương th th ứ ứ c c c c ù ù ng tên nhưng kh ng tên nhưng kh á á c c c c á á c tham s c tham s ố ố v v ề ề s s ố ố lư lư ợ ợ ng, ng, ki ki ể ể u d u d ữ ữ li li ệ ệ u u   Ghi đ Ghi đ è è : : l l à à kh kh ả ả năng l năng l ớ ớ p con đ p con đ ị ị nh ngh nh ngh ĩ ĩ a l a l ạ ạ i c i c á á c c phương th phương th ứ ứ c c c c ủ ủ a l a l ớ ớ p cha p cha Polymorphism: Polymorphism: T T í í nh đa h nh đa h ì ì nh nh (3 h (3 h ì ì nh th nh th ứ ứ c) c) 9 17 Windows Form programming with VB.Net 2005. T T ạ ạ o m o m ớ ớ i m i m ộ ộ t l t l ớ ớ p: menu Project p: menu Project - - > Add Class > Add Class - - > > Nh Nh ậ ậ p tên l p tên l ớ ớ p (Ho p (Ho ặ ặ c chu c chu ộ ộ t ph t ph ả ả i tên Project i tên Project … … .) .) Public Class Public Class <tên Class> <tên Class> … … End Class End Class Ta c Ta c ó ó th th ể ể t t ự ự đ đ ị ị nh ngh nh ngh ĩ ĩ a m a m ộ ộ t l t l ớ ớ p v p v ớ ớ i c i c ú ú ph ph á á p: p: <T <T ừ ừ kh kh ó ó a c a c ủ ủ a l a l ớ ớ p> p> Class Class <Tên l <Tên l ớ ớ p> p> <C <C á á c khai b c khai b á á o> o> End Class End Class L L ậ ậ p tr p tr ì ì nh hư nh hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng trong VB.NET ng trong VB.NET 18 Windows Form programming with VB.Net 2005. [c [c á á c Namspace c c Namspace c ủ ủ a VB hay c a VB hay c ủ ủ a ngư a ngư ờ ờ i s i s ử ử d d ụ ụ ng ] ng ] [ [ Namespace { Namespace { name | name.name name | name.name } } ] ] Public Class Public Class <tên Class> <tên Class> [ [ Inherits Inherits <tên Class <tên Class cha cha > > ] ] [ [ Khai b Khai b á á o c o c á á c bi c bi ế ế n hay thu n hay thu ộ ộ c t c t í í nh nh ] ] [ [ C C á á c phương th c phương th ứ ứ c (h c (h à à m hay th m hay th ủ ủ t t ụ ụ c) c) ] ] End Class End Class [ [ End Namespace End Namespace ] ] C C ấ ấ u tr u tr ú ú c c c c ủ ủ a m a m ộ ộ t Class t Class 10 19 Windows Form programming with VB.Net 2005. Imports System Imports System Imports System.Data Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlClient Imports Microsoft.VisualBasic Imports Microsoft.VisualBasic Namespace Namespace CSLD.KetNoi CSLD.KetNoi Public Class Public Class DataLayers DataLayers Private Private Con Con As SqlConnection As SqlConnection Private Private Cmd Cmd As New SqlCommand As New SqlCommand Private Private strConnect strConnect As String As String Public Sub New() Public Sub New() strConnect = strConnect = "Data Source=(local);Initial Catalog=Menu; "Data Source=(local);Initial Catalog=Menu; Persist Security Persist Security Info=True;User ID=sa;Password=sa" Info=True;User ID=sa;Password=sa" End Sub End Sub ‘ ‘ k k ế ế t h t h ú ú c phương th c phương th ứ ứ c new c new Public Function Public Function GetConnection() GetConnection() As As SqlConnection SqlConnection Dim Dim objCon objCon As As SqlConnection SqlConnection objCon objCon = New = New SqlConnection(strConnect) SqlConnection(strConnect) Return Return objCon objCon End Function End Function ‘ ‘ k k ế ế t h t h ú ú c phương th c phương th ứ ứ c l c l ấ ấ y k y k ế ế t n t n ố ố i i End Class End Class ‘ ‘ K K ế ế t th t th ú ú c class c class DataLayers DataLayers End Namespace End Namespace ‘ ‘ K K ế ế t th t th ú ú c name space c c name space c ủ ủ a class a class DataLayers DataLayers V V í í d d ụ ụ class CSDL: class CSDL: 20 Windows Form programming with VB.Net 2005. ¾.NetFrameWork cung cấp hơn 5000 đối tượng, để dễ dàng quan lý và sử dụng, các đối tượng này được đưa vào các nhóm tùy theo loại, các nhóm này có một tên gọi là Namespase ¾ Để sử dụng các đối tượng thuộc namespase nào ta phải tham chiếu đến bằng lệnh: ¾ Imports Namespace Ví dụ: Imports System.Data.OleDb ¾ Chú ý • Mỗi lệnh Imports chỉ được sử dụng với một không gian tên. • Mỗi Module có thể có nhiều dòng Imports ¾ Các lệnh Imports phải được đặt trước tất cả các khai báo, kể cả lệnh khai báo Module hoặc Class Imports không gian tên (Namespace) : Imports không gian tên (Namespace) : [...]... lỗi chương trình sẽ bỏ qua tất cả các dòng sau dòng lệnh trên và nhảy tới nhãn (LabelName:) đã được chỉ định sau đó VD: Public Function PhanSo(ByVal tu As Integer, ByVal mau As Integer) As Double On Error GoTo Loi Return a / b Loi: MsgBox(Err.Description) End Function Windows Form programming with VB. Net 2005 35 Lập trình thuộc tính (Property) và tự kiện (Eevnt) - Hầu hết các control trong VB. Net đều... Class Xe_Hoi Windows Form programming with VB. Net 2005 31 Từ khóa MyClass MyClass: được dùng để gọi các thể hiện hay phương thức của Class hiện hành; VD: Class TaiKhoan Sub New() MyClass.RutTien(100) End Sub Overridable Sub RutTien(ByVal amount As Integer) [Các xử lý rút tiền] End Sub End Class Windows Form programming with VB. Net 2005 32 16 Bắt lỗi trong lập trình: Try [ tryStatements ] [ Exit Try ]... chung và riêng của từng control) Windows Form programming with VB. Net 2005 36 18 Cách thức bắt Sự kiện: (tại giao diện code) Chứa các đối tượng cần viết sự kiện Chứa các sự kiện cần viết code Chọn đối tượng trước, sau đó chọn sự kiện (Đối tượng ở đây thường là các Name của các Control) Windows Form programming with VB. Net 2005 37 Cách thức lập trình Sự kiện: Sau khi bắt sự kiện của các control thường xuất... về> … Return End Function End Class Windows Form programming with VB. Net 2005 22 11 Từ khóa của phương thức: Public: Phương thức được gọi ở mọi nơi Private: P.thức chỉ được gọi trong phạm vi của Class Protected: P thức chỉ được gọi trong phạm vi của Class đó và các class con (Subclass) Friend: P thức chỉ được gọi trong phạm vi của Project Overloads: chỉ khai báo cho phương thức thuộc lớp... nơi Private: Cho biết thực thể khai báo chỉ được sử dụng trong phạm vi khai báo Protected: Cho biết thực thể khai báo chỉ được sử dụng trong phạmvi Class và Sub Class (lớp và lớp con) Friend: Cho biết thực thể khai báochỉ đượcsử dụng trong phạm vi Project Nếu không có từ khóa, Class mặcn hiên là khai báo Friend Windows Form programming with VB. Net 2005 21 Khai báo một lớp con kế thừa từ lớp cha : Public... Set(ByVal sHoTen As Integer) strHoTen = sHoTen End Set End Property Windows Form programming with VB. Net 2005 28 14 Property GioiTinh() As Integer Get Return bGioiTinh End Get Set(ByVal Phai As Boolaen) bGioiTinh = Phai End Set End Property End Class ' Kết thúc class CHocSinh Windows Form programming with VB. Net 2005 29 Từ khóa Me Me: được dùng khi chúng ta chỉ rõ muốn dùng các thành phần của chính thể... phương thức trong lớp cha Overrides: Cho biết P thức ghi đè một phương thức cùng tên của lớp cha Số lượng tham số, kiểu dữ liệu của tham số cũng như kiểu giá trị trả về phải khớp với của lớp cha Windows Form programming with VB. Net 2005 23 Phương thức khởi tạo (Constractor): Là thủ tục được khai báo với từ khóa Public và luôn có tên New cú pháp: Public Sub New [(Các tham số)] End Sub Trong một... Windows Form programming with VB. Net 2005 33 Bắt lỗi đơn giản: Try [Các câu lệnh cần bắt lỗi] Catch ex As [ Exception | ApplicationException ] [Các thông báo lỗi ] End Try Public Function GetConnection() As SqlConnection Try Dim objCon As New SqlConnection(strConnect) Return objCon Catch ex As Exception MsgBox(ex.Message) End Try End Function Windows Form programming with VB. Net 2005 34 17 Bắt lỗi bằng... khai báo một biến Private tương ứng để lưu giữ giá trị Windows Form programming with VB. Net 2005 24 12 Public Class CPhanSo ' các thuộc tính cá thuộ tí Private Tu As Integer Private Mau As Integer ' Phương thức thiết lập mặc định Phương thứ thiế lậ mặ đị Public Sub New() Tu = 0 Mau = 1 End Sub ' Phương thức thiết lập khi biết tử và mẫu Phương thứ thiế lậ biế tử Public Sub New(ByVal t As Integer, ByVal... Value End Set End Property Windows Form programming with VB. Net 2005 26 13 Vd: khai báo thuộc tính Public Class CHocSinh Private intMaSo As Integer Private strHoTen As String Private bGioiTinh As Boolean Property MaSo() As Integer Get Return intMaSo End Get Set(ByVal MaSV As Integer) intMaSo = MaSV End Set End Property Windows Form programming with VB. Net 2005 27 Property HoTen() As Integer Get Return strHoTen . programming with VB. Net 2005. Bu Bu ổ ổ i 5: K i 5: K ỹ ỹ thu thu ậ ậ t l t l ậ ậ p tr p tr ì ì nh trong VB. NET nh trong VB. NET  Hàm (Function) - Thủ tục (Procedure)  Khái niệm lập trình hướng đối. hư ớ ớ ng đ ng đ ố ố i tư i tư ợ ợ ng trong VB. NET ng trong VB. NET 18 Windows Form programming with VB. Net 2005. [c [c á á c Namspace c c Namspace c ủ ủ a VB hay c a VB hay c ủ ủ a ngư a ngư ờ ờ i s i. c 2 c á á ch) ch) 36 Windows Form programming with VB. Net 2005. - - H H ầ ầ u h u h ế ế t c t c á á c control trong VB. c control trong VB. Net đ Net đ ề ề u c u c ó ó c c á á c thu c thu ộ ộ c