Núi cao sông rộng cho lòng thảnh thơi …

Tạo table trong VB6

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

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

%d bloggers like this: