Đ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 5', 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ả | - Xác định thư mục lưu dự án c baitapvb - Xác định tên tệp lưu dự án ChaoDaNgu - OK Để lưu tệp chứa biểu mẫu ên đĩa tù cần phải thực hiện các thao tác sau đây -File - Save Forml as - Xác dịnh thư mục lưu biểu mẫu c baitapvb - Xác định tên tệp lưu biểu mẫu ChaoDaNgu - OK Bước 3. Thiết kế giao diện cho chương trinh Trong bước công việc này ta sẽ sử dụng các công cụ trong hộp công cụ để lần lượt tạo ra 1 hộp văn bản 3 nút lệnh và 4 hộp kiểm. Sau đó phải xác định cho các thuộc tính thích hợp cho các nút lênh và các hộp kiểm đó. Ta đã biết cách thực hiện các công việc này. Bảng 6.6. Các đối tượng của chương trinh ChaoDaNgu SỐTT Loại đối tượng Thuộc tính . Giá tri 1 Biểu mẫu Name Caption FrmChaoDaNgu CT Chao Da Ngon Ngu 2 Hộp văn bản Name font MultiLine TxtKetQua .VnTime size 20 True 3 Nút lệnh Name Caption Font Cmdln Sin VnTime 10- I.TCB 4Í SÔTT Loại đối tượng Thuộc tính Giá tri 4 Nút lệnh Name Caption Font CmdKetThuc Ké t Thúc VnTime 5 Nút íệnh Name Caption Font CmdXoa Xoá VnTime 6 Hộp kiểm Name Caption Value ChkAnh Tiếng Anh Value 7 Hộp kiểm Name Caption Value chkPhap Tiếng Pháp Value 8 Hộp kiểm Name Caption Value ChkViet Tiếng Việt Value Chú ý -Trong chương trình này ta xác định giá trị .VnTime cho thuộc tính Font của tất cả các nút lệnh và các hộp kiểm. Vì vậy tiêu đề của các nút lệnh và các hộp kiểm có đầy đủ dấu tiếng Việt. - Thuộc tính MultiLine của hộp văn bản cùa chương trình này có giá trị True. Vì vậy có thể in nhiều dòng kết quả trong hộp vãn bản này. Bước 4. Viết các thả tục - biên cố cho các nút lệnh Phần mã lệnh của chương trình ChaoDaNgu có dạng sau đây Private Sub cmdIn_Click txtKetQua.Text 146 If ChkAnh.Value Then txtKetQua.Text txtKetQua.Text Hello vbCrLf End If If ChkPhap.Value Then txtKetQua.Text txtKetQua.Text Bonjour vbCrLf End If If chkviet.Value Then txtKetQua.Text txtKetQua.Text Xin Chào End If End Sub Private Sub cmdxoa_click txtKetQua.Text End Sub Private Sub cmdKetThuc_Click Beep End End Sub Giải thích chương trình Chương trình này không sử
