Viết code cho nút OK

Liên hệ QC

phuyen89

Thành viên tích cực
Tham gia
20/11/08
Bài viết
875
Được thích
341
Nghề nghiệp
Student
Các anh,chị ơi.Em tạo một cái Form đăng nhập.Nhưng còn cái nút OK.Để khi mà mình nhập xong,nhấn OK thì chấp nhận.Còn không muốn thì nhấn Cancel để hủy bỏ.Như vậy thì hai nút lệnh trên viết code như thế nào.Các bác hướng dẫn giùm.
 

File đính kèm

Bạn click đôi vào nút OK rồi viết code như sau :

PHP:
Private Sub CommandButton1_Click()
    If TextBox1.Text = "user" And TextBox2.Text = "pass" Then
        F.Hide
    Else
        MsgBox "Sai mat khau."
        Application.Quit
    End If
End Sub
    
Private Sub CommandButton2_Click()
    Application.Quit
End Sub
Nếu nhập 2 ô lần lượt là "user" và "pass" rồi bấm OK thì thoát form để vào Excel, nếu không thì thông báo sai mật khẩu và thoát Excel. Nếu bấm Cancel thì thoát Excel. Nhưng mà mình nghĩ cái code này chỉ để cho vui thôi, chứ người ta không cần nhập gì mà chỉ cần bấm Ctrl - Break thì cũng thoát form như thường.
 
Lần chỉnh sửa cuối:
Upvote 0
Các anh,chị ơi.Em tạo một cái Form đăng nhập.Nhưng còn cái nút OK.Để khi mà mình nhập xong,nhấn OK thì chấp nhận.Còn không muốn thì nhấn Cancel để hủy bỏ.Như vậy thì hai nút lệnh trên viết code như thế nào.Các bác hướng dẫn giùm.

Tặng bạn cái File này nè, không những nó cho phép quyền đăng nhập, nó còn cho phép thay đổi User Name và Password nữa! Hy vọng bạn thú vị với nó!
 

File đính kèm

Upvote 0
Bạn click đôi vào nút OK rồi viết code như sau :

PHP:
Private Sub CommandButton1_Click()
    If TextBox1.Text = "user" And TextBox2.Text = "pass" Then
        F.Hide
    Else
        MsgBox "Sai mat khau."
        Application.Quit
    End If
End Sub
    
Private Sub CommandButton2_Click()
    Application.Quit
End Sub
Nếu nhập 2 ô lần lượt là "user" và "pass" rồi bấm OK thì thoát form để vào Excel, nếu không thì thông báo sai mật khẩu và thoát Excel. Nếu bấm Cancel thì thoát Excel. Nhưng mà mình nghĩ cái code này chỉ để cho vui thôi, chứ người ta không cần nhập gì mà chỉ cần bấm Ctrl - Break thì cũng thoát form như thường.

Phương thức Hide chỉ ẩn thôi, muốn thoát khỏi không còn lưu luyến gì thì dùng Unload.
 
Upvote 0
Phương thức Hide chỉ ẩn thôi, muốn thoát khỏi không còn lưu luyến gì thì dùng Unload.

Em thử .Unload thấy không được, nó báo thế này :

attachment.php

 

File đính kèm

  • 1.JPG
    1.JPG
    19 KB · Đọc: 166
Upvote 0
Nhưng mà mình nghĩ cái code này chỉ để cho vui thôi, chứ người ta không cần nhập gì mà chỉ cần bấm Ctrl - Break thì cũng thoát form như thường.

Giờ tôi mới biết cái vụ Ctrl+Break này đó, cám ơn bạn nhé.
Các Thầy ơi, làm ơn cho em hỏi có code nào để không cho Ctrl+Break thi hành lệnh không?**~**
Cám ơn rất nhiều ạ.
 
Lần chỉnh sửa cuối:
Upvote 0
Giờ tôi mới biết cái vụ Ctrl+Break này đó, cám ơn bạn nhé. Theo bạn thì có code nào để không cho Ctrl+Break thi hành lệnh không?**~**
Cám ơn.
Ctrl + Break chuyên dùng để "ngắt ngang" 1 tiến trình ---> Theo tôi thì bạn không nên cố gắng "cấm" nó ---> Sẽ có lúc bạn gặp trường hợp code bị lổi, chạy hoài không nghĩ thì còn có đường hậu mà thoát chứ
 
Upvote 0
Ctrl + Break chuyên dùng để "ngắt ngang" 1 tiến trình ---> Theo tôi thì bạn không nên cố gắng "cấm" nó ---> Sẽ có lúc bạn gặp trường hợp code bị lổi, chạy hoài không nghĩ thì còn có đường hậu mà thoát chứ

Dạ, cám ơn Thầy, em không hoàn toàn cấm nó chạy, nhưng trong trường hợp Form đăng nhập em muốn nó bị cấm và sau khi thoát (Terminate) nó sẽ chạy lại thôi í mà! Vậy có được không hả Thầy?
 
Upvote 0
Thôi, nếu không có code cấm chạy Ctrl+Break, thôi thì đão lại, các Anh Chị có code nào để viết tương tự như Ctrl+Break hay không ạ?
 
Upvote 0
Thôi, nếu không có code cấm chạy Ctrl+Break, thôi thì đão lại, các Anh Chị có code nào để viết tương tự như Ctrl+Break hay không ạ?
Nghiên cứu Application.Sendkeys xem
Nhưng thông thường ta chỉ bấm nút này khi code chạy bị treo thôi, đúng không? ---> Mà đã "treo" rồi thì bạn còn chạy được code nào khác nữa chứ ---> tự tay bấm Ctrl + Break cho lẹ
 
Upvote 0
Tại sao Excel có sẳn rồi mà ko xài? Mắt gì phải viết thêm một cái giống y chang người ta chi cho mệt nhỉ? Mà mục đích nó cũng giống y chang luôn? Thật là...
Thân.
 
Upvote 0
Tại sao Excel có sẳn rồi mà ko xài? Mắt gì phải viết thêm một cái giống y chang người ta chi cho mệt nhỉ? Mà mục đích nó cũng giống y chang luôn? Thật là...
Thân.
Cũng đôi khi dùng Form, tác giả viết code muốn người dùng chỉ có thể thao tác trên Form mà thôi, ngoài ra "cấm" làm bất cứ thứ gì khác ---> Hợp lý thôi!
 
Upvote 0
Nghiên cứu Application.Sendkeys xem
Nhưng thông thường ta chỉ bấm nút này khi code chạy bị treo thôi, đúng không? ---> Mà đã "treo" rồi thì bạn còn chạy được code nào khác nữa chứ ---> tự tay bấm Ctrl + Break cho lẹ
Dạ, có những cái em muốn lợi dụng sự kiện lỗi để bẫy lỗi thôi ạ, nếu bấm vào đó thì nói gì nữa ạ.
Mà thôi, chỉ là ý tưởng thôi mà, lâu lâu cũng ngớ ngẫn vậy đó các Thầy ạ. Xin được cảm ơn.
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom