ThS. Nguyễn Bá Vương Bài này tôi hướng dẫn các bạn tạo một bảng biểu trong VB6, để hiển thị kết quả đo dạng table.
1. Khởi động phần mềm lập trình VB6
2. Chọn trong danh sách Project chọn Standard EXE
3. Trèn MSFlexGrid control vào Proj:
3.1 Vào thực đơn Project , Chọn Components.
3.2 Kéo danh sách xuống và chọn "Microsoft FlexGrid Control 6.0 (sp3)". Sau đó chọn OK để trèn vào project, như hình dưới.
4. Trèn FlexGrid vào From giao diện thiết kế bằng cách nhấn chuột vào biểu tượng trên ToolBox và vẽ vào From, như hình dưới.
5. Trên hộp hội thoại tính chất chủa FlexGrid chọn thuộc tính name là Table, thuộc tính FixedCols là 0.
6. Nhấn kép vào From1 để lập trình cho table, đầu tiên chọn số hàng số cột, bằng lệnh sau:
table.Cols = 5 'Chọn số cột là 5
table.Rows = 10 'Chọn số hàng là 10
Tổng số hàng số cột này phụ thuộc vào người lập trình lựa chọn, và chúng ta có thể thay đổi được.
7. Điền tiêu đề vào cho Table.
table.col = 0 'Vị trí cột là 0
table.row = 0 'Vị trí hàng là 0
table.Text = "Du lieu 01" ' Cột 0 hàng 0 có giá trị Text là "Du lieu 01"
table.Col = table.Col + 1 ' Vị trí cột tăng lên 1 đơn vị
table.Text = "Du lieu 02" ' Cột 1 hàng 0 có giá trị Text là "Du lieu 02"
table.Col = table.Col + 1 ' Vị trí cột tăng lên 1 đơn vị
table.Text = "Du lieu 03" ' Cột 2 hàng 0 có giá trị Text là "Du lieu 03"
table.Col = table.Col + 1 ' Vị trí cột tăng lên 1 đơn vị
table.Text = "Du lieu 04" ' Cột 3 hàng 0 có giá trị Text là "Du lieu 04"
table.Col = table.Col + 1 ' Vị trí cột tăng lên 1 đơn vị
table.Text = "Du lieu 05" ' Cột 4 hàng 0 có giá trị Text là "Du lieu 05"
8. Nhập dữ liệu vào bảng
Ví dụ chúng ta cần nhập dữ liệu vào bảng có giá trị như sau:
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
0 1 2 3 4
Kết quả lập trình như hình dưới
Mã lập trình như hình dưới đây.
Download ví dụ tạo table trong VB6
Số lần xem trang : 14885 Nhập ngày : 15-09-2008 Điều chỉnh lần cuối : 05-05-2009 Ý kiến của bạn về bài viết này
Lập trình giao tiếp máy tính Vẽ đồ thị trong giao diện Visual Basic(17-09-2008) Card giao tiếp PCI-1711(15-09-2008) Cách sử dụng Card ACl-8112HG(15-09-2008) Điều khiển quá trình xuất dữ liệu qua Excel bằng VB6(15-09-2008)
|