Hoc VB

Visual Basic 6.0
Trần Nguyên Hương
Điều khiển ImageList,
Treeview,
ListView,
TabStrip
Điều khiển ImageList
ProjectComponentsMicrosoft Window Common Control 6.0 (SP6)
Không nhìn thấy lúc thực thi
Dùng để chứa hình ảnh, các hình ảnh này thường sử dụng bởi các điều khiển khác, chẳng hạn Treeview, ListView…
Điều khiển ImageList
Đưa hình vào ImageList:
Nhấn phải chuột vào điều khiển ImageList trên Form, chọn mục Properties trên menu ngữ cảnh
Chọn ImagesInsert Picturechọn tệp tin muốn thêmOK

Điều khiển Treeview
Tạo cấu trúc tương tự như công cụ Windows Explorer của Windows
ProjectComponentsMicrosoft Window Common Control 6.0 (SP6)
Thêm điều khiển Treeview vào Form


Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Nút khác có quan hệ với nút đang thêm
Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Chỉ ra mối quan hệ của nút mới (đang thêm) với nút ở Relative
1-tvwLast: Nút mới đặt sau tất cả các nút khác ở cùng cấp với nút chỉ ra trong Relative
2-tvwNext: Thêm ngay sau nút chỉ ra trong Relative
3-tvwPrevios: Thêm ngay trước nút chỉ ra trong Relative
4-tvwChild: Nút mới là nút con của nút chỉ ra trong Relative
Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Chuỗi khoá được thêm
Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Nhãn hiển thị của nút trong Treeview
Điều khiển Treeview
Thêm nút cho Treeview ở thời gian thực thi bằng phương thức Add của tập Nodes. Cú pháp
Add([Relative], [Relationship], [key], [Text], [SelectedImage]) as Node

Chỉ mục kết hợp với điều khiển ImageList để hiển thị hình bên nút
Điều khiển Treeview
Thêm nút con cho Treeview:
VD:
Private Sub Form_Load()
Dim Node2 As Node
Set Node2 = TreeView1.Nodes.Add("Root", tvwChild, "Nokia", "Nokia")
End sub
Điều khiển Treeview
Thêm hình ảnh vào Treeview:
Tạo ImageList1 chứa ảnh
Nhấn phải chuột vào Treeview1 trên Form, chọn ImageList là ImageList1
Thêm số thứ tự chỉ mục của ảnh trong List view vào phương thức Add. Ví dụ:
Set Node2 = TreeView1.Nodes.Add("Root", tvwChild, "Nokia", "Nokia", 1)

Điều khiển Treeview
Sự kiện mở nút (dấu +): Expand
Ví dụ:
Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.Image = 3
End Sub
Điều khiển Treeview
Sự kiện mở đóng (dấu -): Collapse
Ví dụ:
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Image = 1
End Sub
Điều khiển Treeview
Ví dụ: Tạo Treeview sau:


Điều khiển Treeview
Tạo List view để chứa ảnh
Code viết như sau:
Private Sub Form_Load()
Dim Node1, Node2, Node3, Node4, Node5 As Node
Set Node1 = TreeView1.Nodes.Add(, , "Root", "DTDD", 1)
Set Node2 = TreeView1.Nodes.Add("Root", tvwChild, "Nokia", "Nokia", 1)
Set Node3 = TreeView1.Nodes.Add("Nokia", tvwChild, "Nokia 7270", "Nokia 7270", 2)
Set Node4 = TreeView1.Nodes.Add("Root", tvwChild, "Sony Ericsson", "Sony Ericsson", 1)
Set Node5 = TreeView1.Nodes.Add("Root", tvwChild, "Seimens", " Seimens", 1)
End Sub


Điều khiển Treeview
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Image = 1
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.Image = 3
End Sub
Thực hành
SV tạo cây Treeview như sau:
Điều khiển ListView
ProjectComponentsMicrosoft Window Common Control 6.0 (SP6)
Thêm điều khiển ListView vào Form

SV tìm hiểu thêm
Điều khiển TabStrip
ProjectComponentsMicrosoft Window Common Control 6.0 (SP6)
Thêm điều khiển TabStrip vào Form
Điều khiển TabStrip
Thêm nhiều thẻ lên TabStrip: R_Click, chọn Propertieschọn Tab Nhập giá trị cho CaptionInsert Tab
VD:
SV tìm hiểu thêm
Điều khiển định thời và điều khiển về ngày giờ
Timer
MothView
DateTimePicker

Điều khiển Timer
Định thời gian để thực hiện một công việc nào đó
Không nhìn thấy điều khiển này lúc thực thi
Thuộc tính quan tâm:
Enabled: Cho phép kích hoạt (True) hay không (False) kích hoạt sự kiện timer
Interval: Thiết lập chu kỳ (số Mini giây) giữa các sự kiện. Thường khởi tạo Interval=1000 (1 giây)
Điều khiển Timer
Ví dụ: Tạo đồng hồ điện tử lúc thực thi
Run
Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub
Điều khiển Timer
Ví dụ: Tạo đồng hồ điện tử lúc thực thi (cải tiến)
Run
SV viết Code cho 2 nút Start và Stop
Điều khiển MonthView
Hiển thị lịch ngày tháng hiện thời. Cho phép người dùng chọn ngày, tháng, năm.
ProjectComponentsMicrosoft Window Common Controls- 26.0
Thêm điều khiển Mothview vào Form

Điều khiển MonthView
Thuộc tính:
Year: Ngày
Month: Tháng
Year: Năm
VD: Thông báo ngày tháng năm hiện tại lên Msgbox
MsgBox "Hom nay la ngay " & _ MonthView1.Day & " thang" & _ MonthView1.Month & "nam " & _ MonthView1.Year
SV tìm hiểu thêm
Điều khiển DateTimePicker
Cho phép chọn ngày và giờ
ProjectComponentsMicrosoft Window Common Controls- 2 6.0
Thêm điều khiển DTPicker vào Form

Điều khiển DateTimePicker
Thuộc tính:
Value: CHo ngày tháng hiên thời
Hour: giờ
Minute: Phút
Second: Giây
SV tìm hiểu thêm
Giới thiệu về Cơ sở dữ liệu MS Access
Kết nối cơ sở dữ liệu
Bài toán minh hoạ
Yêu cầu của bài toán
Viết ứng dụng quản lý điểm của học sinh

Yêu cầu của bài toán
Các chức năng chính của ứng dụng
Thiết kế cơ sở dữ liệu
Thiết kế cơ sở dữ liệu
Thiết kế giao diện
Thiết kế giao diện
Viết Code để thực hiện