Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'lập trình visual basic 6 căn bản part 2', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | vào nút lệnh cmdln thì máy tính sc in dẫy kí tự Hello The World trong hộp vãn bản ixtKetQua. Vì vậy ta cần viết vào thủ tục này càu lệnh sau đây txtKetQua.Text Hello The World Sau khi làm như vậy thủ tục này sẽ có dạng sau đây Private Sub cmdIn_Clỉck txtKetQua.Text Hello The World End Sub - Đóng cửa sổ lệnh. - Lưu dự án lẽn đĩa từ. Chạy thử chương trình Hello với nút lệnh cmdln Bây giờ ta lại chạy thừ chương trình Hello. Lần này ta sẽ sử dụng nút lệnh cmdln. Ta thực hiện các thao tác sau đây - Chọn Start trong thanh thực đơn của Visual Basic. - Chọn Run Giao diện của chương trình Hello sẽ xuất hiện trên màn hình. - Nháy chuột vào nút lệnh cmdln. Dẫy kí tự Hello The World sẽ xuất hiện trong hộp vãn bản ixtKetQua. Hộp văn bản này có dạng như trong Hình 2.3. - Nháy chuột vào nút lệnh cmKetThuc để kết thúc chương trình. - Lưu dự án lên dĩa từ. - Đóng cửa sổ lệnh bằng cách nháy chuột vào nút Close của cửa sổ này . Như vậy là ta dã viết xong các thủ tục cho tất cả các nút lệnh của chương trình Hello. Trong cửa sổ lệnh các thù tục đó có dạng sau đây 37 private Sub cmdXoa_Click txtKetQua.Text End Sub Private Sub cmdKet.ThuC Click End End Sub Private Sub cmdIn_Click txtKetQua.Text Hello The World End Sub Trong các thù tục này ta đã sử dụng 3 câu lệnh cùa VB. Tác dụng của các câu lệnh đó được cho trong bảng dưới đây. Bảng 2.2. Các câu lệnh đã được sử dụng Câu lệnh Ý nghĩa TxtKetQua.Text Hello The World Đây là câu lệnh gán. Câu lệnh này gán dầy kí tự Hello The World I cho thuộc tính Text của hộp văn bàn txtKetQua. Điều này làm cho dẫy kí tự Hello The World I sẽ được in tức là sẽ xuất hiện trong hộp văn bản txtKetQua. TxtDisplay.Text - 1 End Đây là câu lệnh gán. Câu lệnh này gán dẫy kí tự rỗng tức lá dẫy kí tự không có một kí tự nào cả cho thuộc tính Text của hộp văn bản có tên là txtKetQua. Lệnh này làm cho hộp văn bản txtKetQua hoàn toàn trắng không còn chứa một kí tự nào cả. Điểu đó tương đương vơi việc xoá hộp văn bản. Lệnh này kểt thúc chương trinh. 38 2.8. THỰC HIỆN .
