tailieunhanh - THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 4

TT. Visual Basic End Enum Bước 9: Chương trình này thể hiện trên một form duy nhất và sử dụng mảng các điều khiển để tạo các bước để người dùng nhập thông tin vào. Do đó ta sử dụng tập tin tài nguyên để hiển thị các tên của điều khiển nhằm hiển thị cho chính xác. Vì thế ta cần có một hàm (thủ tục) để cập nhật thông tin nhập vào dựa vào các bước của người dung khi nhập thông tin vào. Vào Tools\Add Procedure để thêm thủ tục sau: Public Sub Hienthi() Dim i As. | TT. Visual Basic End Enum Bước 9 Chương trình này thể hiện trên một form duy nhất và sử dụng mảng các điều khiển để tạo các bước để người dùng nhập thông tin vào. Do đó ta sử dụng tập tin tài nguyên để hiển thị các tên của điều khiển nhằm hiển thị cho chính xác. Vì thế ta cần có một hàm thủ tục để cập nhật thông tin nhập vào dựa vào các bước của người dung khi nhập thông tin vào. Vào Tools Add Procedure để thêm thủ tục sau Public Sub Hienthi Dim i As Integer Kiem tra cac buoc chisobuoc 1 Or chisobuoc 2 For i 0 To 2 Nhan lblHelp i .Caption LoadResString chisobuoc - 1 6 i 1 Nut cmdHelp i .Caption LoadResString chisobuoc - 1 6 i 4 If UCase cmdHelp i .Caption VO HIEU HOA Then cmdHelp i .Visible False Else cmdHelp i .Visible True End If txtHelp i .Text Next End Sub Bước 10 Khi chương trình thực hiện ta phải ở bước thứ nhất của quá trình nhập liệu Thêm đoạn mã sau trong thủ tục xử lý sự kiện Form_Load chisobuoc 1 Hienthi Bước 11 Mỗi khi có một nút nhấn được nhấp quá trình nhập liệu chuyển sang bước kế tiếp người sử dụng có thể đi đến bước kế tiếp hay trở về bước trước đó trong quá trình này. Vì các nút nhấn button là một mảng điều khiển control array nên chúng có cùng một sự kiện Click tác động vào gọi là cmdHelp_Click. Hàm xử lý này có tham số là một chỉ số kiểu Integer để nhận biết nút nhấn nào được nhấp. Ở đây ta thêm đoạn mã sau trong hàm xử lý sự kiện này. Private Sub cmdHelp_Click Index As Integer Select Case chisobuoc Case buoc1 txtHelp 0 .Text txtHelp 1 .Text txtHelp 2 .Text Case buoc2 txtHelp 0 .Text txtHelp 1 .Text txtHelp 2 .Text End Select Trang 46 TT. Visual Basic Cac nut nhan Select Case Index Case nuttrai Huy bo End Case nutgiua ve truoc chisobuoc buoc1 Hienthi Case nutphai di toi chisobuoc chisobuoc 1 If chisobuoc buoc2 Then Hienthi Else Guiyeucau End If End Select End Sub Bước 12 Khi quá trình nhập thông tin kết thúc thông tin này được lưu vào .

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.