tailieunhanh - Visual Basic 6 - Viết Code

Viết Code Trong ba chương đầu chúng ta đã học qua ba bộ phận chánh của một chương trình Visual Basic . Đó là: Forms là cái nền hay khung để ta xây dựng User Interface. Controls là những viên gạch để ta dùng xây dựng User Interface. Event procedures là code nằm phía sau những hình ảnh, nó là chất keo dùng để dán các Controls lại với nhau để tạo thành chương trình áp dụng của ta. | Viết Code Trong ba chương đầu chúng ta đã học qua ba bộ phận chánh của một chương trình Visual Basic . Đó là Forms là cái nền hay khung để ta xây dựng User Interface. Controls là những viên gạch để ta dùng xây dựng User Interface. Event procedures là code nằm phía sau những hình ảnh nó là chất keo dùng để dán các Controls lại với nhau để tạo thành chương trình áp dụng của ta. Như ta đã thấy tất cả các code được xử lý executed khi có một Event xãy ra. Thí dụ như khi User click một CommandButton Event Click hay type nút Tab để di chuyển Cursor từ Textbox nầy Event Lostfocus qua Textbox khác Event GotFocus . Các nhóm code xử lý là Private Sub Command1_Click . End Sub Private Sub Text1_LostFocus . End Sub và Private Sub Text2_GotFocus . End Sub Trong khi lập trình mỗi lần ta double click lên một Control của một Form là VB6 IDE tự động generate cho ta cái vỏ từ hàng Private Sub Control_Event cho đến End Sub để chúng ta điền những hàng code của mình vào chính giữa. Điều khiển thứ tự xử lý các dòng code Giả dụ ta viết một chương trình Vb6 đơn giản như trong hình nầy với hai Textbox tên txtName txtAge và một nút tên CmdEnter nằm trong một form tên Form1 1 Thông thường các dòng code được xử lý theo thứ tự từ trên xuống dưới. Thí dụ như để kiểm xem các dữ kiện vừa được cho vào các Textbox có tương đối hợp lý hay không khi User click nút CmdEnter ta xử lý Sub dưới đây Private Sub CmdEnter_Click Make sure the Name field is not blank If Then MsgBox Please enter Name Exit Sub Terminate this Sub End If Make sure a number is supplied for Age If Not IsNumeric Then MsgBox Please enter a number for Age Exit Sub Terminate this Sub End If End Sub Cái Sub nói trên có chữ Private nằm phía trước ý nói chỉ nội trong cùng một form chứa Control CmdEnter tức là Form1 trong trường hợp nầy ta mới có thể gọi dùng Sub CmdEnter_Click . Thí dụ ta muốn khi User bấm key Enter trên bàn phím sau khi cho vào chi tiết ở Textbox txtAge thì coi như User đã click nút CmdEnter. Ta