Structure trong VB.Net

Cấu trúc là một kiểu dữ liệu do người dùng tự định nghĩa (user-defined data type) dùng để tập hợp các thành phần dữ liệu có quan hệ với nhau thành một cấu trúc duy nhất. Structure tương tự như class chẳng hạn nó có các fields và các methods,… Tuy nhiên, điểm khác biệt lớn nhất giữa structure và class đó là structure mang kiểu tham chiếu(reference type) còn structure mang kiểu giá trị(value type). Thông thường structure dùng cho các kiểu hạng nhẹ và thời gian tồn tại trong bộ nhớ ngắn trong khi class được dùng cho các đối tượng lớn và thời gian tồn tại trong bộ nhớ lâu. Tuy vậy, xu hướng thì người ta thích dùng các class hơn bởi tính chất hướng đối tượng của nó.

Để khai báo 1 cấu trúc, người ta dùng từ khóa structure.

Ví dụ:

Structure Sinhvien
Dim masv As String
Dim hoten As String
Dim ngaysinh As Date
Dim diemtoan As Integer
Dim diemly As Integer
Dim diemhoa As Integer
End Structure

Trong ví dụ sau, chúng ta cùng xét đến structure và việc dùng 1 mảng quản lý 1 danh sách các phần tử mang cấu trúc này.

Với cấu trúc đặc tả 1 sinh viên như trên, ta khai báo 1 mảng các phần tử c1 kiểu dữ liệu là cấu trúc này:

Public dssv(0 To 1000) As Sinhvien

Giao diện đề nghị cho ứng dụng như sau:

Các TextBox cho người dụng nhập dữ liệu. Khi người dùng nhấn nút Thêm, dữ liệu sẽ được lưu vào mảng

Khi người dùng nhấn nút Xóa, dữ liệu của item hiện tại sẽ bị xóa khỏi mảng
Khi người dùng thay đổi dữ liệu rồi nhấn nút Sửa, dữ liệu của item hiện tại sẽ được cập nhật vào mảng.
Khi người dùng nhấn nút In DS, cửa sổ sau sẽ xuất hiện:

Code hướng dẫn:

Module QLSV dùng chung

Module QLSV’cấu trúc đặc tả thông tin về 1 sinh viên Structure Sinhvien Dim masv As String Dim hoten As String Dim ngaysinh As Date Dim diemtoan As Integer Dim diemly As Integer Dim diemhoa As Integer End Structure ‘Khai báo mảng cho danh sách sinh viên Public dssv(0 To 1000) As Sinhvien ‘Biến lưu trữ số sinh viên thực sự có trong danh sách Public sosv As Integer = 0 ”’ <summary> ”’ Thêm 1 sinh viên vào mảng các sinh viên ”’ </summary> ”’ <param >Sinh viên cần thêm</param> ”’ <remarks></remarks> Public Sub AddSV(ByVal sv As Sinhvien) If (sosv > 999) Then Return End If dssv(sosv) = sv sosv += 1 End Sub ”’ <summary> ”’ Xóa 1 sinh viên khỏi danh sách ”’ </summary> ”’ <param >vị trí của sinh viên cần xóa</param> ”’ <remarks></remarks> Public Sub Xoa(ByVal index As Integer) If (index < 0 Or index > sosv) Then Return End If For i As Integer = index To sosv – 1 dssv(i) = dssv(i + 1) Next sosv = sosv – 1 End Sub End Module

Thiết kế Form: frmSinhvien

frmDanhsachSV

Code cho Form frmSinhvien

Public Class frmSinhvien ‘biến dùng để lưu giữ vị trí hiện tại của các phần tử Private current As Integer = 0 Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click ‘có thể kiểm tra các giá trị hợp lệ không ở đây ‘… Dim sv As Sinhvien sv.masv = txtMS.Text sv.hoten = txtHT.Text sv.ngaysinh = dtpNS.Value sv.diemtoan = Convert.ToInt16(txtDT.Text) sv.diemly = Convert.ToInt16(txtDL.Text) sv.diemhoa = Convert.ToInt16(txtDH.Text) AddSV(sv) lblRecs.Text = (current + 1).ToString() + ” / ” + sosv.ToString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sosv = 0 lblRecs.Text = current.ToString() + ” / ” + sosv.ToString() End Sub Private Sub btnInDS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInDS.Click Dim frm As New frmDanhsachSV frm.ShowDialog(Me) End Sub Private Sub btnNavigate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click, btnPrev.Click, btnNext.Click, btnLast.Click Dim btn As Button = sender If (btn.Text = “|<”) Then current = 0 FillList() ElseIf (btn.Text = “<”) Then If current > 0 Then current = current – 1 FillList() End If ElseIf (btn.Text = “>”) Then If current < (sosv – 1) Then current = current + 1 FillList() End If ElseIf (btn.Text = “>|”) Then current = sosv – 1 FillList() End If End Sub Private Sub FillList() If sosv = 0 Then Return End If Dim sv As Sinhvien = dssv(current) txtMS.Text = sv.masv txtHT.Text = sv.hoten txtDT.Text = sv.diemtoan txtDL.Text = sv.diemly txtDH.Text = sv.diemhoa dtpNS.Value = sv.ngaysinh lblRecs.Text = (current + 1).ToString() + ” / ” + sosv.ToString() End Sub Private Sub btnXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoa.Click Xoa(current) End Sub Private Sub btnSua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSua.Click dssv(current).hoten = txtHT.Text dssv(current).ngaysinh = dtpNS.Value dssv(current).diemtoan = Convert.ToInt16(txtDT.Text) dssv(current).diemly = Convert.ToInt16(txtDL.Text) dssv(current).diemhoa = Convert.ToInt16(txtDH.Text) End Sub End Class

Code cho form frmDanhsachSV

Public Class frmDanhsachSV Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For i As Integer = 0 To sosv – 1 Dim s As Sinhvien = dssv(i) lstMSSV.Items.Add(s.masv) lstHT.Items.Add(s.hoten) lstNS.Items.Add(s.ngaysinh.ToString) lstToan.Items.Add(s.diemtoan) lstLy.Items.Add(s.diemly) lstHoa.Items.Add(s.diemhoa) Dim tb As Double = (s.diemhoa + s.diemly + s.diemtoan) / 3 lstTB.Items.Add(tb.ToString) Next End Sub ”’ <summary> ”’ Sự kiện này dùng chung cho tất cả các ListBox trong form. ”’ Mục dích là khi chọn bất kỳ 1 phần tử nào trên 1 listbox thì tất cả ”’ các listbox còn lại sẽ chọn đúng vị trí mà bạn chọn ”’ </summary> ”’ <param ></param> ”’ <param ></param> ”’ <remarks></remarks> Private Sub lst_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMSSV.SelectedIndexChanged, lstToan.SelectedIndexChanged, lstTB.SelectedIndexChanged, lstNS.SelectedIndexChanged, lstLy.SelectedIndexChanged, lstHT.SelectedIndexChanged, lstHoa.SelectedIndexChanged Dim lst As ListBox = sender Dim index As Integer = lst.SelectedIndex Dim ctls As Control For Each ctls In Me.Controls If (TypeOf (ctls) Is ListBox) Then lst = ctls lst.SelectedIndex = index End If Next End Sub End Class

Lưu ý : do tính chất của bài toán mang tính đơn giản và phục vụ cho mục đích ôn tập kiểm tra nên chúng ta không bàn luận sâu về tính chất chuyên môn của các nghiệp vụ quản lý sinh viên.

Cám ơn vì đã quan tâm !